add interactive writing mode function

diff --git a/emacs_el/configuration/don-configuration.org b/emacs_el/configuration/don-configuration.org
index e622582d09c41bb8d9e8a58618b21bd6ea678352..ec00578559b405996ce275e0f1aef1626a88db68 100644 (file)
--- 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