Thay đổi màu chế độ dòng Emacs dựa trên chế độ chính

Question

Tôi muốn xem liệu có cách nào để thay đổi chế độ nền trước và nền màu chế độ trên chế độ chính,

Tôi đã suy nghĩ để thêm logic trong số

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

Nhưng, tôi không có tất cả các emacs lisp kinh nghiệm để thực hiện thay đổi đó. Đây là logic:

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 

Rất cám ơn trước !.

Answer 1

Bạn có thể muốn một cái gì đó như:

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

Bạn có thể muốn sử dụng mặt remap cho khuôn mặt mode-line-inactive là tốt.

Answer 2

"Logic" bạn đang nói về cái gì đó như thế này:

(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))) 

Ngoài ra, bạn có thể làm điều đó từ móc chế độ cụ thể, theo đề nghị của Stefan.