From d7a6880805833d8b07caf4daa2b65b8abfe9f67b Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 26 Dec 2021 22:49:25 -0600
Subject: Add +eww and further customize eww

---
 lisp/+modeline.el | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

(limited to 'lisp/+modeline.el')

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"
-                        '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))))
+            (propertize
+             (concat "R" (when (bound-and-true-p +eww-readable-p) "w"))
+             '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)."
-- 
cgit 1.4.1-21-gabe81