From 77af8db6fc77342281b7c4f5b1e7c802319ad1be Mon Sep 17 00:00:00 2001 From: Alan Pearce Date: Wed, 6 Dec 2017 11:41:10 +0100 Subject: Emacs: Remove hide/show mode-line functions Too complicated; didn't really use --- emacs/.emacs.d/main.el | 43 ------------------------------------------- 1 file changed, 43 deletions(-) diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el index ffa9c0f..0f50e87 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. -- cgit 1.4.1