From 65ead54698c6cfcfd6eab130d0d5f057a96601e8 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Thu, 28 Apr 2022 15:59:02 -0500 Subject: [PATCH] Add/Change: (ement-taxy-define-key space-p) Group spaces separately, for clarity. The UI isn't ideal yet, but it's an improvement. --- ement-taxy.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/ement-taxy.el b/ement-taxy.el index a2f1159..d354c42 100644 --- a/ement-taxy.el +++ b/ement-taxy.el @@ -134,6 +134,13 @@ (string-join (mapcar #'format-space parents) ", ")))))) (propertize key 'face 'ement-room-list-space))))) +(ement-taxy-define-key space-p () + "Groups rooms that are themselves spaces." + (pcase-let* ((`[,room ,_session] item) + ((cl-struct ement-room type) room)) + (when (equal "m.space" type) + "Spaces"))) + (ement-taxy-define-key name (&key name regexp) (pcase-let* ((`[,room ,_session] item) (display-name (ement-room--room-display-name room))) @@ -205,7 +212,8 @@ "Low-priority"))) (defcustom ement-taxy-default-keys - '(((membership :status 'invite)) + '((space-p space) + ((membership :status 'invite)) (favourite) ((membership :status 'leave)) (low-priority)