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

Fix: (ement-view-room) Use existing room buffer

Browse source
This commit is contained in:
Adam Porter 2021-08-01 01:06:04 -05:00
parent 9bc7712540
commit 91618dacae
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
ement.el
View file

@ -222,11 +222,15 @@ Calls `pop-to-buffer-same-window'. Interactively, with prefix,
call `pop-to-buffer'." call `pop-to-buffer'."
(interactive (list (car ement-sessions) (interactive (list (car ement-sessions)
(ement-complete-room (car ement-sessions)))) (ement-complete-room (car ement-sessions))))
(pcase-let* (((cl-struct ement-room (local (map buffer))) room))
(unless (buffer-live-p buffer)
(setf (alist-get 'buffer (ement-room-local room))
(ement-room--buffer session room (ement--room-buffer-name room))
buffer (alist-get 'buffer (ement-room-local room))))
;; FIXME: There must be a better way to handle this. ;; FIXME: There must be a better way to handle this.
(funcall (if current-prefix-arg (funcall (if current-prefix-arg
#'pop-to-buffer #'pop-to-buffer-same-window) #'pop-to-buffer #'pop-to-buffer-same-window)
(ement-room--buffer session room (ement--room-buffer-name room))) buffer)))
(goto-char (point-max)))
(cl-defun ement-upload (session &key data filename then else (cl-defun ement-upload (session &key data filename then else
(content-type "application/octet-stream")) (content-type "application/octet-stream"))