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: (ement-taxy-side-window)

Browse source
This commit is contained in:
Adam Porter 2022-05-29 11:18:31 -05:00
parent de1e4b8e43
commit 6fd0d563c2
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ement-taxy.el
View file

@ -516,6 +516,21 @@ DISPLAY-BUFFER-ACTION."
(when (get-buffer-window)
(set-window-start (get-buffer-window) window-start)))))))
(cl-defun ement-taxy-side-window (&key (side 'left))
"Show room list in side window on SIDE.
Interactively, with prefix, show on right side; otherwise, on
left."
(interactive (when current-prefix-arg
(list :side 'right)))
(let ((display-buffer-mark-dedicated t))
;; Not sure if binding `display-buffer-mark-dedicated' is still necessary.
(ement-taxy-room-list
:display-buffer-action `(display-buffer-in-side-window
(dedicated . t)
(side . ,side)
(window-parameters
(no-delete-other-windows . t))))))
(defun ement-taxy-revert (_ignore-auto _noconfirm)
"Revert current Ement-Taxy buffer."
(interactive)