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

Add: (ement-complete-user-id) Suggest user at point

Browse source
This commit is contained in:
Adam Porter 2022-03-26 01:22:05 -05:00
parent 8a889aa7f6
commit dcc500af73
1 changed files with 23 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
ement.el
View file

@ -297,21 +297,29 @@ THEN and ELSE are passed to `ement-api', which see."
(defun ement-complete-user-id ()
"Return a user-id selected with completion.
Selects from seen users on all sessions. Allows unseen user IDs
to be selected as well."
(let* ((display-to-id
(cl-loop for key being the hash-keys of ement-users
using (hash-values value)
collect (cons (format "%s <%s>"
(string-join
(map-values
(ement-user-room-display-names value))
", ")
key)
key)))
(selected-user (completing-read "User: " (mapcar #'car display-to-id))))
(or (alist-get selected-user display-to-id nil nil #'equal)
selected-user)))
Selects from seen users on all sessions. If point is on an
event, suggests the event's sender as initial input. Allows
unseen user IDs to be input as well."
(cl-labels ((format-user (user)
(format "%s <%s>"
(string-join
(delete-dups
(map-values
(ement-user-room-display-names user)))
", ")
(ement-user-id user))))
(let* ((display-to-id
(cl-loop for key being the hash-keys of ement-users
using (hash-values value)
collect (cons (format-user value) key)))
(user-at-point (when (equal major-mode 'ement-room-mode)
(when-let ((node (ewoc-locate ement-ewoc)))
(when (ement-event-p (ewoc-data node))
(format-user (ement-event-sender (ewoc-data node)))))))
(selected-user (completing-read "User: " (mapcar #'car display-to-id)
nil nil user-at-point)))
(or (alist-get selected-user display-to-id nil nil #'equal)
selected-user))))
(defun ement-send-direct-message (session user-id message)
"Send a direct MESSAGE to USER-ID on SESSION.