Emacs: Try basic-theme instead of minimal-light

1 files changed, 25 insertions, 0 deletions

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 6f385fa8..82a2c0ee 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