hiro/ement.el
1
0
Fork 0
mirror of https://github.com/vale981/ement.el synced 2025-03-05 17:21:41 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Change: (ement-complete-session) Suggest current buffer's room

Browse source
This commit is contained in:
Adam Porter 2022-03-22 18:08:07 -05:00
parent b09e8ca95e
commit f20d420b70
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
ement.el
View file

@ -458,7 +458,15 @@ If SESSION is nil, select from rooms in all of `ement-sessions'."
(ement-room-id room)))
(list room session)))))
(names (mapcar #'car name-to-room-session))
(selected-name (completing-read "Room: " names nil t)))
(selected-name (completing-read "Room: " names nil t
(when (equal major-mode 'ement-room-mode)
;; Suggest current buffer's room.
(format "%s (%s)"
(or (ement-room-display-name ement-room)
(setf (ement-room-display-name ement-room)
(ement-room--room-display-name ement-room)))
(or (ement-room-canonical-alias ement-room)
(ement-room-id ement-room)))))))
(alist-get selected-name name-to-room-session nil nil #'string=)))
(cl-defun ement--sync (session &key force quiet