[elpa] externals/ement 4114e0e317 4/4: Add: (ement-taxy-define-column "Notifications")

[ELPA Syncer]

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

    Add: (ement-taxy-define-column "Notifications")
---
 README.org    | 1 +
 ement-taxy.el | 9 +++++++++
 2 files changed, 10 insertions(+)

diff --git a/README.org b/README.org
index 4f88e36156..28da922b64 100644
--- a/README.org
+++ b/README.org
@@ -295,6 +295,7 @@ Note that, while ~matrix-client~ remains usable, and 
probably will for some time
 + Room buffers' Transient menus show the room's notification state (imitating 
Element's user-friendly presets).
 + Command ~ement-set-display-name~ sets the user's global displayname.
 + Command ~ement-room-set-display-name~ sets the user's displayname in a room 
(which is also now displayed in the room's Transient menu).
++ Column ~Notifications~ in the ~ement-taxy-room-list~ buffer shows rooms' 
notification state.
 
 *Changes*
 + When a room's read receipt is updated, the room's buffer is also marked as 
unmodified.  (In concert with the new option, this makes rooms' unread status 
more intuitive.)
diff --git a/ement-taxy.el b/ement-taxy.el
index 34c6730710..23a8c672b6 100644
--- a/ement-taxy.el
+++ b/ement-taxy.el
@@ -350,6 +350,15 @@
         (number-to-string member-count)
       "")))
 
+(ement-taxy-define-column #("Notifications" 0 5 (help-echo "Notification 
state")) ()
+  (pcase-let* ((`[,room ,session] item))
+    (pcase (ement-room-notification-state room session)
+      ('nil "default")
+      ('all-loud "all (loud)")
+      ('all "all")
+      ('mentions-and-keywords "mentions")
+      ('none "none"))))
+
 (ement-taxy-define-column #("B" 0 1 (help-echo "Buffer exists for room")) ()
   (pcase-let ((`[,(cl-struct ement-room (local (map buffer))) ,_session] item))
     (if buffer