1 files changed, 30 insertions, 6 deletions

@@ -99,17 +99,41 @@ directory."
   :lighter " Read"
   (if acdw/reading-mode
       (progn ;; turn on
-        (display-fill-column-indicator-mode -1)
-        (dolist (mode '(visual-fill-column-mode
-                        iscroll-mode))
+        ;; settings
+        (setq-local mode-line-format
+                    '(:eval
+                      (let* ((fmt " Reading %b (%m) ")
+                             (len (length (format-mode-line fmt))))
+                        (concat
+                         (propertize " "
+                                     'display `((space :align-to (- right
+                                                                    ,len)))
+                                     'face '(:inherit italic))
+                         fmt))))
+        ;; modes to disable
+        (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))
           (when (fboundp mode)
             (funcall mode +1))))
     ;; turn off
-    (display-fill-column-indicator-mode +1)
-    (dolist (mode '(visual-fill-column-mode
+    ;; 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)))))
+        (funcall mode -1)))
+    (force-mode-line-update)))
 
 ;;; Keymap & Mode