branch: elpa/hyperdrive
commit 24df0fa1b7d8afae2f9a504ed72da3c3c7d8c0ee
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (h/menu-bar-menu) Handle missing version range data edge cases
---
hyperdrive.el | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index ac3dd2cefd..a89292555d 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -1208,9 +1208,15 @@ The return value of this function is the retrieval
buffer."
(not (h//entry-directory-p entry-at-point)))
:help "View file at point"])
("Version"
- :label (format "Version (%s)"
- (or (he/version h/current-entry)
- "latest"))
+ :label (let* ((version (he/version h/current-entry))
+ (existsp (he/exists-p h/current-entry))
+ (directoryp (hyperdrive--entry-directory-p
h/current-entry)))
+ (format "Version (%s)"
+ (cond (directoryp (or version "latest"))
+ ((null existsp) "nonexistent")
+ ((eq 'unknown existsp) "unknown")
+ (version version)
+ (t "latest"))))
["Previous Version" (lambda ()
(interactive)
(call-interactively #'h/open-previous-version))
