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

2
Emacs/.config/emacs/config.org
View File

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

20
Emacs/.config/emacs/elisp/hide-mode-line.el
View File

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