about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-modeline.el14
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index 6131484..c073992 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el
@@ -80,6 +80,20 @@ indicator in the mode-line."
80 (minions-minor-modes-menu))))) 80 (minions-minor-modes-menu)))))
81 'mouse-face 'mode-line-highlight))) 81 'mouse-face 'mode-line-highlight)))
82 82
83(defun acdw-modeline/narrowed ()
84 "Display an indication if the buffer is narrowed."
85 (when (buffer-narrowed-p)
86 (concat
87 ""
88 (propertize
89 "N"
90 'help-echo (format "%s\n%s"
91 "Buffer is narrowed"
92 "mouse-2: widen buffer.")
93 'local-map (purecopy (simple-modeline-make-mouse-map
94 'mouse-2 #'mode-line-widen))
95 'mouse-face 'mode-line-highlight))))
96
83(defun acdw-modeline/text-scale () 97(defun acdw-modeline/text-scale ()
84 ;; adapted from https://github.com/seagle0128/doom-modeline 98 ;; adapted from https://github.com/seagle0128/doom-modeline
85 (when (and (boundp 'text-scale-mode-amount) 99 (when (and (boundp 'text-scale-mode-amount)