The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
eb329ae
)
Make elpher-go-current respect default url scheme.
author
plugd
<plugd@thelambdalab.xyz>
Tue, 9 Aug 2022 02:53:31 +0000
(12:53 +1000)
committer
plugd
<plugd@thelambdalab.xyz>
Tue, 9 Aug 2022 02:53:31 +0000
(12:53 +1000)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
b18a897
..
53ca1e4
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-2267,7
+2267,8
@@
supports the old protocol elpher, where the link is self-contained."
"Go to a particular gopher site HOST-OR-URL.
When run interactively HOST-OR-URL is read from the minibuffer."
(interactive (list
"Go to a particular gopher site HOST-OR-URL.
When run interactively HOST-OR-URL is read from the minibuffer."
(interactive (list
- (read-string (format "Visit URL (default scheme %s): " (elpher-get-default-url-scheme)))))
+ (read-string (format "Visit URL (default scheme %s): "
+ (elpher-get-default-url-scheme)))))
(let ((trimmed-host-or-url (string-trim host-or-url)))
(unless (string-empty-p trimmed-host-or-url)
(let ((page (elpher-page-from-url trimmed-host-or-url
(let ((trimmed-host-or-url (string-trim host-or-url)))
(unless (string-empty-p trimmed-host-or-url)
(let ((page (elpher-page-from-url trimmed-host-or-url
@@
-2284,10
+2285,14
@@
Unlike `elpher-go', the reader is initialized with the URL of the
current page."
(interactive)
(let* ((address (elpher-page-address elpher-current-page))
current page."
(interactive)
(let* ((address (elpher-page-address elpher-current-page))
- (url (read-string (format "Visit URL (default scheme %s): " (elpher-get-default-url-scheme))
+ (url (read-string (format "Visit URL (default scheme %s): "
+ (elpher-get-default-url-scheme))
(elpher-address-to-url address))))
(elpher-address-to-url address))))
- (unless (string-empty-p (string-trim url))
- (elpher-visit-page (elpher-page-from-url url)))))
+ (let ((trimmed-url (string-trim url)))
+ (unless (string-empty-p trimmed-url)
+ (elpher-with-clean-buffer
+ (elpher-visit-page
+ (elpher-page-from-url trimmed-url (elpher-get-default-url-scheme))))))))
(defun elpher-redraw ()
"Redraw current page."
(defun elpher-redraw ()
"Redraw current page."