apple115的blog

喜爱的emacs的ui界面

最近更新：2026-03-15 | 字数总计：1.7k | 阅读估时：8分钟 | 阅读量：次

UI图
优化的目的
1. 将doom-modeline 换成 header-line
2. 自己定义了一个主题

最近花了很多时间开始查看emacs ui，这是一个成果总结

UI图

优化的目的

目的是为了优化这个emacs的ui显示，使其变得更加简洁，减少一些不必要的东西

markdown

代码

将doom-modeline 换成 header-line

主要原因是在emacs doom-modeline有点卡，不过大概率是因为vc git 在windows太慢了,同时突然感觉 doom-modeline的大部分功能我好像也不太需要，我就将其去除，开始尝试更加简洁，我尝试smart-mode-line 和 mini-mode-line，发现会影响我使用的 consult，感觉也不太美观,最后我发现了 nove theme 他使用header-line 替代 modeline，我感觉这个非常不错,就用ai 帮我写了一个 header-line的东西

(defun my-header-line-vc ()
  (if (and (boundp 'vc-mode) vc-mode)
      (concat " #" (substring vc-mode 5)) ;; 直接截取分支名
    ""))
;; --- 2. 状态块颜色逻辑 (保持 Evil 用户的直观感) ---
(defun my-header-line-evil-face ()
  (cond ((evil-normal-state-p) '(:background "#d5c4a1" :foreground "#3c3836" ))
        ((evil-insert-state-p) '(:background "#b8bb26" :foreground "#fbf1c7" ))
        ((evil-visual-state-p) '(:background "#d3869b" :foreground "#fbf1c7" ))
        (t '(:background "#ebdbb2" :foreground "#3c3836"))))

(defun my-header-line-render ()
  (let* ((buffer-name (propertize (format-mode-line " %b ") 'face '(:weight bold)))
         (git-info (propertize (my-header-line-vc) 'face '(:foreground "#ecbe7b")))
         (evil-tag (propertize (concat " " (upcase (symbol-name evil-state)) " ")
                               'face (my-header-line-evil-face))))
    (concat
     evil-tag      ; Evil 模式块
     buffer-name   ; 文件名
     git-info      ; Git 分支
     ;; 将行列号推到最右侧
     (propertize " " 'display `(space :align-to (- right 8)))
     (format-mode-line "%l:%c"))))

;; --- 4. 设置与隐藏 ---
(setq-default header-line-format '((:eval (my-header-line-render))))
(setq-default mode-line-format nil)

;; 只有在这些动作发生时才更新，而不是每次移动光标都更新
(dolist (hook '(evil-normal-state-entry-hook
                evil-insert-state-entry-hook
                evil-visual-state-entry-hook
                after-save-hook      ;; 保存后更新
                window-configuration-change-hook)) ;; 切换窗口后更新
  (add-hook hook #'force-mode-line-update))

感觉是非常不错呢

自己定义了一个主题

最近看了alabaster关于写代码的主题讲解, 我在之前没有这个的时候，使用cursor 选择了这个主题，发现非常适合写go语言，同时这个哲学我也非常喜欢,if for 这种关键最没有必要高亮，本身就是代码的一部分 ,string bool 这种值才是重要的，还有定义的函数名这些都是非常重要的 ,不过他的字体好像是不使用字体变形，我是非常喜欢字体变形的,而且一些花式斜体会给代码带来一种美感, 所以我可能会将比如注释什么的使用字体作为区别，而不是高亮,而且我又非常喜欢gruvbox light 主题，所以我做了一个mini版，自己用, 欢迎大家尝试

;; Gruvbox Light Minimal Theme - 基于Alabaster设计理念

;; Gruvbox Light 配色
(defconst my-gruvbox-colors
  '((bg       . "#fbf1c7")    ; 背景
    (fg       . "#3c3836")    ; 前景
    (bg-hard  . "#f9f5d7")    ; 硬背景
    (bg-soft  . "#f2e5bc")    ; 软背景
    (bg-more-soft . "#f7efd0");更浅
    (string   . "#79740e")    ; 绿色 - 字符串
    (const    . "#8f3f71")    ; 紫色 - 常量
    (comment  . "#458588")    ; 蓝色 - 注释(高对比度)
    (def      . "#af3a03")    ; 橙色 - 全局定义
    (dim      . "#928374")    ; 灰色 - UI元素
    (error    . "#cc241d")    ; 红色
    (warning  . "#d79921")    ; 黄色
    (search    . "#d79921")    ; 搜索背景))
    ))

;; 应用主题设置
(defun my-gruvbox-minimal-setup ()
  "设置Gruvbox Minimal主题"
  (interactive)

  ;; 基础设置
  (set-background-color (cdr (assoc 'bg my-gruvbox-colors)))
  (set-foreground-color (cdr (assoc 'fg my-gruvbox-colors)))
  (set-cursor-color (cdr (assoc 'fg my-gruvbox-colors)))

  ;; 自定义face设置 - Alabaster风格的4类高亮
  (custom-set-faces
   ;; 基础
   `(default ((t (:background ,(cdr (assoc 'bg my-gruvbox-colors))
                        :foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))

   `(region ((t (:background ,(cdr (assoc 'bg-soft my-gruvbox-colors))))))

   ;; Mode line
   `(mode-line ((t (:background ,(cdr (assoc 'bg-hard my-gruvbox-colors))
                        :foreground ,(cdr (assoc 'fg my-gruvbox-colors))
                        :box nil))))
   `(mode-line-inactive ((t (:background ,(cdr (assoc 'bg-soft my-gruvbox-colors))
                              :foreground ,(cdr (assoc 'dim my-gruvbox-colors))
                              :box nil))))

   ;; 1. 字符串 - 绿色，最突出
   `(font-lock-string-face ((t (:foreground ,(cdr (assoc 'string my-gruvbox-colors))))))

   ;; 2. 静态常量 - 紫色
   `(font-lock-constant-face ((t (:foreground ,(cdr (assoc 'const my-gruvbox-colors))))))
   `(font-lock-number-face ((t (:foreground ,(cdr (assoc 'const my-gruvbox-colors))))))

   ;; 3. 注释 - 蓝色，高对比度
   `(font-lock-comment-face ((t (:foreground ,(cdr (assoc 'comment my-gruvbox-colors))))))
   `(font-lock-comment-delimiter-face ((t (:foreground ,(cdr (assoc 'comment my-gruvbox-colors))))))

   ;; 4. 全局定义 - 橙色
   `(font-lock-function-name-face ((t (:foreground ,(cdr (assoc 'def my-gruvbox-colors))))))
   `(font-lock-variable-name-face ((t (:foreground ,(cdr (assoc 'def my-gruvbox-colors))))))

   ;; 不高亮标准语言关键词 - 使用默认前景色
   `(font-lock-keyword-face ((t (:foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))
   `(font-lock-type-face ((t (:foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))
   `(font-lock-builtin-face ((t (:foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))
   `(font-lock-operator-face ((t (:foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))

   ;; 错误和警告
   `(error ((t (:foreground ,(cdr (assoc 'error my-gruvbox-colors))))))
   `(warning ((t (:foreground ,(cdr (assoc 'warning my-gruvbox-colors))))))

   ;; 其他UI
   `(fringe ((t (:background ,(cdr (assoc 'bg my-gruvbox-colors))))))
   `(line-number ((t (:foreground ,(cdr (assoc 'dim my-gruvbox-colors))
                        :background ,(cdr (assoc 'bg my-gruvbox-colors))))))
   `(line-number-current-line ((t (:foreground ,(cdr (assoc 'fg my-gruvbox-colors))
                                  :background ,(cdr (assoc 'bg-soft my-gruvbox-colors))))))

   ;; 搜索
   `(isearch ((t (:background ,(cdr (assoc 'search my-gruvbox-colors))
                    :foreground ,(cdr (assoc 'bg my-gruvbox-colors))))))
   `(lazy-highlight ((t (:background ,(cdr (assoc 'bg-soft my-gruvbox-colors))
                          :foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))

   ;; 括号匹配
   `(show-paren-match ((t (:background ,(cdr (assoc 'bg-soft my-gruvbox-colors))))))
   `(show-paren-mismatch ((t (:background ,(cdr (assoc 'error my-gruvbox-colors))
                               :foreground ,(cdr (assoc 'bg my-gruvbox-colors))))))

   ;; Minibuffer
   `(minibuffer-prompt ((t (:foreground ,(cdr (assoc 'const my-gruvbox-colors))))))

   ;; Org-mode (最小化)
   `(org-level-1 ((t (:foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))
   `(org-level-2 ((t (:foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))
   `(org-level-3 ((t (:foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))
   `(org-link ((t (:foreground ,(cdr (assoc 'const my-gruvbox-colors)) :underline t))))
   `(org-code ((t (:foreground ,(cdr (assoc 'string my-gruvbox-colors))))))
   `(org-verbatim ((t (:foreground ,(cdr (assoc 'const my-gruvbox-colors))))))
   `(org-comment ((t (:foreground ,(cdr (assoc 'comment my-gruvbox-colors))))))
   `(org-todo ((t (:foreground ,(cdr (assoc 'error my-gruvbox-colors))))))
   `(org-done ((t (:foreground ,(cdr (assoc 'string my-gruvbox-colors))))))
   `(org-block ((t (:background ,(cdr (assoc 'bg-hard my-gruvbox-colors))
                                :foreground ,(cdr (assoc 'fg my-gruvbox-colors))))))
   `(hl-line ((t (:background ,(cdr (assoc 'bg-more-soft my-gruvbox-colors)) :extend t))))
   `(header-line ((t (:background ,(cdr (assoc 'bg-soft my-gruvbox-colors))
                                  :foreground,(cdr (assoc 'fg my-gruvbox-colors))
                                  :box nil
                                  :underline nil
                                  :inherit nil
                                  ))))

   ;;consult
   `(consult-highlight-line ((t (:background ,(cdr (assoc 'bg-more-soft my-gruvbox-colors)) :extend t))))
   `(consult-preview-match ((t (:foreground ,(cdr (assoc 'comment my-gruvbox-colors)) :background nil))))
   `(completions-common-part ((t (:foreground ,(cdr (assoc 'const my-gruvbox-colors)) :weight normal))))
   `(completions-first-difference ((t (:foreground ,(assoc-default 'fg my-gruvbox-colors) :weight normal))))

   ;;vertice
   `(vertico-current ((t (:background ,(cdr (assoc 'bg-soft my-gruvbox-colors)) :extend t))))
  ))

;; 禁用字体变体
(setq font-lock-maximum-decoration nil
      font-lock-use-default-fonts nil)

;; 自动启用主题
(my-gruvbox-minimal-setup)

;; 提供重新加载函数
(defun my-gruvbox-minimal-reload ()
  "重新加载Gruvbox Minimal主题"
  (interactive)
  (my-gruvbox-minimal-setup))

(provide 'init-my-theme)

2025-12-27 该篇文章被 apple115 打上标签: emacs