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

Fix: (ement-room-compose-send) Buffer variables

Browse source
This commit is contained in:
Adam Porter 2021-08-06 10:16:23 -05:00
parent d1da524246
commit 109af6f6dc
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ement-room.el
View file

@ -1929,9 +1929,11 @@ To be called from an `ement-room-compose' buffer."
;; Putting it in the kill ring seems like the best thing to do, to ensure ;; Putting it in the kill ring seems like the best thing to do, to ensure
;; it doesn't get lost if the user exits the minibuffer before sending. ;; it doesn't get lost if the user exits the minibuffer before sending.
(kill-new (string-trim (buffer-string))) (kill-new (string-trim (buffer-string)))
(kill-buffer (current-buffer)) (let ((room ement-room)
;; FIXME: This leaves the window from the compose buffer open, which feels awkward. (session ement-session))
(ement-view-room ement-session ement-room) ;; FIXME: This leaves the window from the compose buffer open, which feels awkward.
(kill-buffer (current-buffer))
(ement-view-room session room))
(let* ((prompt (format "Send message (%s): " (ement-room-display-name ement-room))) (let* ((prompt (format "Send message (%s): " (ement-room-display-name ement-room)))
(body (ement-room-read-string prompt (car kill-ring) nil nil 'inherit-input-method))) (body (ement-room-read-string prompt (car kill-ring) nil nil 'inherit-input-method)))
(ement-room-send-message ement-room ement-session :body body))) (ement-room-send-message ement-room ement-session :body body)))