Re: Mouse activated button in modeline

[Eduardo Ochs <eduardoochs@gmail.com>]

Here my mode line says

  U:**-  TODO           Bot L122542  (Fundamental eev)

and when I hover the mouse over the first "*" it says:

  Buffer is writable
  mouse-1: toggle

Cheers,
  Eduardo Ochs
  http://anggtwu.net/#eev



On Sun, 21 Jul 2024 at 16:53, Heime <heimeborgia@protonmail.com> wrote:

> On Monday, July 22nd, 2024 at 6:15 AM, Heime <heimeborgia@protonmail.com>
> wrote:
>
> > I would like to have a button in modeline I can mouse click to toggle
> the file to read-only on-off.
>
> Why does the following not show the mouse activated button
>
> (defface mode-line-read-only-face
>   '((t :background "red" :foreground "white" :weight bold)))
>
> (defun toggle-read-only-status ()
>   (interactive)
>   (if buffer-read-only
>        (read-only-mode -1)
>     (read-only-mode 1)))
>
> (defun read-only-button ()
>   (if buffer-read-only
>        (propertize " RO "
>          'face 'mode-line-read-only-face
>          'help-echo "Read-Only Buffer - Click to toggle."
>          'mouse-face 'mode-line-highlight
>          'local-map (make-mode-line-mouse-map
>                       'mouse-1 'toggle-read-only-status))
>
>     (propertize " -- "
>       'help-echo "Writable Buffer - Click to toggle."
>       'mouse-face 'mode-line-highlight
>       'local-map (make-mode-line-mouse-map
>                    'mouse-1 'toggle-read-only-status))))
>
> (setq-default mode-line-format
>   '("%e" '(:eval (read-only-button)) ""))
>
>
>
>
>