[nongnu] elpa/hyperdrive 76b896b964 02/15: Add: (hyperdrive-blob-mode) Bindings for traversing version history

[ELPA Syncer]

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

    Add: (hyperdrive-blob-mode) Bindings for traversing version history
    
    The name hyperdrive-blob-mode is inspired by magit-blob-mode.
---
 hyperdrive-lib.el |  1 +
 hyperdrive.el     | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 25d727991e..0fbbbf5609 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1317,6 +1317,7 @@ If then, then call THEN with no arguments.  Default 
handler."
                   ('markdown-mode
                    ;; TODO: Handle markdown link
                    )))
+              (h/blob-mode (if version +1 -1))
               (when then
                 (funcall then)))))))
 
diff --git a/hyperdrive.el b/hyperdrive.el
index 266e595170..d2b9724aab 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -530,6 +530,16 @@ it to `hyperdrive-open'."
   "j"   #'h/up
   "C-j" #'h/up)
 
+(define-minor-mode hyperdrive-blob-mode
+  "Minor mode for visiting previous versions of hyperdrive files."
+  :global nil
+  :interactive nil
+  :group 'hyperdrive
+  :lighter " hyperdrive-blob"
+  :keymap '(("n" . h/open-next-version)
+            ("p" . h/open-previous-version)
+            ("q" . kill-current-buffer)))
+
 (defun h/open-previous-version (entry)
   "Open previous version of ENTRY."
   (interactive (list h/current-entry) h/mode)