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

30
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."
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 "%s <%s>"
(string-join
(map-values
(ement-user-room-display-names value))
", ")
key)
key)))
(selected-user (completing-read "User: " (mapcar #'car display-to-id))))
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)))
selected-user))))
(defun ement-send-direct-message (session user-id message)
"Send a direct MESSAGE to USER-ID on SESSION.