emacs - change color in mode-line yellow for
authorPeng Li <seudut@gmail.com>
Mon, 18 Jul 2016 09:43:55 +0000 (17:43 +0800)
committerPeng Li <seudut@gmail.com>
Mon, 18 Jul 2016 09:43:55 +0000 (17:43 +0800)
emacs.d/config.org

index 4fff7f3..e3b3304 100644 (file)
@@ -413,6 +413,15 @@ Revised powerline-center-theme
         (replace-regexp-in-string "Git[:-]" "" s)
       s))
 
+  (defface sd/powerline-active1 '((t (:background "yellow" :foreground "red" :inherit mode-line)))
+    "My Powerline face 1 based on powerline-active1."
+    :group 'powerline)
+
+  (defface sd/mode-line-buffer-id
+    '((t (:background "yellow" :foreground "black" :inherit mode-line-buffer-id)))
+    "Powerline mode-line face"
+    :group 'powerline)
+
   (defun sd/powerline-center-theme_revised ()
     "Setup a mode-line with major and minor modes centered."
     (interactive)
@@ -420,8 +429,9 @@ Revised powerline-center-theme
                   '("%e"
                     (:eval
                      (let* ((active (powerline-selected-window-active))
-                            (mode-line-buffer-id (if active 'mode-line-buffer-id 'mode-line-buffer-id-inactive))
+                            (mode-line-buffer-id (if active 'sd/mode-line-buffer-id 'mode-line-buffer-id-inactive))
                             (mode-line (if active 'mode-line 'mode-line-inactive))
+                            (my-face1 (if active 'sd/powerline-active1 'powerline-inactive1))
                             (face1 (if active 'powerline-active1 'powerline-inactive1))
                             (face2 (if active 'powerline-active2 'powerline-inactive2))
                             (separator-left (intern (format "powerline-%s-%s"
@@ -430,23 +440,22 @@ Revised powerline-center-theme
                             (separator-right (intern (format "powerline-%s-%s"
                                                              (powerline-current-separator)
                                                              (cdr powerline-default-separator-dir))))
-                            (lhs (list (powerline-raw "%*" mode-line 'l)
+                            (lhs (list (powerline-raw "%*" my-face1 'l)
                                        ;; (powerline-buffer-size mode-line 'l)
                                        (powerline-buffer-id mode-line-buffer-id 'l)
-                                       (powerline-raw " ")
-                                       (funcall separator-left mode-line face1)
+                                       (powerline-raw " " my-face1)
+                                       (funcall separator-left my-face1 face1)
                                        (powerline-narrow face1 'l)
                                        ;; (powerline-vc face1)
-                                       (sd/powerline-simpler-vc (powerline-vc face1))
-                                       ))
+                                       (sd/powerline-simpler-vc (powerline-vc face1))))
                             (rhs (list (powerline-raw global-mode-string face1 'r)
                                        (powerline-raw "%4l" face1 'r)
-                                       (powerline-raw ":" face1)
+                                       (powerline-raw ":" face1)     
                                        (powerline-raw "%3c" face1 'r)
-                                       (funcall separator-right face1 mode-line)
-                                       (powerline-raw " ")
-                                       (powerline-raw "%6p" mode-line 'r)
-                                       (powerline-hud face2 face1)))
+                                       (funcall separator-right face1 my-face1)
+                                       (powerline-raw " " my-face1)              
+                                       (powerline-raw "%6p" my-face1 'r)
+                                       (powerline-hud my-face1 face1 )))
                             (center (list (powerline-raw " " face1)
                                           (funcall separator-left face1 face2)
                                           (when (and (boundp 'erc-track-minor-mode) erc-track-minor-mode)