[elpa] externals/ement 11f5a9c91c 07/14: Change: (ement-room-list) Grouping and sorting of rooms with buffers

[ELPA Syncer]

branch: externals/ement
commit 11f5a9c91c5dce700ccaae9366d702c4b433ed76
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Change: (ement-room-list) Grouping and sorting of rooms with buffers
---
 ement-room-list.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ement-room-list.el b/ement-room-list.el
index 695a419128..4f8ce3c4c2 100644
--- a/ement-room-list.el
+++ b/ement-room-list.el
@@ -216,12 +216,13 @@
   '((space-p space)
     ((membership :status 'invite))
     (favourite)
+    (buffer)
     ((membership :status 'leave))
     (low-priority)
     (unread)
-    people
     ((latest :name "Last 24h" :newer-than 86400))
     (latest :name "Older than 90d" :older-than (* 86400 90))
+    people
     freshness
     (space))
   "Default keys."
@@ -445,6 +446,9 @@ DISPLAY-BUFFER-ACTION."
                 (item-left-p
                  (item) (pcase-let ((`[,(cl-struct ement-room status) 
,_session] item))
                           (equal 'leave status)))
+                (item-buffer-p
+                 (item) (pcase-let ((`[,(cl-struct ement-room (local (map 
buffer))) ,_session] item))
+                          (buffer-live-p buffer)))
                 (taxy-unread-p
                  (taxy) (or (cl-some #'item-unread-p (taxy-items taxy))
                             (cl-some #'taxy-unread-p (taxy-taxys taxy))))
@@ -524,6 +528,7 @@ DISPLAY-BUFFER-ACTION."
                          (taxy-sort* #'t<nil (first-item item-unread-p))
                          (taxy-sort* #'t<nil (first-item item-favourite-p))
                          (taxy-sort* #'t<nil (first-item item-invited-p))
+                         (taxy-sort* #'t<nil (first-item item-buffer-p))
                          (taxy-sort* #'t>nil (first-item item-space-p))
                          (taxy-sort* #'t>nil (first-item item-low-priority-p))
                          (taxy-sort* #'t>nil (first-item item-left-p)))))