branch: elpa/hyperdrive
commit 45fae842947272653a8da2b141169a673e438ce2
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-menu) Make ^ inapt if already at root
---
hyperdrive-menu.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index d0f63252ea..ac08c0b3b8 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -73,7 +73,9 @@
(concat (propertize "Current directory: " 'face 'transient-heading)
(propertize (hyperdrive--format-path (hyperdrive-entry-path
entry))
'face 'transient-value))))
- ("^" "Up to parent" hyperdrive-up)
+ ("^" "Up to parent" hyperdrive-up
+ :inapt-if-not (lambda ()
+ (hyperdrive-parent (oref transient--prefix scope))))
("o" "Sort" hyperdrive-dir-sort)]
[ ;; File at point
:if (lambda ()
