From 84fe18046db45d56620f4ea7c7f94f0432aafc36 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 26 Dec 2021 13:03:24 -0600
Subject: Add reading-mode

---
 init.el | 23 ++++++++++++++++++-----
 1 file changed, 18 insertions(+), 5 deletions(-)

(limited to 'init.el')

diff --git a/init.el b/init.el
index 835af08..5e06539 100644
--- a/init.el
+++ b/init.el
@@ -63,6 +63,12 @@
            (append +pulse-location-commands) 'lui-track-jump-to-indicator)
   (+pulse-location-mode +1))
 
+(setup (:require reading))
+
+(setup Info
+  (:hook 'variable-pitch-mode
+         'reading-mode))
+
 (setup abbrev
   (:option abbrev-file-name (sync/ "abbrev.el")
            save-abbrevs 'silent)
@@ -228,6 +234,9 @@
   (:when-loaded
     (setenv "PAGER" "cat")))
 
+(setup eww
+  (:hook 'reading-mode))
+
 (setup magit
   ;; This setup is weird because of dependency issues
   (:straight (transient :host github :repo "magit/transient" :branch "master")
@@ -517,7 +526,8 @@ See also `crux-reopen-as-root-mode'."
   (autoload 'dictionary-tooltip-mode "dictionary"
     "Display tooltips for the current word" t)
   (autoload 'global-dictionary-tooltip-mode "dictionary"
-    "Enable/disable dictionary-tooltip-mode for all buffers" t))
+    "Enable/disable dictionary-tooltip-mode for all buffers" t)
+  (:hook 'reading-mode))
 
 (setup (:straight (discord
                    :host github
@@ -535,7 +545,8 @@ See also `crux-reopen-as-root-mode'."
            elfeed-db-directory (sync/ "elfeed/db/" t))
   (:with-mode elfeed-show-mode
     (:bind "SPC" '+elfeed-scroll-up-command
-          "S-SPC" '+elfeed-scroll-down-command)))
+           "S-SPC" '+elfeed-scroll-down-command)
+    (:hook 'reading-mode)))
 
 (setup (:straight elfeed-org)
   (:option rmh-elfeed-org-files (list (sync/ "elfeed/elfeed.org" t)))
@@ -789,6 +800,7 @@ See also `crux-reopen-as-root-mode'."
          (eq system-type 'gnu/linux))
   (pdf-tools-install))
 
+
 (setup (:straight (shell-command+
                    :host nil
                    :repo "https://git.sr.ht/~pkal/shell-command-plus"))
@@ -803,6 +815,7 @@ See also `crux-reopen-as-root-mode'."
   (:option simple-modeline-segments '((;; left
                                        +modeline-ace-window-display
                                        +modeline-modified
+                                       +modeline-reading-mode
                                        +modeline-narrowed
                                        +modeline-buffer-name
                                        +modeline-position
@@ -894,11 +907,11 @@ See also `crux-reopen-as-root-mode'."
   (add-hook 'rfn-eshadow-update-overlay-hook 'vertico-directory-tidy))
 
 (setup (:straight visual-fill-column)
-  (:option visual-fill-column-center-text t)
+  (:option visual-fill-column-center-text t
+           (append reading-modes) '(visual-fill-column-mode . +1))
   (:hook 'visual-line-mode)
   (:hook-into org-mode)
-  (with-eval-after-load 'visual-fill-column
-    (advice-add 'text-scale-adjust :after 'visual-fill-column-adjust)))
+  (advice-add 'text-scale-adjust :after 'visual-fill-column-adjust))
 
 (setup (:straight vlf)
   (:require vlf-setup))
-- 
cgit 1.4.1-21-gabe81