;; (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."
(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)