Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (setq display-time-mail-file 0)
- (setq display-time-default-load-average nil)
- (setq display-time-24hr-format t)
- (display-time-mode 1)
- (display-battery-mode 1)
- (setq battery-mode-line-format " %b%p%%")
- ;; Xah Fly Keys Mode-Line faces
- (make-face 'mode-line-xfk-insert-face)
- (set-face-attribute 'mode-line-xfk-insert-face nil
- :inherit 'mode-line-face
- :background "darkgreen"
- :foreground "green"
- :weight 'bold)
- (make-face 'mode-line-xfk-command-face)
- (set-face-attribute 'mode-line-xfk-command-face nil
- :inherit 'mode-line-face
- :background "darkred"
- :foreground "red"
- :weight 'bold)
- ;; Other Mode-Line faces
- (make-face 'mode-line-major-mode-face)
- (set-face-attribute 'mode-line-major-mode-face nil
- :inherit 'mode-line-face
- :weight 'bold)
- (set-face-attribute 'mode-line-buffer-id nil
- :inherit 'mode-line-face
- :weight 'bold
- :inverse-video nil
- :background "gray"
- :foreground "darkblue")
- (setq-default mode-line-format
- (list "%e"
- '(:eval (if xah-fly-insert-state-q
- (propertize "INS>"
- 'face 'mode-line-xfk-insert-face)
- (propertize "COM>"
- 'face 'mode-line-xfk-command-face)))
- "%+%*"
- '(:propertize " %b " face mode-line-buffer-id)
- "[L%l/%I]("
- '(:propertize mode-name face mode-line-major-mode-face)
- '(:propertize minor-mode-alist)
- ") "
- mode-line-misc-info
- ;; "%-"
- ))
- ;; Use for testing
- ;; (setq xah-fly-insert-state-q nil)
- ;; (setq xah-fly-insert-state-q t)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement