Raffaele Ricciardi <rfflrccrd@gmail.com> writes:
I've thought about highlighting the "Narrow" lighter in the Mode Line, but as
there is no Narrow mode and narrowing commands are defined in C source code, I
can't find a way to do that without resorting to advices or writing a Narrow
minor mode myself that manipulates the Mode Line.
(loop
for d in-ref mode-line-modes
until
(when (and (stringp d) (string= d "%n"))
(setf d '(:eval
(unless (and (eq (point-min) 1)
(eq (point-max) (1+ (buffer-size))))
(propertize
" Liebe"
'face '(:foreground "pink")
'help-echo "mouse-2: Weniger Liebe für diesen Buffer :x"
'mouse-face 'mode-line-highlight
'local-map (make-mode-line-mouse-map 'mouse-2
'mode-line-widen)))))))
Christopher