branch: externals/taxy
commit d456f88e3454e6b45dfcb6140a29b2fdb1058bec
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Add: (deffy-side-window-action)
---
examples/deffy.el | 28 +++++++++++++++++++---------
1 file changed, 19 insertions(+), 9 deletions(-)
diff --git a/examples/deffy.el b/examples/deffy.el
index a3190cd..67fb454 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -112,6 +112,18 @@
(defvar-local deffy-display-buffer-action nil
"Last-used display-buffer-action in the current Deffy buffer.")
+;;;; Options
+
+(defcustom deffy-side-window-action
+ '(display-buffer-in-side-window
+ (side . right)
+ (window-parameters
+ (window-side . right)
+ (no-delete-other-windows . t)))
+ "`display-buffer' action used when displaying Deffy buffer in a side window.
+See Info node `(elisp)Displaying Buffers in Side Windows'."
+ :type 'sexp)
+
;;;; Commands
;;;###autoload
@@ -190,17 +202,15 @@ buffer."
(pop-to-buffer buffer-name display-buffer-action))))
;;;###autoload
-(cl-defun deffy-buffer (&optional (buffer (current-buffer))
- &key (display-buffer-action
- (when current-prefix-arg
- '(display-buffer-in-side-window
- (side . right)
- (window-parameters
- (window-side . right)
- (no-delete-other-windows . t))))))
+(cl-defun deffy-buffer
+ (&optional (buffer (current-buffer))
+ &key display-buffer-action)
"Show an Deffy view for BUFFER.
Interactively, with prefix, display in dedicated side window."
- (interactive)
+ (interactive
+ (list (current-buffer)
+ :display-buffer-action (when current-prefix-arg
+ deffy-side-window-action)))
(deffy :files (list (buffer-file-name buffer))
:keys (remove 'file deffy-taxy-default-keys)
:display-buffer-action display-buffer-action))
