branch: elpa/hyperdrive
commit 59aeb289b8d37fbfa9350e4d0526699d6f3dea08
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (hyperdrive-menu) Display correct directory version in transient
---
hyperdrive-menu.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 92477e4878..adefba958c 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -81,11 +81,13 @@
(lambda ()
(let* ((entry (h/menu--scope))
(version (he/version entry))
- (existsp (he/exists-p entry)))
+ (existsp (he/exists-p entry))
+ (directoryp (hyperdrive--entry-directory-p entry)))
(concat
(propertize "Version: " 'face 'transient-heading)
(propertize (format "%s"
- (cond ((null existsp) "nonexistent")
+ (cond (directoryp (or version "latest"))
+ ((null existsp) "nonexistent")
((eq 'unknown existsp) "unknown")
(version version)
(t "latest")))
