branch: elpa/dirvish
commit 7af7ef9f2f666b95fd9b5ff76764982379ce4e93
Author: Alex Lu <hellosimon1...@hotmail.com>
Commit: Alex Lu <hellosimon1...@hotmail.com>
fix: fixup last commit for dirvish-peek and dirvish-fd
---
extensions/dirvish-fd.el | 3 +++
extensions/dirvish-peek.el | 5 ++++-
2 files changed, 7 insertions(+), 1 deletion(-)
diff --git a/extensions/dirvish-fd.el b/extensions/dirvish-fd.el
index 113391dc55..b938236c72 100644
--- a/extensions/dirvish-fd.el
+++ b/extensions/dirvish-fd.el
@@ -443,6 +443,9 @@ The command run is essentially:
(dirvish-prop :cus-header 'dirvish-fd-header)
(dirvish-prop :remote remote)
(dirvish-prop :global-header t)
+ (dirvish-prop :preview-dps
+ (if remote '(dirvish-tramp-dp) (dv-preview-dispatchers dv)))
+ (dirvish-prop :attrs (dv-attributes dv))
(cl-loop for (k v) on dirvish-scopes by 'cddr
do (dirvish-prop k (and (functionp v) (funcall v))))
(let ((proc (apply #'start-file-process
diff --git a/extensions/dirvish-peek.el b/extensions/dirvish-peek.el
index 01d6b67dec..2986184d2b 100644
--- a/extensions/dirvish-peek.el
+++ b/extensions/dirvish-peek.el
@@ -77,7 +77,10 @@ one of categories in `dirvish-peek-categories'."
(minibuffer-selected-window) (next-window)))
(cl-loop for (k v) on dirvish-scopes by 'cddr
do (dirvish-prop k (and (functionp v) (funcall v))))
- (dirvish-prop :dv (dv-id new-dv)))))
+ (dirvish-prop :dv (dv-id new-dv))
+ (dirvish-prop :preview-dps
+ (if (file-remote-p default-directory) '(dirvish-tramp-dp)
+ (dv-preview-dispatchers dv))))))
(defun dirvish-peek-update-h ()
"Hook for `post-command-hook' to update peek window."
