[nongnu] elpa/hyperdrive 1e25c2ddb8 080/123: Change: (hyperdrive-menu) Make Visiting group work in files

[ELPA Syncer]

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

    Change: (hyperdrive-menu) Make Visiting group work in files
---
 hyperdrive-menu.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index e5a42f1b56..96ed0d3e6b 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -67,22 +67,26 @@
     ("H P" "Purge" hyperdrive-purge)
     ;; TODO: Hook into transient-show-help?
     ("?" "Info manual" hyperdrive-info-manual)]
-  [[ ;; Current directory
+  [[ ;; Visiting
     :if (lambda ()
-          (and (oref transient--prefix scope) (eq major-mode 
'hyperdrive-dir-mode)))
+          (oref transient--prefix scope))
     :description
     (lambda ()
       (let ((entry (oref transient--prefix scope)))
-        (concat (propertize "Current directory: " 'face 'transient-heading)
+        (concat (propertize "Visiting: " 'face 'transient-heading)
                 (propertize (hyperdrive--format-path (hyperdrive-entry-path 
entry))
                             'face 'transient-value))))
     ("^" "Up to parent" hyperdrive-up
      :inapt-if-not (lambda ()
                      (hyperdrive-parent (oref transient--prefix scope))))
     ("o" "Sort" hyperdrive-dir-sort
+     :if (lambda ()
+           (eq major-mode 'hyperdrive-dir-mode))
      :transient t)
     ;; TODO: Combine previous and next commands
     ("p" "previous" hyperdrive-ewoc-previous
+     :if (lambda ()
+           (eq major-mode 'hyperdrive-dir-mode))
      :transient t)
     ("n" "next" hyperdrive-ewoc-next
      :transient t)]