[elpa] externals/crdt 903ebf9 36/80: better display for address in user menu

[ELPA Syncer]

branch: externals/crdt
commit 903ebf9c0c4579f7c6494fb4f1bcc5f25f62685b
Author: Qiantan Hong <qhong@mit.edu>
Commit: Qiantan Hong <qhong@mit.edu>

    better display for address in user menu
---
 crdt.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/crdt.el b/crdt.el
index 5536fca..aaa0af6 100644
--- a/crdt.el
+++ b/crdt.el
@@ -604,8 +604,7 @@ Otherwise use a dedicated buffer for displaying active 
users on CRDT-BUFFER."
   "CRDT User List"
   (setq tabulated-list-format [("Display Name" 15 t)
                                ("Focused Buffer" 30 t)
-                               ("Address" 15 t)
-                               ("Port" 7 t)]))
+                               ("Address" 15 t)]))
 
 (defun crdt-list-users (&optional crdt-buffer display-buffer)
   "Display a list of active users working on a CRDT-shared buffer CRDT-BUFFER.
@@ -634,7 +633,7 @@ Otherwise use a dedicated buffer for displaying active 
users on CRDT-BUFFER."
     (with-current-buffer display-buffer
       (crdt-user-menu-mode)
       (setq tabulated-list-entries nil)
-      (push (list local-id (vector local-name (or (crdt--focused-buffer-name) 
"--") "*myself*" "--")) tabulated-list-entries)
+      (push (list local-id (vector local-name (or (crdt--focused-buffer-name) 
"--") "*myself*")) tabulated-list-entries)
       (maphash (lambda (k v)
                  (push (list k (let ((name 
(crdt--contact-metadata-display-name v))
                                      (host (crdt--contact-metadata-host v))
@@ -647,7 +646,7 @@ Otherwise use a dedicated buffer for displaying active 
users on CRDT-BUFFER."
                                    (put-text-property (1- (length 
colored-name)) (length colored-name)
                                                       'face `(:background 
,(crdt--get-cursor-color k))
                                                       colored-name)
-                                   (vector colored-name focused-buffer-name 
host (format "%s" service)))))
+                                   (vector colored-name focused-buffer-name 
(format "%s:%s" host service)))))
                        tabulated-list-entries))
                table)
       (tabulated-list-init-header)