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

WIP: Add highlight face to unread, tidy

Browse source
This commit is contained in:
Adam Porter 2022-03-29 03:07:52 -05:00
parent e9a8bf6ceb
commit 9a0740fc39
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ement-taxy.el
View file

@ -215,12 +215,15 @@
(and (equal 0 notification_count) (and (equal 0 notification_count)
(equal 0 highlight_count))) (equal 0 highlight_count)))
"" ""
(format #("%s:%s" 0 5 (help-echo "Notifications:Highlights")) (propertize (format #("%s:%s" 0 5 (help-echo "Notifications:Highlights"))
notification_count highlight_count)))) notification_count highlight_count)
'face 'highlight))))
(ement-taxy-define-column #("B" 0 1 (help-echo "Buffer exists for room")) () (ement-taxy-define-column #("B" 0 1 (help-echo "Buffer exists for room")) ()
(pcase-let ((`[,(cl-struct ement-room (local (map buffer))) ,_session] item)) (pcase-let ((`[,(cl-struct ement-room (local (map buffer))) ,_session] item))
(if buffer #("B" 0 1 (help-echo "Buffer exists for room")) " "))) (if buffer
#("B" 0 1 (help-echo "Buffer exists for room"))
" ")))
(ement-taxy-define-column "Session" () (ement-taxy-define-column "Session" ()
(pcase-let ((`[,_room ,(cl-struct ement-session (user (cl-struct ement-user id)))] item)) (pcase-let ((`[,_room ,(cl-struct ement-session (user (cl-struct ement-user id)))] item))