diff options
| -rw-r--r-- | tag-emacs/emacs.d/init.org | 25 |
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 |