From a914a8e9c912aa19dad85d307234bbe5eea1754d Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Wed, 7 Dec 2016 16:17:26 +0100
Subject: Emacs: Toggle clutter

---
 tag-emacs/emacs.d/init.org | 53 +++++++++++++++++++++++++++++++++-------------
 1 file changed, 38 insertions(+), 15 deletions(-)

(limited to 'tag-emacs')

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
 
-- 
cgit 1.4.1