[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/elpher b526997024: Make elpher-go-current respect default
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/elpher b526997024: Make elpher-go-current respect default url scheme. |
Date: |
Mon, 8 Aug 2022 22:59:02 -0400 (EDT) |
branch: elpa/elpher
commit b5269970249871a8889950a3e47bdff51eb0420c
Author: plugd <plugd@thelambdalab.xyz>
Commit: plugd <plugd@thelambdalab.xyz>
Make elpher-go-current respect default url scheme.
---
elpher.el | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/elpher.el b/elpher.el
index b18a897a39..53ca1e4470 100644
--- 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
- (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
@@ -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))
- (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))))
- (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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/elpher b526997024: Make elpher-go-current respect default url scheme.,
ELPA Syncer <=