(Emacs/elisp)~hide-mode-line is a globalised minor-mode

This commit is contained in:
2024-10-01 14:30:55 +01:00
parent b06202b882
commit 8cbf1518d2
2 changed files with 14 additions and 8 deletions

View File

@@ -1524,7 +1524,7 @@ Custom minor mode to toggle the mode line. Check it out at
:defer t
:general
(mode-leader
"m" #'hide-mode-line-mode))
"m" #'global-hide-mode-line-mode))
#+end_src
** Save place
Saves current place in a buffer permanently, so on revisiting the file

View File

@@ -25,14 +25,20 @@
(defvar hide-mode-line--prev-mode-line nil)
(define-minor-mode
hide-mode-line-mode
"Hides the mode line."
(define-minor-mode hide-mode-line-mode
"Minor mode for hiding model lines"
:lighter nil
(if mode-line-format
(setq-local hide-mode-line--prev-mode-line mode-line-format
mode-line-format nil)
(setq-local mode-line-format hide-mode-line--prev-mode-line)))
(cond
((and mode-line-format hide-mode-line-mode)
(setq-local hide-mode-line-mode t
hide-mode-line--prev-mode-line mode-line-format
mode-line-format nil))
(t (setq-local hide-mode-line nil
mode-line-format hide-mode-line--prev-mode-line
hide-mode-line--prev-mode-line nil))))
(define-globalized-minor-mode global-hide-mode-line-mode hide-mode-line-mode
(lambda nil (hide-mode-line-mode t)))
(provide 'hide-mode-line)
;;; hide-mode-line.el ends here