From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 8 Dec 2017 00:48:32 +0000 (-0800)
Subject: add interactive writing mode function
X-Git-Url: https://git.donarmstrong.com/?p=lib.git;a=commitdiff_plain;h=c0b5bb1ebc1c0705ec63f58e84fb18c8baa53559

add interactive writing mode function
---

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index e622582..ec00578 100644
--- a/emacs_el/configuration/don-configuration.org
+++ b/emacs_el/configuration/don-configuration.org
@@ -619,7 +619,22 @@ From http://julien.danjou.info/projects/emacs-packages#rainbow-mode, this colori
 ** Writeroom Mode
 #+BEGIN_SRC emacs-lisp
   (use-package writeroom-mode
-    :config (add-hook 'writeroom-mode-hook 'auto-fill-mode)
+    :config
+    (defun my/writing-mode ()
+      "Start my writing mode; enable visual-line-mode and auto-fill-mode"
+      (interactive)
+      (if writeroom-mode
+          (progn
+            (writeroom-mode -1)
+            (visual-line-mode -1)
+            (auto-fill-mode -1)
+            (visual-fill-column-mode -1)
+            )
+        (visual-line-mode 1)
+        (auto-fill-mode 1)
+        (visual-fill-column-mode 1)
+        (writeroom-mode 1))
+      )
     )
 #+END_SRC
 ** GhostText/Atomic Chrome