mgdelacroix/mattermost.el
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add mouse-face to all buttons, so they don't get highlighted

Browse source
This commit is contained in:
Miguel de la Cruz 2022-06-07 13:02:09 +02:00
parent 47eb5e405f
commit ea9f2c07cc
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
mattermost.el
View file

@ -116,7 +116,12 @@ conform to a post plist"
(post (mattermost--ws-posted-to-post msg)) (post (mattermost--ws-posted-to-post msg))
(channel-id (plist-get post :channel_id)) (channel-id (plist-get post :channel_id))
(chanb (plist-get mattermost-buffers (mattermost-string->keyword channel-id)))) (chanb (plist-get mattermost-buffers (mattermost-string->keyword channel-id))))
;; ToDo: check if buffer not deleted or better, hook into kill
;; buffer hook on mattermost-channel-mode and remove buffer from
;; mattermost-buffers variable so it's not found
(if (not (null chanb)) (if (not (null chanb))
;; If chanb not current buffer, add a notification, maybe both
;; in the modeline and in a buffer chan -> notif
(with-current-buffer chanb (with-current-buffer chanb
(save-excursion (save-excursion
(goto-char mattermost-insert-marker) (goto-char mattermost-insert-marker)
@ -189,6 +194,7 @@ conform to a post plist"
(define-button-type 'mattermost-channel (define-button-type 'mattermost-channel
'face 'default 'face 'default
'mouse-face 'nil
'read-only t 'read-only t
'rear-sticky t 'rear-sticky t
'front-sticky t 'front-sticky t
@ -262,6 +268,7 @@ user to check their status and select between them")
(define-button-type 'mattermost-username (define-button-type 'mattermost-username
'face 'bold 'face 'bold
'mouse-face 'nil
'read-only t 'read-only t
'rear-sticky t 'rear-sticky t
'front-sticky t 'front-sticky t
@ -279,6 +286,7 @@ user to check their status and select between them")
(define-button-type 'mattermost-post (define-button-type 'mattermost-post
'face 'default 'face 'default
'mouse-face 'nil
'read-only t 'read-only t
'rear-sticky t 'rear-sticky t
'front-sticky t 'front-sticky t