From a9c83c6d0a04425fbda8735d91edef7d34f24d79 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Tue, 6 Dec 2016 13:43:06 +0100
Subject: Emacs: Try basic-theme instead of minimal-light

---
 tag-emacs/emacs.d/init.org | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'tag-emacs')

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 6f385fa..82a2c0e 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -130,10 +130,35 @@ Let’s try a more minimal theme.
 
 #+BEGIN_SRC emacs-lisp
   (use-package minimal-theme
+    :disabled t
     :config (progn
               (load-theme 'minimal-light t)))
 #+END_SRC
 
+Let’s try a basic theme.
+
+#+BEGIN_SRC emacs-lisp
+  (use-package basic-theme
+    :config (progn
+              (load-theme 'basic t)
+              (defun mode-line-visual-toggle ()
+                (interactive)
+                (let ((faces-to-toggle '(mode-line mode-line-inactive))
+                      (invisible-color "#e8e8e8")
+                      (visible-color "#a1b56c"))
+                  (cond ((string= visible-color (face-attribute 'mode-line :background))
+                         (mapcar (lambda (face)
+                                   (set-face-background face invisible-color)
+                                   (set-face-attribute face nil :height 20))
+                                 faces-to-toggle))
+                        (t
+                         (mapcar (lambda (face)
+                                   (set-face-background face visible-color)
+                                   (set-face-attribute face nil :height (face-attribute 'default :height)))
+                                 faces-to-toggle)))))
+              (mode-line-visual-toggle)))
+#+END_SRC
+
 Highlighting quasi-quoted expressions in lisps is quite useful.
 #+BEGIN_SRC emacs-lisp
   (use-package highlight-stages
-- 
cgit 1.4.1