hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-05 09:21:37 -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 ()
(pcase-let ((`[,room ,session] item))
(when (ement-room--direct-p room session)
"[People]")))
(propertize "People" 'face 'ement-room-list-direct))))
(ement-taxy-define-key space (&key name id)
(pcase-let* ((`[,room ,session] item)
@ -110,7 +110,7 @@
(space-name (if parent-room
(ement-room-display-name parent-room)
id)))
(concat "[Space: " space-name "]"))))
(concat "Space: " space-name))))
(when-let ((key (if id
;; ID specified.
(cond ((or (member id parents)
@ -120,7 +120,7 @@
((and (equal type "m.space")
(equal id (ement-room-id room)))
;; 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.
(pcase (length parents)
@ -165,7 +165,7 @@
:then #'identity
(pcase-let ((`[,room ,_session] item))
(when (ement--room-favourite-p room)
"Favourite")))
(propertize "Favourite" 'face 'ement-room-list-favourite))))
(ement-taxy-define-key low-priority ()
:then #'identity