From bcb0a3b9a999a10c59599f2e543b3b46d6dc2501 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Thu, 27 Oct 2016 00:05:54 -0400
Subject: Add writeroom-toggle-fullscreen command

---
 init.el | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'init.el')

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 ()
-- 
cgit v1.2.3