Browse Source
It, well, hides the mode line! Copied from http://emacs-doctor.com/emacs-strip-tease.htmlgerrit-package
2 changed files with 27 additions and 2 deletions
@ -0,0 +1,24 @@
|
||||
;; Copied from http://emacs-doctor.com/emacs-strip-tease.html |
||||
|
||||
(defvar hidden-mode-line-mode nil) |
||||
(defvar hide-mode-line nil) |
||||
|
||||
(define-minor-mode hidden-mode-line-mode |
||||
"Minor mode to hide the mode-line in the current buffer." |
||||
:init-value nil |
||||
:global nil |
||||
:variable hidden-mode-line-mode |
||||
:group 'editing-basics |
||||
(if hidden-mode-line-mode |
||||
(setq hide-mode-line mode-line-format |
||||
mode-line-format nil) |
||||
(setq mode-line-format hide-mode-line |
||||
hide-mode-line nil)) |
||||
(force-mode-line-update) |
||||
(redraw-display) |
||||
(when (and (called-interactively-p 'interactive) |
||||
hidden-mode-line-mode) |
||||
(run-with-idle-timer |
||||
0 nil 'message |
||||
(concat "Hidden Mode Line Mode enabled. " |
||||
"Use M-x hidden-mode-line-mode to make mode-line appear.")))) |
Loading…
Reference in new issue