diff options
| -rw-r--r-- | tag-emacs/emacs.d/init.org | 53 |
1 files changed, 38 insertions, 15 deletions
diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org index ab747283..36907eb5 100644 --- a/tag-emacs/emacs.d/init.org +++ b/tag-emacs/emacs.d/init.org @@ -141,22 +141,44 @@ Let’s try a basic theme. (use-package basic-theme :config (progn (load-theme 'basic t) + (defun show-mode-line () + (interactive) + (let ((faces-to-toggle '(mode-line mode-line-inactive))) + (mapcar (lambda (face) + (set-face-background face "#a1b56c") + (set-face-attribute face nil :height (face-attribute 'default :height))) + faces-to-toggle))) + (defun hide-mode-line () + (interactive) + (let ((faces-to-toggle '(mode-line mode-line-inactive))) + (mapcar (lambda (face) + (set-face-background face "#e8e8e8") + (set-face-attribute face nil :height 20)) + faces-to-toggle))) (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))) + (cond ((string= "#a1b56c" (face-attribute 'mode-line :background)) + (hide-mode-line)) + (t + (show-mode-line)))) + + (defun full-git-gutter-fringe-markers () + ) + + (defun hide-clutter () + (interactive) + (setq default-cursor-type 'bar + default-cursor-in-non-selected-windows nil) + (fringe-mode '(0 . 4)) + (hide-mode-line)) + + (defun show-clutter () + (interactive) + (setq default-cursor-type 'box + default-cursor-in-non-selected-windows 'hollow) + (fringe-mode '(8 . 4)) + (show-mode-line)) + (hide-clutter))) #+END_SRC Highlighting quasi-quoted expressions in lisps is quite useful. @@ -471,7 +493,8 @@ fringe so it doesn’t interfere with flycheck. :defer 2 :diminish git-gutter-mode :config (progn - (global-git-gutter-mode) + (global-git-gutter-mode 1) + (set-face-foreground 'git-gutter:modified "grey") (setq git-gutter-fr:side 'right-fringe))) #+END_SRC |