about summary refs log tree commit diff stats
path: root/lisp/+modeline.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/+modeline.el')
-rw-r--r--lisp/+modeline.el31
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."
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)."