Re: Narrowing: highlighting "Narrow" lighter?

[Christopher Schmidt <christopher@ch.ristopher.com>]

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