branch: elpa/hyperdrive
commit 8b9c14de852e66d431cbb8ea71b65db93351e60a
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@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.
