Move hidden-mode-line-mode to the Org config

This commit is contained in:
Gergely Polonkai 2018-07-29 19:14:59 +02:00
parent 372df13155
commit 7ee19f492a
3 changed files with 33 additions and 25 deletions

View File

@ -351,6 +351,39 @@ name."
"index.org")))
#+END_SRC
** Frame manipulation
*** Hidden modeline mode
To temporarily hide the mode line.
Copied from http://emacs-doctor.com/emacs-strip-tease.html
#+BEGIN_SRC emacs-lisp
(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."))))
#+END_SRC
** ~c-mode~ related
*** Copy the prototype of the current function

View File

@ -30,7 +30,6 @@
(load "round-number-to-decimals")
(load "zim")
(load "text-manip")
(load "frame-manip")
(load "window-manip")
(load "xdg-paths")
(load "utils")

View File

@ -1,24 +0,0 @@
;; 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."))))