Create the hidden-mode-line-mode

It, well, hides the mode line!

Copied from http://emacs-doctor.com/emacs-strip-tease.html
This commit is contained in:
Gergely Polonkai 2016-10-25 13:09:26 +02:00
parent 9b75a0777e
commit aaab4edfd6
2 changed files with 27 additions and 2 deletions

View File

@ -814,6 +814,7 @@
(load "buf-manipulation.el")
(load "package-manip")
(load "text-manip")
(load "frame-manip")
;; Define aliases
(defalias 'yes-or-no-p 'y-or-n-p)
@ -869,8 +870,8 @@
(global-set-key (kbd "C-x C-r") 'rename-current-buffer-file)
(global-set-key (kbd "C-x C-d") 'delete-current-buffer-file)
(global-set-key (kbd "C-x ~") 'toggle-char-case)
(define-key isearch-mode-map (kbd "<C-return>")
#'isearch-exit-other-end)
(define-key isearch-mode-map (kbd "<C-return>") #'isearch-exit-other-end)
(define-key gpolonkai/pers-map (kbd "m") 'hidden-mode-line-mode)
;; Kudos goes to
;; http://endlessparentheses.com/leave-the-cursor-at-start-of-match-after-isearch.html

24
lisp/frame-manip.el Normal file
View File

@ -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."))))