[nongnu] elpa/hyperdrive 24df0fa1b7 17/19: Fix: (h/menu-bar-menu) Handle missing version range data edge cases

[ELPA Syncer]

branch: elpa/hyperdrive
commit 24df0fa1b7d8afae2f9a504ed72da3c3c7d8c0ee
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@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))