[nongnu] elpa/hyperdrive 8d65ca8af9 078/123: Change: (hyperdrive-menu) Add binding for hyperdrive-dir-view-file

[ELPA Syncer]

branch: elpa/hyperdrive
commit 8d65ca8af94f1b38a95bc21f8d3c1de4caaf6aaf
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive-menu) Add binding for hyperdrive-dir-view-file
---
 hyperdrive-menu.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 2f551bdb47..467a57c78a 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -103,7 +103,11 @@
     ;; ("f D" "Delete" hyperdrive-delete)
     ;; FIXME: Copy entry at point, not `hyperdrive-current-entry'.
     ("w" "Copy URL" hyperdrive-copy-url)
-    ("RET" "Open" hyperdrive-dir-find-file)]
+    ("RET" "Open" hyperdrive-dir-find-file)
+    ("v" "View" hyperdrive-dir-view-file
+     :if (lambda ()
+           (when-let ((entry-at-point (hyperdrive-dir--entry-at-point)))
+             (not (hyperdrive--entry-directory-p entry-at-point)))))]
    ["Version"
     :description (lambda ()
                    (if-let ((entry (oref transient--prefix scope))