emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Replace doom-hide-modeline-mode w/ hide-mode-line-mode #423

Browse source
This commit is contained in:
Henrik Lissner 2018-03-02 17:40:51 -05:00
parent 9a1bf42075
commit 5c9ef4ee38
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
5 changed files with 12 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

48
core/core-ui.el
View file

@ -80,48 +80,6 @@ with `doom//reload-theme').")
(fset #'yes-or-no-p #'y-or-n-p) ; y/n instead of yes/no
;;
;; A minor mode for hiding the mode-line
;;
(defvar doom--modeline-format nil
"The modeline format to use when `doom-hide-modeline-mode' is active. Don't
set this directly. Let-bind it instead.")
(defvar-local doom--old-modeline-format nil
"The old modeline format, so `doom-hide-modeline-mode' can revert when it's
disabled.")
(define-minor-mode doom-hide-modeline-mode
"Minor mode to hide the mode-line in the current buffer."
:init-value nil
:global nil
(if doom-hide-modeline-mode
(progn
(add-hook 'after-change-major-mode-hook #'doom|hide-modeline-mode-reset nil t)
(setq doom--old-modeline-format mode-line-format
mode-line-format doom--modeline-format))
(remove-hook 'after-change-major-mode-hook #'doom|hide-modeline-mode-reset t)
(setq mode-line-format doom--old-modeline-format))
(force-mode-line-update))
;; Ensure major-mode or theme changes don't overwrite these variables
(put 'doom--old-modeline-format 'permanent-local t)
(put 'doom-hide-modeline-mode 'permanent-local t)
(put 'doom-hide-modeline-mode 'permanent-local-hook t)
(put 'doom|hide-modeline-mode-reset 'permanent-local-hook t)
(defun doom|hide-modeline-mode-reset ()
"Sometimes, a major-mode is activated after `doom-hide-modeline-mode' is
activated, thus disabling it (because changing major modes invokes
`kill-all-local-variables' and specifically seems to kill `mode-line-format's
local value, whether or not it's permanent-local. Therefore, we cycle
`doom-hide-modeline-mode' to fix this."
(when doom-hide-modeline-mode
(doom-hide-modeline-mode -1)
(doom-hide-modeline-mode +1)))
;;
;; Modeline library
;;
@ -217,6 +175,10 @@ DEFAULT is non-nil, set the default mode-line for all buffers."
:commands (hs-minor-mode hs-toggle-hiding hs-already-hidden-p)
:config (setq hs-hide-comments-when-hiding-all nil))
(def-package! hide-mode-line
:commands hide-mode-line-mode
:init (add-hook 'completion-list-mode-hook #'hide-mode-line-mode))
(def-package! highlight-indentation
:commands (highlight-indentation-mode highlight-indentation-current-column-mode))
@ -507,8 +469,6 @@ character that looks like a space that `whitespace-mode' won't affect.")
;; a good indicator that Emacs isn't frozen
(add-hook 'doom-init-ui-hook #'blink-cursor-mode)
;; no modeline in completion popups
(add-hook 'completion-list-mode-hook #'doom-hide-modeline-mode)
;; line numbers in most modes
(add-hook! (prog-mode text-mode conf-mode) #'doom|enable-line-numbers)