[elpa] externals/ement b6a491a03b 4/5: Change: (ement-view-space) Show space name and alias

[ELPA Syncer]

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

    Change: (ement-view-space) Show space name and alias
---
 README.org         | 1 +
 ement-directory.el | 7 +++++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index d764433e4f..3354faf74f 100644
--- a/README.org
+++ b/README.org
@@ -302,6 +302,7 @@ Note that, while ~matrix-client~ remains usable, and 
probably will for some time
 
 + Command ~ement-describe-room~ shows whether a room is a space or a normal 
room.
 + Activating a space in the room list uses ~ement-view-space~ (which shows a 
directory of rooms in the space) instead of ~ement-view-room~ (which shows 
events in the space, which is generally not useful).
++ Command ~ement-view-space~ shows the space's name and alias.
 + Improve readme export settings.
 
 ** 0.9.3
diff --git a/ement-directory.el b/ement-directory.el
index 11987f4e64..197ae49078 100644
--- a/ement-directory.el
+++ b/ement-directory.el
@@ -394,8 +394,11 @@ SPACE may be a room ID or an `ement-room' struct."
                            results))
                 (ement-directory--view rooms ;; :append-p since
                   ;; TODO: Use space's alias where possible.
-                  :buffer-name (format "*Ement Directory: space \"%s\"" id)
-                  :root-section-name (format "*Ement Directory: space \"%s\"" 
id)
+                  :buffer-name (format "*Ement Directory: space %s" 
(ement--format-room space session))
+                  :root-section-name (format "*Ement Directory: rooms in %s %s"
+                                             (propertize "space"
+                                                         'face 
'font-lock-type-face)
+                                             (ement--format-room space 
session))
                   :init-fn (lambda ()
                              (setf (alist-get 'session ement-directory-etc) 
session
                                    (alist-get 'next-batch ement-directory-etc) 
next-batch