[elpa] externals/ement c687051957 5/6: Change: (ement-room-list) Sort "Buffers" and "Low-priority" groups

[ELPA Syncer]

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

    Change: (ement-room-list) Sort "Buffers" and "Low-priority" groups
    
    Do so by name.  (I'd prefer not to do this, but it seems necessary
    until an easier way for users to specify group sorting is
    implemented.)
---
 ement-room-list.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/ement-room-list.el b/ement-room-list.el
index e772aa053c..ed4ad12e93 100644
--- a/ement-room-list.el
+++ b/ement-room-list.el
@@ -584,7 +584,9 @@ DISPLAY-BUFFER-ACTION is nil, the buffer is not displayed."
                (taxy (cl-macrolet ((first-item
                                     (pred) `(lambda (taxy)
                                               (when (taxy-items taxy)
-                                                (,pred (car (taxy-items 
taxy)))))))
+                                                (,pred (car (taxy-items 
taxy))))))
+                                   (name= (name) `(lambda (taxy)
+                                                    (equal ,name (taxy-name 
taxy)))))
                        (thread-last
                          (make-fn
                           :name "Ement Rooms"
@@ -603,12 +605,12 @@ DISPLAY-BUFFER-ACTION is nil, the buffer is not 
displayed."
                          (taxy-sort #'t>nil #'item-left-p)
                          (taxy-sort* #'string< #'taxy-name)
                          (taxy-sort* #'> #'taxy-latest-ts)
+                         (taxy-sort* #'t<nil (name= "Buffers"))
                          (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 (name= "Low-priority"))
                          (taxy-sort* #'t>nil (first-item item-left-p)))))
                (taxy-magit-section-insert-indent-items nil)
                (inhibit-read-only t)