improve face

diff --git a/emacs.d/elisp/my-mode-line.el b/emacs.d/elisp/my-mode-line.el
index 525aecb..2e6f88c 100644 (file)
--- a/emacs.d/elisp/my-mode-line.el
+++ b/emacs.d/elisp/my-mode-line.el
@@ -113,12 +113,14 @@ window type."
   ;;     (equal major-mode 'eshell-mode))
   )
 
-(defun my-get-buffer-name-face (active-face)
-  (cond (buffer-read-only 
-        'sd/buffer-view-active1)
-       ((and (buffer-modified-p) (not (my-is-special-buffer)))
-        'sd/buffer-modified-active1)
-       (t active-face)))
+(defun my-get-buffer-name-face (orignal-face &optional active)
+  (cond
+   ((not active) orignal-face)
+   (buffer-read-only 
+    'sd/buffer-view-active1)
+   ((and (buffer-modified-p) (not (my-is-special-buffer)))
+    'sd/buffer-modified-active1)
+   (t orignal-face)))
 
 (defun sd/powerline-center-theme_revised-2 ()
   "Setup a mode-line with major and minor modes centered."
@@ -139,27 +141,27 @@ window type."
                           (lhs (cond ((or (= window-type 1) (= window-type 2))
                                      (my-build-left-below-mode-line separator-left lface face1))
                                     ((or (= window-type 3) (= window-type 6))
-                                     (list (powerline-buffer-id (my-get-buffer-name-face lface) 'l)
-                                           (powerline-raw "%* " (my-get-buffer-name-face lface))
-                                           (funcall separator-left (my-get-buffer-name-face lface) face1 )))
+                                     (list (powerline-buffer-id (my-get-buffer-name-face lface active) 'l)
+                                           (powerline-raw "%* " (my-get-buffer-name-face lface active))
+                                           (funcall separator-left (my-get-buffer-name-face lface active) face1 )))
                                     (t
                                      nil)))
                           (center (cond ((or (= window-type 1) (= window-type 4))
                                         (list (powerline-raw " " face1)
-                                              (funcall separator-right face1 (my-get-buffer-name-face cface))
-                                              (powerline-raw "%*" (my-get-buffer-name-face cface))
-                                              (powerline-buffer-id (my-get-buffer-name-face cface) 'r)
-                                              (funcall separator-left (my-get-buffer-name-face cface) face1)))
+                                              (funcall separator-right face1 (my-get-buffer-name-face cface active))
+                                              (powerline-raw "%*" (my-get-buffer-name-face cface active))
+                                              (powerline-buffer-id (my-get-buffer-name-face cface active) 'r)
+                                              (funcall separator-left (my-get-buffer-name-face cface active) face1)))
                                        (t
                                         nil)))
                          (rhs (cond ((or (= window-type 1) (= window-type 3))
                                      (list (funcall separator-right face1 rface)
                                            (powerline-raw (format-time-string " %I:%M %p ") rface 'r)))
                                     ((or (= window-type 2) (= window-type 5))
-                                     (list (funcall separator-right face1 (my-get-buffer-name-face rface))
-                                           (powerline-raw "%*" (my-get-buffer-name-face rface))
-                                           (powerline-buffer-id (my-get-buffer-name-face rface) 'r)
-                                           (powerline-raw " " (my-get-buffer-name-face rface))))
+                                     (list (funcall separator-right face1 (my-get-buffer-name-face rface active))
+                                           (powerline-raw "%*" (my-get-buffer-name-face rface active))
+                                           (powerline-buffer-id (my-get-buffer-name-face rface active) 'r)
+                                           (powerline-raw " " (my-get-buffer-name-face rface active))))
                                     (t
                                      nil))))
                      (concat (powerline-render lhs)