From 6fd0d563c2924c34de2d2275059a94d59adf3190 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Sun, 29 May 2022 11:18:31 -0500 Subject: [PATCH] Add: (ement-taxy-side-window) --- ement-taxy.el | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/ement-taxy.el b/ement-taxy.el index 61f3e7b..d6c93fb 100644 --- a/ement-taxy.el +++ b/ement-taxy.el @@ -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)