diff options
| author | Case Duckworth | 2021-12-26 22:49:25 -0600 |
|---|---|---|
| committer | Case Duckworth | 2021-12-26 22:49:41 -0600 |
| commit | d7a6880805833d8b07caf4daa2b65b8abfe9f67b (patch) | |
| tree | 7bdc84d39a44f452401d4aed513b9de93f6a52ac /lisp/+modeline.el | |
| parent | Add keybinding for `visible-mode' (diff) | |
| download | emacs-d7a6880805833d8b07caf4daa2b65b8abfe9f67b.tar.gz emacs-d7a6880805833d8b07caf4daa2b65b8abfe9f67b.zip | |
Add +eww and further customize eww
Diffstat (limited to 'lisp/+modeline.el')
| -rw-r--r-- | lisp/+modeline.el | 31 |
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)." |