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
Version bump.
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
7605bdf
..
c135e09
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-4,7
+4,7
@@
;; Author: Tim Vaughan <plugd@thelambdalab.xyz>
;; Created: 11 April 2019
;; Author: Tim Vaughan <plugd@thelambdalab.xyz>
;; Created: 11 April 2019
-;; Version: 2.7.
9
+;; Version: 2.7.
11
;; Keywords: comm gopher
;; Homepage: http://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "26"))
;; Keywords: comm gopher
;; Homepage: http://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "26"))
@@
-70,7
+70,7
@@
;;; Global constants
;;
;;; Global constants
;;
-(defconst elpher-version "2.7.
9
"
+(defconst elpher-version "2.7.
11
"
"Current version of elpher.")
(defconst elpher-margin-width 6
"Current version of elpher.")
(defconst elpher-margin-width 6
@@
-307,9
+307,9
@@
requiring gopher-over-TLS."
(defun elpher-address-to-url (address)
"Get string representation of ADDRESS, or nil if ADDRESS is special."
(defun elpher-address-to-url (address)
"Get string representation of ADDRESS, or nil if ADDRESS is special."
- (if (
not (elpher-address-special-p address)
)
- (url-encode-url (url-recreate-url address))
-
nil
))
+ (if (
elpher-address-special-p address
)
+ nil
+
(url-encode-url (url-recreate-url address))
))
(defun elpher-address-type (address)
"Retrieve type of ADDRESS object.
(defun elpher-address-type (address)
"Retrieve type of ADDRESS object.
@@
-1522,11
+1522,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."