hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-06 01:31:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change: (ement-taxy) Faces for group headers

Browse source 
To match the faces of the rooms they match.
This commit is contained in:
Adam Porter 2022-04-13 10:53:02 -05:00
parent f39cf31d21
commit 812efe8cf6
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ement-taxy.el
View file

@ -99,7 +99,7 @@
(ement-taxy-define-key people-p () (ement-taxy-define-key people-p ()
(pcase-let ((`[,room ,session] item)) (pcase-let ((`[,room ,session] item))
(when (ement-room--direct-p room session) (when (ement-room--direct-p room session)
"[People]"))) (propertize "People" 'face 'ement-room-list-direct))))
(ement-taxy-define-key space (&key name id) (ement-taxy-define-key space (&key name id)
(pcase-let* ((`[,room ,session] item) (pcase-let* ((`[,room ,session] item)
@ -110,7 +110,7 @@
(space-name (if parent-room (space-name (if parent-room
(ement-room-display-name parent-room) (ement-room-display-name parent-room)
id))) id)))
(concat "[Space: " space-name "]")))) (concat "Space: " space-name))))
(when-let ((key (if id (when-let ((key (if id
;; ID specified. ;; ID specified.
(cond ((or (member id parents) (cond ((or (member id parents)
@ -120,7 +120,7 @@
((and (equal type "m.space") ((and (equal type "m.space")
(equal id (ement-room-id room))) (equal id (ement-room-id room)))
;; Room is a specified space. ;; Room is a specified space.
(or name (concat "[Space: " (ement-room-display-name room) "]")) (or name (concat "Space: " (ement-room-display-name room)))
)) ))
;; ID not specified. ;; ID not specified.
(pcase (length parents) (pcase (length parents)
@ -165,7 +165,7 @@
:then #'identity :then #'identity
(pcase-let ((`[,room ,_session] item)) (pcase-let ((`[,room ,_session] item))
(when (ement--room-favourite-p room) (when (ement--room-favourite-p room)
"Favourite"))) (propertize "Favourite" 'face 'ement-room-list-favourite))))
(ement-taxy-define-key low-priority () (ement-taxy-define-key low-priority ()
:then #'identity :then #'identity