Emacs: Remove hide/show mode-line functions

Too complicated; didn't really use

1 files changed, 0 insertions, 43 deletions

diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index ffa9c0f1..0f50e873 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -259,46 +259,8 @@
 
 ;;;;; Chrome
 
-;; Sometimes I like to hide clutter.  Other times, it's useful.
-
-(defvar mode-line-default-format mode-line-format)
-(defvar mode-line-default-hidden nil
-  "Whether to hide the mode line by default.")
-
-(defun show-mode-line ()
-  (interactive)
-  (setq mode-line-format mode-line-default-format)
-  (when (called-interactively-p 'interactive)
-    (setq-default mode-line-format mode-line-default-format)
-    (setq mode-line-default-hidden nil)))
-(defun hide-mode-line ()
-  (interactive)
-  (setq mode-line-format nil)
-  (when (called-interactively-p 'interactive)
-    (setq-default mode-line-format nil)
-    (setq mode-line-default-hidden t)))
-
 (setq-default cursor-in-non-selected-windows nil)
 
-(defun hide-clutter ()
-  (interactive)
-  (hide-mode-line))
-
-(defun show-clutter ()
-  (interactive)
-  (show-mode-line))
-
-(when mode-line-default-hidden
-  (call-interactively #'hide-mode-line))
-
-(setq-default indicate-buffer-boundaries nil)
-(fringe-mode '(4 . 4))
-
-(defun hide-mode-line-if-default-hidden ()
-  (if mode-line-default-hidden
-      (hide-mode-line)
-    (show-mode-line)))
-
 (add-to-list 'default-frame-alist '(border-width . 0))
 (add-to-list 'default-frame-alist '(internal-border-width . 0))
 (when (or (eq window-system 'x)
@@ -308,11 +270,6 @@
         window-divider-default-places t)
   (window-divider-mode +1))
 
-(add-hook 'after-change-major-mode-hook #'hide-mode-line-if-default-hidden)
-
-(add-hook 'minibuffer-setup-hook #'show-mode-line)
-(add-hook 'minibuffer-exit-hook #'hide-mode-line)
-
 ;;;;; Highlight Changes
 
 ;; Highlight what just changed when I undo, yank, and so on.