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

Add: Complete members and rooms at point

Browse source
This commit is contained in:
Adam Porter 2021-08-18 11:02:27 -05:00
parent a3628c29f9
commit e789f9cb86
2 changed files with 71 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
README.org
View file

@ -124,6 +124,7 @@ These bindings are common to all of the following buffer types:
+ Write new message: ~RET~
+ Write reply to event at point (when region is active, only quote marked text) : ~S-RET~
+ Complete members and rooms at point: ~C-M-i~ (standard ~completion-at-point~ command).
+ Compose message in a separate buffer (while writing in minibuffer): ~C-c '~ (Use command ~ement-room-compose-org~ to activate Org mode in the compose buffer.)
+ Send emote: ~e~
+ Send reaction (a type of annotation) to event at point, or send same reaction at point: ~a~

70
ement-room.el
View file

@ -1469,6 +1469,8 @@ and erases the buffer."
(erase-buffer))
(remove-overlays)
(setf buffer-read-only t
completion-at-point-functions
'(ement-room--member-names-and-ids ement-room--complete-rooms-at-point)
left-margin-width ement-room-left-margin-width
right-margin-width ement-room-right-margin-width
;; TODO: Use EWOC header/footer for, e.g. typing messages.
@ -2864,6 +2866,74 @@ Web-compatible HTML output, using HTML like:
(format "<pre><code class=\"src language-%s\"%s>%s</code></pre>"
lang label code))))))
;;;;; Completion
;; Completing member and room names.
(defun ement-room--complete-members-at-point ()
"Complete member names and IDs at point.
Uses members in the current buffer's room. For use in
`completion-at-point-functions'."
(let ((beg (save-excursion
(re-search-backward (rx (or bol bos blank)))
(1+ (point))))
(end (point))
(collection-fn (completion-table-dynamic
;; The manual seems to show the FUN ignoring any
;; arguments, but the `completion-table-dynamic' docstring
;; seems to say that it should use the argument.
(lambda (_ignore)
(ement-room--member-names-and-ids)))))
(list beg end collection-fn :exclusive 'no)))
(defun ement-room--complete-rooms-at-point ()
"Complete room aliases and IDs at point.
For use in `completion-at-point-functions'."
(let ((beg (save-excursion
(re-search-backward (rx (or bol bos blank)))
(1+ (point))))
(end (point))
(collection-fn (completion-table-dynamic
;; The manual seems to show the FUN ignoring any
;; arguments, but the `completion-table-dynamic' docstring
;; seems to say that it should use the argument.
(lambda (_ignore)
(ement-room--room-aliases-and-ids)))))
(list beg end collection-fn :exclusive 'no)))
(defun ement-room--member-names-and-ids ()
"Return a list of member names and IDs seen in current room.
For use in `completion-at-point-functions'."
;; For now, we just collect a list of members from events we've seen.
;; TODO: In the future, we may maintain a per-room table of members, which
;; would be more suitable for completing names according to the spec.
(let* ((room (if (minibufferp)
(buffer-local-value
'ement-room (window-buffer (minibuffer-selected-window)))
ement-room))
(ewoc (if (minibufferp)
(buffer-local-value
'ement-ewoc (window-buffer (minibuffer-selected-window)))
ement-ewoc))
(members-seen (mapcar #'ement-event-sender
(ewoc-collect ewoc #'ement-event-p))))
(delete-dups
(cl-loop for member in members-seen
collect (ement-user-id member)
collect (ement-room--user-display-name member room)))))
(defun ement-room--room-aliases-and-ids ()
"Return a list of room names and aliases seen in current session.
For use in `completion-at-point-functions'."
(let* ((session (if (minibufferp)
(buffer-local-value
'ement-session (window-buffer (minibuffer-selected-window)))
ement-session)))
(delete-dups
(delq nil (cl-loop for room in (ement-session-rooms session)
collect (ement-room-id room)
collect (ement-room-canonical-alias room))))))
;;;; Footer
(provide 'ement-room)