branch: elpa/hyperdrive
commit 8c49e71aaca779e919b230c595cea3d9d28993c2
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-menu) Make "History" command inapt for directory
---
hyperdrive-menu.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 20d288679d..23eddc608a 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -112,8 +112,11 @@
(display-version (if-let
((next-version (hyperdrive-entry-version next-entry)))
(number-to-string
next-version)
"latest")))
- (concat ": " (propertize display-version 'face
'transient-value))))))
- ("V h" "History" hyperdrive-history)]]
+ (concat ": " (propertize display-version 'face
'transient-value)))))
+ )
+ ("V h" "History" hyperdrive-history
+ :inapt-if (lambda ()
+ (hyperdrive--entry-directory-p (oref transient--prefix
scope))))]]
[ :if (lambda () (and (oref transient--prefix scope)
;; TODO: Remove this check and add useful history
transient UI.
(not (eq 'hyperdrive-history-mode major-mode))))
