From 5b7fbf4bc65268533e16bde4ad6198537b85ee41 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Tue, 7 Sep 2021 08:10:09 -0500
Subject: Change acdw/reading-mode to reading-mode

---
 lisp/acdw.el | 41 -----------------------------------------
 1 file changed, 41 deletions(-)

(limited to 'lisp/acdw.el')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index 0039de2..5bb53e2 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -534,47 +534,6 @@ It's called 'require-private' for historical reasons."
                     name))
                 recentf-list)))
 
-
-;;; Minor modes
-
-(define-minor-mode acdw/reading-mode
-  "A mode for reading."
-  :init-value nil
-  :lighter " Read"
-  :keymap (let ((map (make-sparse-keymap)))
-            (when-let ((link-cmd (or (fbound-and-true-p #'ace-link)
-                                     (fbound-and-true-p #'link-hint-open-link))))
-              (define-key map (kbd ";") link-cmd)
-              (define-key map (kbd "o") link-cmd))
-            map)
-  (if acdw/reading-mode
-      (progn ;; turn on
-        ;; settings
-        (setq-local orig-indicate-empty-lines indicate-empty-lines
-                    indicate-empty-lines nil
-                    orig-indicate-buffer-boundaries indicate-buffer-boundaries
-                    indicate-buffer-boundaries nil)
-        ;; disable modes
-        (dolist (mode '(display-fill-column-indicator-mode))
-          (when (fboundp mode)
-            (funcall mode -1)))
-        ;; enable modes
-        (dolist (mode '(olivetti-mode))
-          (when (fboundp mode)
-            (funcall mode +1))))
-    ;; turn off
-    ;; settings
-    (setq-local indicate-empty-lines orig-indicate-empty-lines
-                indicate-buffer-boundaries orig-indicate-buffer-boundaries)
-    ;; enable modes
-    (dolist (mode '(display-fill-column-indicator-mode))
-      (when (fboundp mode)
-        (funcall mode +1)))
-    ;; disable modes
-    (dolist (mode '(olivetti-mode))
-      (when (fboundp mode)
-        (funcall mode -1)))))
-
 
 ;;; Sort setq...
 ;; https://emacs.stackexchange.com/questions/33039/
-- 
cgit 1.4.1-21-gabe81