[elpa] externals/ement d40a532733 22/30: Provide prefix key labels for `which-key' (and similar) to display

[ELPA Syncer]

branch: externals/ement
commit d40a532733c5f80781ab9bf68e1225e0ccdecc35
Author: Phil Sainty <phil@catalyst.net.nz>
Commit: Phil Sainty <phil@catalyst.net.nz>

    Provide prefix key labels for `which-key' (and similar) to display
    
    Especially beneficial when using `ement-room-mode-map-prefix-key'
    when `ement-room-self-insert-mode' is enabled.
---
 ement-room.el | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/ement-room.el b/ement-room.el
index 124987325f..8cce63b89d 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -150,7 +150,18 @@ around it for the `ement-room-mode' help; but when viewing 
the
 keymap directly the issue may be visible.")
 
 (defvar ement-room-mode-map
-  (let ((map (make-sparse-keymap)))
+  (let ((map (make-sparse-keymap))
+        (prefixes '(("M-g" . "group:switching")
+                    ("s" . "group:messages")
+                    ("u" . "group:users")
+                    ("r" . "group:room")
+                    ("R" . "group:membership"))))
+    ;; Use symbols for prefix maps so that `which-key' can display their names.
+    (dolist (prefix prefixes)
+      (let ((cmd (define-prefix-command (make-symbol (cdr prefix)))))
+        (define-key map (kbd (car prefix)) cmd)))
+
+    ;; Menu
     (define-key map (kbd "?") #'ement-room-transient)
 
     ;; Movement