branch: elpa/hyperdrive
commit d888a2d1c37eb86461a43a3ceafdc0f2b9d64f16
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Add: (hyperdrive-view-file) Open hyperdrive file in view-mode
---
hyperdrive.el | 12 ++++++++++++
1 file changed, 12 insertions(+)
diff --git a/hyperdrive.el b/hyperdrive.el
index 214b2e9594..4aa808f79b 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -349,6 +349,18 @@ for more information. See `hyperdrive-read-entry' and
(interactive (list (hyperdrive-read-entry :force-prompt current-prefix-arg)))
(hyperdrive-open entry))
+;;;###autoload
+(defun hyperdrive-view-file (entry)
+ "View ENTRY in `view-mode', returning to previous buffer when done.
+Interactively, prompts for known hyperdrive and path.
+
+With universal prefix argument \\[universal-argument], prompts
+for more information. See `hyperdrive-read-entry' and
+`hyperdrive-complete-hyperdrive'."
+ (interactive (list (hyperdrive-read-entry :force-prompt current-prefix-arg)))
+ (hyperdrive-open entry
+ :createp nil :then (lambda () (view-buffer (current-buffer)))))
+
;;;###autoload
(defun hyperdrive-open-url (url)
"Open hyperdrive URL."
