mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 08:00:48 -08:00
Code Issues Projects Releases Wiki Activity

Add mouse properties to activity string

Browse source 
* rcirc.el (rcirc-activity-string): Allow clicking on string
This commit is contained in:
Philip Kaludercic 2021-06-13 21:10:25 +02:00
parent e61bdd5a96
commit e17cc751ba
1 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/net/rcirc.el
View file

@ -2211,7 +2211,6 @@ activity. Only run if the buffer is not visible and
(defvar rcirc-update-activity-string-hook nil
"Hook run whenever the activity string is updated.")
;; TODO: add mouse properties
(defun rcirc-update-activity-string ()
"Update mode-line string."
(let* ((pair (rcirc-split-activity rcirc-activity))
@ -2238,12 +2237,17 @@ activity. Only run if the buffer is not visible and
(let ((s (substring-no-properties (rcirc-short-buffer-name b))))
(with-current-buffer b
(dolist (type rcirc-activity-types)
(rcirc-add-face 0 (length s)
(cl-case type
(rcirc-facify s (cl-case type
(nick 'rcirc-track-nick)
(keyword 'rcirc-track-keyword))
s)))
s))
(keyword 'rcirc-track-keyword)))))
(let ((map (make-mode-line-mouse-map
'mouse-1
(lambda ()
(interactive)
(pop-to-buffer b)))))
(propertize s
'mouse-face 'mode-line-highlight
'local-map map))))
buffers ","))
(defun rcirc-short-buffer-name (buffer)