Add writeroom-toggle-fullscreen command

1 files changed, 7 insertions, 0 deletions

diff --git a/init.el b/init.el
index 535ed67..c22e0a4 100644
--- a/init.el
+++ b/init.el
@@ -1685,6 +1685,13 @@
   (setq writeroom-fullscreen-effect 'maximized)
   (setq writeroom-width fill-column)
 
+  (defun km/writeroom-toggle-fullscreen ()
+    (interactive)
+    (setq writeroom-fullscreen-effect
+          (if (eq writeroom-fullscreen-effect 'fullboth)
+              'maximized
+            'fullboth)))
+
   (defvar-local km/writeroom-old-truncate-lines nil)
 
   (defun km/writeroom-setup ()