| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162 |
- (provide 'conf-powerline)
- (require 'powerline)
- (call-interactively 'display-time-mode)
- (defun powerline-distopico-theme ()
- "Setup the default mode-line."
- (interactive)
- (setq-default mode-line-format
- '("%e"
- (:eval
- (let* ((active (powerline-selected-window-active))
- (mode-line (if active 'mode-line 'mode-line-inactive))
- (face1 (if active 'powerline-active1 'powerline-inactive1))
- (face2 (if active 'powerline-active2 'powerline-inactive2))
- (separator-left (intern (format "powerline-%s-%s"
- powerline-default-separator
- (car powerline-default-separator-dir))))
- (separator-right (intern (format "powerline-%s-%s"
- powerline-default-separator
- (cdr powerline-default-separator-dir))))
- (lhs (list (powerline-raw "%*" nil 'l)
- ;(powerline-buffer-size nil 'l)
- ;(powerline-raw mode-line-mule-info nil 'l)
- (powerline-buffer-id nil 'l)
- (when (and (boundp 'which-func-mode) which-func-mode)
- (powerline-raw which-func-format nil 'l))
- (powerline-raw " ")
- (funcall separator-left mode-line face1)
- (when (boundp 'erc-modified-channels-object)
- (powerline-raw erc-modified-channels-object face1 'l))
- (powerline-major-mode face1 'l)
- (powerline-process face1)
- ;(powerline-minor-modes face1 'l)
- (powerline-narrow face1 'l)
- (powerline-raw " " face1)
- (funcall separator-left face1 face2)
- (powerline-vc face2 'r)))
- (rhs (list (powerline-raw global-mode-string face2 'r)
- (funcall separator-right face2 face1)
- (powerline-raw "%4l" face1 'r)
- (powerline-raw ":" face1 'l)
- (powerline-raw "%3c" face1 'r)
- (funcall separator-right face1 mode-line)
- (powerline-raw " ")
- (powerline-raw "%6p" nil 'r)
- (powerline-hud face2 face1))))
- (concat (powerline-render lhs)
- (powerline-fill face2 (powerline-width rhs))
- (powerline-render rhs)))))))
- (powerline-distopico-theme)
- (setq powerline-default-separator 'wave)
- (custom-set-faces
- '(powerline-active1 ((t (:foreground "#f9f9f9" :background "#123550" :box nil))))
- '(powerline-active2 ((t (:foreground "#f9f9f9" :background "#112230" :box nil))))
- )
- ;#112230
|
