Emacs: prettify mode line with moody

1 files changed, 11 insertions, 0 deletions

diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index 1484dd7e..7611a3ad 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -139,6 +139,12 @@
 ;;;;; Colours
 
 (load-theme 'spacemacs-light t)
+(let ((line (face-attribute 'mode-line :underline)))
+    (set-face-attribute 'mode-line          nil :overline   line)
+    (set-face-attribute 'mode-line-inactive nil :overline   line)
+    (set-face-attribute 'mode-line-inactive nil :underline  line)
+    (set-face-attribute 'mode-line          nil :box        nil)
+    (set-face-attribute 'mode-line-inactive nil :box        nil))
 
 ;; Highlighting quasi-quoted expressions in lisps is quite useful, but I
 ;; don't need it all the time.  I'll keep it around for a while so that I
@@ -247,6 +253,11 @@
             (setq minions-mode-line-lighter "Others")
             (minions-mode +1)))
 
+(use-package moody
+  :config (progn
+            (setq x-underline-at-descent-line t)
+            (moody-replace-mode-line-buffer-identification)
+            (moody-replace-vc-mode)))
 
 ;;;; Environment Variables