From d5d1d29d5a0118191767eb0e986d932434e2a708 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sun, 1 Nov 2015 16:10:33 -0500 Subject: [PATCH] :fullscreen! toggles writeroom --- core/lib/defuns-ui.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/core/lib/defuns-ui.el b/core/lib/defuns-ui.el index 38360f383..cebd9a1fe 100644 --- a/core/lib/defuns-ui.el +++ b/core/lib/defuns-ui.el @@ -11,10 +11,12 @@ (set-frame-parameter nil 'alpha 0)))) ;;;###autoload -(defun narf:toggle-fullscreen () - (interactive) - (set-frame-parameter nil 'fullscreen - (when (not (frame-parameter nil 'fullscreen)) 'fullboth))) +(evil-define-command narf:toggle-fullscreen (&optional bang) + (interactive "") + (if bang + (writeroom-mode (if writeroom-mode -1 1)) + (set-frame-parameter nil 'fullscreen + (when (not (frame-parameter nil 'fullscreen)) 'fullboth)))) (defvar narf--big-mode nil) ;;;###autoload