根据主要模式更改 Emacs Mode-Line 颜色

Question

我想看看有没有办法根据major-mode改变mode-link前景色和背景色，

我正在考虑在

中添加逻辑

(add-hook 'after-change-major-mode-hook

但是，我没有 emacs lisp 的所有经验来做出这样的改变。逻辑如下：

switch major-mode:
case "emacs-lisp-mode":
  (set-face-foreground 'mode-line "ivory")
  (set-face-background 'mode-line "DarkOrange2")
case "ruby-mode":
  (set-face-foreground 'mode-line "white")
  (set-face-background 'mode-line "red")
...
default:
  (set-face-foreground 'mode-line "black")
  (set-face-background 'mode-line "white")
end switch

提前非常感谢！

Answer 1

你可能想要这样的东西：

(add-hook 'emacs-lisp-mode-hook
          (lambda ()
            (face-remap-add-relative
             'mode-line '((:foreground "ivory" :background "DarkOrange2") mode-line))))

您可能还想对mode-line-inactive 面部使用面部重映射。

Answer 2

你所说的“逻辑”是这样的：

(add-hook 'after-change-major-mode-hook 'my-set-mode-line-colors)
(defvar my-mode-line-colors
  '((emacs-lisp-mode :foreground "ivory" :background "DarkOrange2")
    (ruby-mode :foreground "white" :background "red")))
(defun my-set-mode-line-colors ()
  (face-remap-add-relative
   'mode-line (list (or (cdr (assq major-mode my-mode-line-colors))
                        '(:foreground "black" :background "white"))
                    'mode-line)))

或者，您可以按照 Stefan 的建议，通过特定于模式的挂钩来执行此操作。