Add reading-mode

1 files changed, 20 insertions, 0 deletions

@@ -111,6 +111,26 @@ The order of elements matters: whichever one matches first is applied."
                         'face 'font-lock-doc-face
                         'mouse-face 'mode-line-highlight))))
 
+(defun +modeline-reading-mode ()
+  "Display an indication that the buffer is in `reading-mode'."
+  (when reading-mode
+    (concat " "
+            (propertize "R"
+                        'help-echo (format "%s\n%s"
+                                           "Buffer is in reading-mode."
+                                           "mouse-2: disable reading-mode.")
+                        'local-map (purecopy
+                                    (simple-modeline-make-mouse-map
+                                     'mouse-2 (lambda (ev)
+                                                (interactive "e")
+                                                (with-selected-window
+                                                    (posn-window
+                                                     (event-start ev))
+                                                  (reading-mode -1)
+                                                  (force-mode-line-update)))))
+                        'face 'font-lock-doc-face
+                        'mouse-face 'mode-line-highlight))))
+
 (define-minor-mode file-percentage-mode
   "Toggle the percentage display in the mode line (File Percentage Mode)."
   :init-value t :global t :group 'mode-line)