Emacs: Try basic-theme instead of minimal-light
Alan Pearce alan@alanpearce.uk
Tue, 06 Dec 2016 13:43:06 +0100
1 files changed, 25 insertions(+), 0 deletions(-)
jump to
M tag-emacs/emacs.d/init.org → tag-emacs/emacs.d/init.org
@@ -130,8 +130,33 @@ 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.