[elpa] externals/taxy d456f88 24/42: Add: (deffy-side-window-action)

[ELPA Syncer]

branch: externals/taxy
commit d456f88e3454e6b45dfcb6140a29b2fdb1058bec
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@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))