:fullscreen! toggles writeroom

This commit is contained in:
Henrik Lissner 2015-11-01 16:10:33 -05:00
parent 71546e6ee8
commit d5d1d29d5a

View file

@ -11,10 +11,12 @@
(set-frame-parameter nil 'alpha 0)))) (set-frame-parameter nil 'alpha 0))))
;;;###autoload ;;;###autoload
(defun narf:toggle-fullscreen () (evil-define-command narf:toggle-fullscreen (&optional bang)
(interactive) (interactive "<!>")
(set-frame-parameter nil 'fullscreen (if bang
(when (not (frame-parameter nil 'fullscreen)) 'fullboth))) (writeroom-mode (if writeroom-mode -1 1))
(set-frame-parameter nil 'fullscreen
(when (not (frame-parameter nil 'fullscreen)) 'fullboth))))
(defvar narf--big-mode nil) (defvar narf--big-mode nil)
;;;###autoload ;;;###autoload