branch: elpa/hyperdrive
commit a6e7bf21aba4cedd92c0132689dceb8191251705
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (h/open) Change answer in help prompt
Since "help" seems hard-coded in READ-ANSWER, and "info" seems a bit
vague, "explain" seems like a good way for the user to say, "Explain
this problem to me," which then opens the Info manual section.
---
hyperdrive-lib.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 4661db29fd..bddbd1d2bd 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -692,19 +692,19 @@ echo area when the request for the file is made."
('history (h/history entry))
('up (h/open (h/parent entry)))
('recurse (h/open (h/parent entry) :recurse t))
- ('help (info "(hyperdrive) Unknown paths")))))
+ ('explain (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")
- ("help" ?i "show Info manual
section about unknown paths")
+ ("explain" ?e "show Info manual
section about unknown paths")
("quit" ?q "quit")))
("history" 'history)
("up" 'up)
("recurse" 'recurse)
- ("help" 'help)
+ ("explain" 'explain)
("quit" nil))))
(pcase (plz-response-status (plz-error-response err))
;; FIXME: If plz-error is a curl-error, this block will fail.
