From 8cbf1518d2db8bbc83688bddd563bdbfc1d51607 Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Tue, 1 Oct 2024 14:30:55 +0100 Subject: (Emacs/elisp)~hide-mode-line is a globalised minor-mode --- Emacs/.config/emacs/elisp/hide-mode-line.el | 20 +++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) (limited to 'Emacs/.config/emacs/elisp') diff --git a/Emacs/.config/emacs/elisp/hide-mode-line.el b/Emacs/.config/emacs/elisp/hide-mode-line.el index 488bf3f..d7be502 100644 --- a/Emacs/.config/emacs/elisp/hide-mode-line.el +++ b/Emacs/.config/emacs/elisp/hide-mode-line.el @@ -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 -- cgit v1.2.3-13-gbd6f