From dc85520a6b48bb2ff9f66337698c8b42569d8747 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Fri, 2 Apr 2021 14:52:28 -0500
Subject: Remove *disabling* of simple-modeline-mode from acdw/reading-mode

I can just overwrite the buffer-local `mode-line-format'.
---
 lisp/acdw.el | 37 ++++++++++++++++++-------------------
 1 file changed, 18 insertions(+), 19 deletions(-)

(limited to 'lisp')

diff --git a/lisp/acdw.el b/lisp/acdw.el
index b127827..4fea896 100644
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@@ -124,29 +124,28 @@ directory."
                                      'face '(:inherit italic))
                          fmt))))
         ;; modes to disable
+        (dolist (mode '(display-fill-column-indicator-mode)
+                      (when (fboundp mode)
+                        (funcall mode -1)))
+          ;; modes to enable
+          (dolist (mode '(iscroll-mode
+                          olivetti-mode))
+            (when (fboundp mode)
+              (funcall mode +1))))
+        ;; turn off
+        ;; settings
+        (kill-local-variable 'mode-line-format)
+        ;; modes to re-enable
         (dolist (mode '(display-fill-column-indicator-mode
                         simple-modeline-mode))
           (when (fboundp mode)
-            (funcall mode -1)))
-        ;; modes to enable
-        (dolist (mode '(iscroll-mode
-                        olivetti-mode))
+            (funcall mode +1)))
+        ;; modes to re-disable
+        (dolist (mode '(olivetti-mode
+                        iscroll-mode))
           (when (fboundp mode)
-            (funcall mode +1))))
-    ;; turn off
-    ;; settings
-    (kill-local-variable 'mode-line-format)
-    ;; modes to re-enable
-    (dolist (mode '(display-fill-column-indicator-mode
-                    simple-modeline-mode))
-      (when (fboundp mode)
-        (funcall mode +1)))
-    ;; modes to re-disable
-    (dolist (mode '(olivetti-mode
-                    iscroll-mode))
-      (when (fboundp mode)
-        (funcall mode -1)))
-    (force-mode-line-update)))
+            (funcall mode -1)))
+        (force-mode-line-update))))
 
 ;;; Keymap & Mode
 
-- 
cgit 1.4.1-21-gabe81