Add acdw/reading-mode

Currently, it increases the text scale, turns on visual-fill-column-mode and
iscroll-mode.

1 files changed, 21 insertions, 7 deletions

@@ -1640,10 +1640,25 @@ Display corrections with =completing-read=.
             #'(lambda () (blackout 'iscroll-mode)))
 #+end_src
 
-** TODO Reading mode
+** Reading mode
 
 A custom mode to make reading comfy
 
+#+begin_src emacs-lisp :noweb-ref modes
+  (define-minor-mode acdw/reading-mode
+      "Make reading comfier."
+    :lighter " Read" ; later: book emoji
+    (if acdw/reading-mode
+        (progn ;; turn on
+          (text-scale-increase +1)
+          (visual-fill-column-mode +1)
+          (iscroll-mode +1))
+      (progn ;; turn off
+        (text-scale-increase 0)
+        (visual-fill-column-mode -1)
+        (iscroll-mode -1))))
+#+end_src
+
 * Programming
 
 ** Comments
@@ -2078,12 +2093,7 @@ See [[https://github.com/redguardtoo/mastering-emacs-in-one-year-guide/blob/mast
 #+end_src
 
 #+begin_src emacs-lisp :noweb-ref hooks
-  (defun hook--elfeed-show ()
-    (text-scale-adjust +1)
-    (visual-fill-column-mode +1)
-    (iscroll-mode +1))
-
-  (add-hook 'elfeed-show-mode-hook #'hook--elfeed-show)
+  (add-hook 'elfeed-show-mode-hook #'acdw/reading-mode)
 #+end_src
 
 #+begin_src emacs-lisp :noweb-ref bindings
@@ -2263,6 +2273,10 @@ others.
     (define-key elpher-mode-map "G" #'elpher-go-current))
 #+end_src
 
+#+begin_src emacs-lisp :noweb-ref hooks
+  (add-hook 'elpher-mode-hook #'acdw/reading-mode)
+#+end_src
+
 *** Gemini-mode                                                       :package:
 
 #+begin_src emacs-lisp :noweb-ref packages