1 files changed, 95 insertions, 0 deletions

diff --git a/local-lib/powerline-conf.el b/local-lib/powerline-conf.el
new file mode 100644
index 0000000..e994f8c
--- /dev/null
+++ b/local-lib/powerline-conf.el
@@ -0,0 +1,95 @@
+;;; powerline-conf.el --- configuration for powerline
+;; Author: jason <jason@zzq.org>
+;; Created: 16 Jun 2017
+;; X-URL: https://github.com/milkypostman/powerline
+;;; Commentary:
+;;
+;; Styles the Emacs mode line
+;;
+;;; Code:
+(defface my/modeline-narrow-face
+  '((t (:foreground "black" :background "yellow3")))
+  "todo/fixme highlighting."
+  :group 'faces)
+
+(defface my/modeline-read-only-face
+  '((t (:foreground "black" :background "orange4")))
+  "Read-only buffer highlighting."
+  :group 'faces)
+
+(defface my/modeline-modified-face
+  '((t (:foreground "gray80" :background "red4")))
+  "Modified buffer highlighting."
+  :group 'faces)
+
+(defun powerline-my-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-current-separator)
+                                                          (car powerline-default-separator-dir))))
+                          (separator-right (intern (format "powerline-%s-%s"
+                                                           (powerline-current-separator)
+                                                           (cdr powerline-default-separator-dir))))
+                          (lhs (append (list (powerline-raw " "))
+                                       (let ((buffer-modified-str (if buffer-read-only
+                                                                      (if (buffer-modified-p) "%%*" "%%%%")
+                                                                    (if (buffer-modified-p) "**" "--"))))
+                                         (if buffer-read-only
+                                             (list (powerline-raw buffer-modified-str 'my/modeline-read-only-face))
+                                           (if (buffer-modified-p)
+                                               (list (powerline-raw buffer-modified-str 'my/modeline-modified-face))
+                                             (list (powerline-raw buffer-modified-str nil))))
+                                         )
+                                       (list
+                                        (when powerline-display-buffer-size
+                                          (powerline-buffer-size nil 'l))
+                                        (when powerline-display-mule-info
+                                          (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 (and (boundp 'erc-track-minor-mode) erc-track-minor-mode)
+                                          (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)
+                                        (when (bound-and-true-p nyan-mode)
+                                          (powerline-raw (list (nyan-create)) face2 'l)))))
+                          (rhs (list (powerline-raw global-mode-string face2 'r)
+                                     ;; (funcall separator-right face2 face1)
+                                     ;; (unless window-system
+                                     ;;   (powerline-raw (char-to-string #xe0a1) face1 'l))
+                                     (powerline-raw "%4l" face1 'l)
+                                     (powerline-raw ":" face1 'l)
+                                     (powerline-raw "%3c" face1 'r)
+                                     (funcall separator-right face1 mode-line)
+                                     (powerline-raw " ")
+                                     (powerline-raw "%6p" nil 'r)
+                                     (when powerline-display-hud
+                                       (powerline-hud face2 face1)))))
+                     (concat (powerline-render lhs)
+                             (powerline-fill face2 (powerline-width rhs))
+                             (powerline-render rhs)))))))
+
+(use-package powerline
+  :config
+  (setq powerline-default-separator 'wave
+        powerline-display-mule-info nil)
+
+  (powerline-my-theme))
+
+(provide 'powerline-conf)