From 03e240d079107013954ad36881a0aed9c5a86e06 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Mon, 27 May 2019 16:02:24 +0200
Subject: Emacs: prettify mode line with moody

---
 emacs/.emacs.d/main.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'emacs/.emacs.d')

diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index 1484dd7..7611a3a 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
 
-- 
cgit 1.4.1