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

Change/Fix: Close compose buffers upon sending

Browse source
This commit is contained in:
Adam Porter 2021-08-06 08:46:18 -05:00
parent 63985e4d47
commit f1ee6fd913
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
ement-room.el
View file

@ -1863,6 +1863,9 @@ ROOM defaults to the value of `ement-room'."
;; Compose messages in a separate buffer, like `org-edit-special'. ;; Compose messages in a separate buffer, like `org-edit-special'.
(defvar-local ement-room-compose-buffer nil
"Non-nil in buffers that are composing a message to a room.")
(cl-defun ement-room-compose-message (room session &key body) (cl-defun ement-room-compose-message (room session &key body)
"Compose a message to ROOM on SESSION. "Compose a message to ROOM on SESSION.
Interactively, compose to the current buffer's room. With BODY, Interactively, compose to the current buffer's room. With BODY,
@ -1873,6 +1876,7 @@ use it as the initial message contents."
(let* ((compose-buffer (generate-new-buffer (format "*Ement compose: %s*" (ement-room--room-display-name ement-room))))) (let* ((compose-buffer (generate-new-buffer (format "*Ement compose: %s*" (ement-room--room-display-name ement-room)))))
(with-current-buffer compose-buffer (with-current-buffer compose-buffer
(setq-local ement-room room) (setq-local ement-session session) (setq-local ement-room room) (setq-local ement-session session)
(setf ement-room-compose-buffer t)
;; TODO: Make mode configurable. ;; TODO: Make mode configurable.
;; FIXME: Compose with local map? ;; FIXME: Compose with local map?
(use-local-map (if (current-local-map) (use-local-map (if (current-local-map)
@ -1919,10 +1923,12 @@ To be called from a minibuffer opened from
"Prompt to send the current compose buffer's contents. "Prompt to send the current compose buffer's contents.
To be called from an `ement-room-compose' buffer." To be called from an `ement-room-compose' buffer."
(interactive) (interactive)
(cl-assert ement-room-compose-buffer)
(cl-assert ement-room) (cl-assert ement-session) (cl-assert ement-room) (cl-assert ement-session)
;; 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))
;; FIXME: This leaves the window from the compose buffer open, which feels awkward. ;; FIXME: This leaves the window from the compose buffer open, which feels awkward.
(ement-view-room ement-session ement-room) (ement-view-room ement-session ement-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)))