forked from FG42/FG42
35 lines
797 B
EmacsLisp
35 lines
797 B
EmacsLisp
;;; lxmode-line --- A small utility library to toggle the modeline.
|
|
;;; Commentary:
|
|
;;; Code:
|
|
(defvar hidden-modeline nil)
|
|
|
|
(defun hide-modeline ()
|
|
"Hide the mode-line."
|
|
(interactive)
|
|
(message "Hidding mode-line...")
|
|
(setq hidden-modeline mode-line-format)
|
|
(setq mode-line-format nil))
|
|
|
|
(defun show-modeline ()
|
|
"Show the mode-line."
|
|
(interactive)
|
|
(message "Showing mode-line...")
|
|
(setq mode-line-format hidden-modeline)
|
|
(setq hidden-modeline nil))
|
|
|
|
|
|
(defun toggle-modeline ()
|
|
"Toggle the modeline."
|
|
(interactive)
|
|
(if (not hidden-modeline)
|
|
(hide-modeline)
|
|
(show-modeline)))
|
|
|
|
|
|
(ability togglable-modeline ()
|
|
"Togglable modeline"
|
|
(global-set-key (kbd "<f6>") 'toggle-modeline))
|
|
|
|
(provide 'extensions/editor/lxmodeline)
|
|
;;; lxmodeline ends here
|