बदलें Emacs मोड लाइन रंग प्रमुख मोड

Question

मैं अगर वहाँ एक रास्ता मोड लिंक अग्रभूमि और प्रमुख मोड पर पृष्ठभूमि रंग बदलने के लिए आधार है देखना पसंद के आधार पर,

मैं जोड़ने के लिए सोच रहा था

(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

आप शायद कुछ ऐसा करना चाहते हैं।

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

वैकल्पिक रूप से, आप कर सकते हैं कि मोड विशेष हुक, के रूप में स्टीफन ने सुझाव दिया है।

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

साथ ही आप mode-line-inactive चेहरे के लिए आमने-remap का उपयोग करना चाहें: