oreodave/dotfiles
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Aryadev Chavali
2024-10-01 14:30:55 +01:00
parent b06202b882
commit 8cbf1518d2
2 changed files with 14 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Emacs/.config/emacs/elisp/hide-mode-line.el
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