diff options
author | Alan Pearce | 2016-12-07 16:17:26 +0100 |
---|---|---|
committer | Alan Pearce | 2016-12-07 16:17:26 +0100 |
commit | a914a8e9c912aa19dad85d307234bbe5eea1754d (patch) | |
tree | b8a4e13e2ff2b99925980002544a6da5f642eb4e /tag-emacs | |
parent | e67e9b5e221d9b64330a148cbedaf0eef3217df4 (diff) | |
download | dotfiles-a914a8e9c912aa19dad85d307234bbe5eea1754d.tar.lz dotfiles-a914a8e9c912aa19dad85d307234bbe5eea1754d.tar.zst dotfiles-a914a8e9c912aa19dad85d307234bbe5eea1754d.zip |
Emacs: Toggle clutter
Diffstat (limited to 'tag-emacs')
-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 ab74728..36907eb 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 |