Change acdw/reading-mode to reading-mode

1 files changed, 16 insertions, 16 deletions

@@ -26,8 +26,8 @@
   (:option 0x0-default-server 'ttm))
 
 (setup Info
-  (:hook variable-pitch-mode
-         acdw/reading-mode))
+  (:hook #'variable-pitch-mode
+         #'reading-mode))
 
 (setup abbrev
   (:option abbrev-file-name "~/Sync/abbrev.el"
@@ -37,7 +37,8 @@
 
 (setup acdw
   (:also-load acdw-compat
-              acdw-lisp)
+              acdw-lisp
+              acdw-reading)
   (acdw/require-private)
 
   (:option user-full-name "Case Duckworth"
@@ -62,10 +63,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
                                                  (car feature)
                                                feature))
                                          (car name))
-                                     name)))))))
-
-  (:global "C-x o" #'acdw/other-window-or-switch-buffer
-           "C-x O" #'acdw/other-window-or-switch-buffer-backward))
+                                     name))))))))
 
 (setup (:straight-if affe
                      (and (or (executable-find "fd")
@@ -610,8 +608,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
          ((t (:height 1.5))))
 
   (:with-mode elfeed-show-mode
-    (:hook (defun elfeed-show@setup ()
-             (acdw/reading-mode)))
+    (:hook #'reading-mode)
 
     ;; see https://irreal.org/blog/?p=8885
     (:bind "SPC" (defun elfeed-scroll-up-command (&optional arg)
@@ -678,7 +675,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
          "o" #'elpher-follow-current-link
          "G" #'elpher-go-current)
   
-  (:hook #'acdw/reading-mode)
+  (:hook #'reading-mode)
   
   (:autoload (elpher-bookmarks :interactive t)
              (elpher-go :interactive t))
@@ -726,7 +723,9 @@ AKA, DO NOT USE THIS FUNCTION!!!"
   (:global "M-=" #'count-words
            "C-w" #'kill-region-or-backward-word
            "C-c d" #'acdw/insert-iso-date
-           "M-`" nil)
+           "M-`" nil
+           "C-x o" #'acdw/other-window-or-switch-buffer
+           "C-x O" #'acdw/other-window-or-switch-buffer-backward)
 
   (:with-map toggle-map
     (:bind "c" #'column-number-mode
@@ -875,7 +874,7 @@ AKA, DO NOT USE THIS FUNCTION!!!"
   (:option eww-search-prefix "https://duckduckgo.com/html?q="
            url-privacy-level '(email agent cookies lastloc))
   
-  (:hook #'acdw/reading-mode))
+  (:hook #'reading-mode))
 
 (setup (:straight-if exec-path-from-shell
                      (acdw/system :home))
@@ -1174,11 +1173,12 @@ browser defined in `browse-url-secondary-browser-function'."
 
   ;; Setup for different modes.
   ;; There has /got/ to be an easier way here!
-  (let ((key ";"))
+  (dolist (key '(";" "o"))
     (:with-mode special-mode (:bind key #'link-hint-open-link))
     (:with-mode help-mode (:bind key #'link-hint-open-link))
     (:with-feature helpful (:bind key #'link-hint-open-link))
-    (:with-mode Info-mode (:bind key #'link-hint-open-link))))
+    (:with-mode Info-mode (:bind key #'link-hint-open-link))
+    (:with-mode reading-mode (:bind key #'link-hint-open-link))))
 
 (setup (:straight lua-mode)
   (:file-match (rx ".lua" eos)))
@@ -1224,7 +1224,7 @@ browser defined in `browse-url-secondary-browser-function'."
            mastodon-client--token-file (acdw/dir "mastodon.plstore"))
 
   (:hook #'hl-line-mode
-         #'acdw/reading-mode))
+         #'reading-mode))
 
 (setup minibuffer
   (:option enable-recursive-minibuffers t
@@ -1862,7 +1862,7 @@ If used with a numeric prefix argument N, N backticks will be inserted."
   (:option view-read-only t)
   
   (:hook (defun acdw/read-view-mode ()
-           (acdw/reading-mode (if view-mode +1 -1)))))
+           (reading-mode (if view-mode +1 -1)))))
 
 (setup (:straight visual-regexp)
   (:global "M-%" #'vr/query-replace))