1 files changed, 16 insertions, 15 deletions
diff --git a/lisp/+modeline.el b/lisp/+modeline.el
index 855ff50..5354e5b 100644
--- a/lisp/+modeline.el
+++ b/lisp/+modeline.el

@@ -115,21 +115,22 @@ The order of elements matters: whichever one matches first is applied."
  "Display an indication that the buffer is in `reading-mode'."
  (when reading-mode
    (concat " "
-            (propertize "R"
+            (propertize
-                        'help-echo (format "%s\n%s"
+             (concat "R" (when (bound-and-true-p +eww-readable-p) "w"))
-                                           "Buffer is in reading-mode."
+             'help-echo (format "%s\n%s"
-                                           "mouse-2: disable reading-mode.")
+                                "Buffer is in reading-mode."
-                        'local-map (purecopy
+                                "mouse-2: disable reading-mode.")
-                                    (simple-modeline-make-mouse-map
+             'local-map (purecopy
-                                     'mouse-2 (lambda (ev)
+                         (simple-modeline-make-mouse-map
-                                                (interactive "e")
+                          'mouse-2 (lambda (ev)
-                                                (with-selected-window
+                                     (interactive "e")
-                                                    (posn-window
+                                     (with-selected-window
-                                                     (event-start ev))
+                                         (posn-window
-                                                  (reading-mode -1)
+                                          (event-start ev))
-                                                  (force-mode-line-update)))))
+                                       (reading-mode -1)
-                        'face 'font-lock-doc-face
+                                       (force-mode-line-update)))))
-                        'mouse-face 'mode-line-highlight))))
+             '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)."

diff --git a/lisp/+modeline.el b/lisp/+modeline.el index 855ff50..5354e5b 100644 --- a/lisp/+modeline.el +++ b/lisp/+modeline.el
@@ -115,21 +115,22 @@ The order of elements matters: whichever one matches first is applied."
115	"Display an indication that the buffer is in `reading-mode'."	115	"Display an indication that the buffer is in `reading-mode'."
116	(when reading-mode	116	(when reading-mode
117	(concat " "	117	(concat " "
118	(propertize "R"	118	(propertize
119	'help-echo (format "%s\n%s"	119	(concat "R" (when (bound-and-true-p +eww-readable-p) "w"))
120	"Buffer is in reading-mode."	120	'help-echo (format "%s\n%s"
121	"mouse-2: disable reading-mode.")	121	"Buffer is in reading-mode."
122	'local-map (purecopy	122	"mouse-2: disable reading-mode.")
123	(simple-modeline-make-mouse-map	123	'local-map (purecopy
124	'mouse-2 (lambda (ev)	124	(simple-modeline-make-mouse-map
125	(interactive "e")	125	'mouse-2 (lambda (ev)
126	(with-selected-window	126	(interactive "e")
127	(posn-window	127	(with-selected-window
128	(event-start ev))	128	(posn-window
129	(reading-mode -1)	129	(event-start ev))
130	(force-mode-line-update)))))	130	(reading-mode -1)
131	'face 'font-lock-doc-face	131	(force-mode-line-update)))))
132	'mouse-face 'mode-line-highlight))))	132	'face 'font-lock-doc-face
		133	'mouse-face 'mode-line-highlight))))
133		134
134	(define-minor-mode file-percentage-mode	135	(define-minor-mode file-percentage-mode
135	"Toggle the percentage display in the mode line (File Percentage Mode)."	136	"Toggle the percentage display in the mode line (File Percentage Mode)."