[nongnu] elpa/hyperdrive 8b9c14de85 17/21: Add: (hyperdrive-open-latest-version) Open latest version of entry

[ELPA Syncer]

branch: elpa/hyperdrive
commit 8b9c14de852e66d431cbb8ea71b65db93351e60a
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Add: (hyperdrive-open-latest-version) Open latest version of entry
---
 hyperdrive.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/hyperdrive.el b/hyperdrive.el
index 153a63f624..e4ade5fe5c 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -582,6 +582,15 @@ it to `hyperdrive-open'."
     ((and (pred hyperdrive-entry-p) next-entry)
      (hyperdrive-open next-entry))))
 
+(defun hyperdrive-open-latest-version (entry)
+  "Open latest version of ENTRY."
+  (declare (modes hyperdrive-mode))
+  (interactive (list hyperdrive-current-entry))
+  (if-let ((latest-entry (hyperdrive-entry-at nil entry)))
+      (hyperdrive-open latest-entry)
+    (hyperdrive-message (substitute-command-keys "%s does not exist at its 
hyperdrive's latest version. Try \\[hyperdrive-history]")
+                        (hyperdrive-entry-description entry :with-version 
nil))))
+
 ;;;; Bookmark support
 
 ;; TODO: Display entry description instead of full URL in bookmark list view.