branch: externals/taxy
commit 421cfbfe9ba79fca20ac9afaca98f3fbc292b0a5
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>

    Add: (deffy-project)
---
 examples/deffy.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/examples/deffy.el b/examples/deffy.el
index 46e9087..f6d6c75 100644
--- a/examples/deffy.el
+++ b/examples/deffy.el
@@ -218,6 +218,18 @@ Interactively, with prefix, display in dedicated side 
window."
     :keys (remove 'file deffy-taxy-default-keys)
     :display-buffer-action display-buffer-action))
 
+(cl-defun deffy-project
+    (&optional (project (or (project-current)
+                           (cons 'transient default-directory)))
+              &key display-buffer-action)
+  "Show an Deffy view for PROJECT.
+Interactively, with prefix, display in dedicated side window."
+  (interactive
+   (list nil :display-buffer-action (when current-prefix-arg
+                                     deffy-side-window-action)))
+  (deffy :project project
+    :display-buffer-action display-buffer-action))
+
 (defun deffy-revert (_ignore-auto _noconfirm)
   "Revert current Deffy buffer."
   (interactive)

Reply via email to