branch: elpa/hyperdrive
commit b2e8baa0088198118e062199e52f1dee3805d4d2
Author: Joseph Turner <jos...@ushin.org>
Commit: Adam Porter <a...@alphapapa.net>
Tidy: (h/open) Tidy prompt
---
hyperdrive-lib.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 58bc429061..4661db29fd 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -691,18 +691,21 @@ echo area when the request for the file is made."
(pcase (prompt)
('history (h/history entry))
('up (h/open (h/parent entry)))
- ('recurse (h/open (h/parent entry) :recurse
t)))))
+ ('recurse (h/open (h/parent entry) :recurse t))
+ ('help (info "(hyperdrive) Unknown paths")))))
(prompt ()
(pcase-exhaustive
(read-answer (format "URL not found: \"%s\". "
(he/url entry))
'(("history" ?h "open version
history")
("up" ?u "open parent
directory")
("recurse" ?r "go up until a
directory is found")
- ("exit" ?q "exit")))
+ ("help" ?i "show Info manual
section about unknown paths")
+ ("quit" ?q "quit")))
("history" 'history)
("up" 'up)
("recurse" 'recurse)
- ("exit" nil))))
+ ("help" 'help)
+ ("quit" nil))))
(pcase (plz-response-status (plz-error-response err))
;; FIXME: If plz-error is a curl-error, this block will fail.
(404 ;; Path not found.
