The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
elpher-go now trims surrounding whitespace from input string.
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
1988656
..
1ea9e71
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-1538,11
+1538,12
@@
If ADDRESS is already bookmarked, update the label only."
"Go to a particular gopher site HOST-OR-URL.
When run interactively HOST-OR-URL is read from the minibuffer."
(interactive "sGopher or Gemini URL: ")
"Go to a particular gopher site HOST-OR-URL.
When run interactively HOST-OR-URL is read from the minibuffer."
(interactive "sGopher or Gemini URL: ")
- (let ((page (elpher-make-page host-or-url
- (elpher-address-from-url host-or-url))))
+ (let* ((cleaned-host-or-url (string-trim host-or-url))
+ (address (elpher-address-from-url cleaned-host-or-url))
+ (page (elpher-make-page cleaned-host-or-url address)))
(switch-to-buffer "*elpher*")
(elpher-visit-page page)
(switch-to-buffer "*elpher*")
(elpher-visit-page page)
-
'()
))
+
nil
))
(defun elpher-go-current ()
"Go to a particular site read from the minibuffer, initialized with the current URL."
(defun elpher-go-current ()
"Go to a particular site read from the minibuffer, initialized with the current URL."