Emacs: Remove hide/show mode-line functions Too complicated; didn't really use
Alan Pearce alan@alanpearce.eu
Wed, 06 Dec 2017 11:41:10 +0100
1 files changed, 0 insertions(+), 43 deletions(-)
jump to
M emacs/.emacs.d/main.el → emacs/.emacs.d/main.el
@@ -259,46 +259,8 @@ (setq-default mode-line-format (spaceline-spacemacs-theme)))) ;;;;; 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) @@ -307,11 +269,6 @@ (setq window-divider-default-bottom-width 1 window-divider-default-right-width 1 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