10 lines
511 B
EmacsLisp
10 lines
511 B
EmacsLisp
|
(defun mk-write-mode-enable ()
|
||
|
|
(setq olivetti-body-width 73)
|
||
|
|
(setq mode-line-format nil)
|
||
|
|
(olivetti-mode))
|
||
|
|
(defun mk-write-mode-disable ()
|
||
|
|
(setq mode-line-format '(("-" mode-line-mule-info mode-line-modified mode-line-frame-identification mode-line-buffer-identification " " mode-line-position mode-line-modes (which-func-mode ("" which-func-format "--")) (global-mode-string ("--" global-mode-string)) "-%-")))
|
||
|
|
(olivetti-mode)
|
||
|
|
(defvar mode-line-format-current
|
||
|
|
(symbol-value 'mode-line-format)))
|