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:
fdb5b41
)
URL copying now uses gophers:// for TLS addresses.
v1.4.1
author
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 21 Jun 2019 18:03:17 +0000
(20:03 +0200)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Fri, 21 Jun 2019 18:03:17 +0000
(20:03 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
d4eba02
..
7cceacb
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-4,7
+4,7
@@
;; Author: Tim Vaughan <tgvaughan@gmail.com>
;; Created: 11 April 2019
;; Author: Tim Vaughan <tgvaughan@gmail.com>
;; Created: 11 April 2019
-;; Version: 1.4.
0
+;; Version: 1.4.
1
;; Keywords: comm gopher
;; Homepage: https://github.com/tgvaughan/elpher
;; Package-Requires: ((emacs "25"))
;; Keywords: comm gopher
;; Homepage: https://github.com/tgvaughan/elpher
;; Package-Requires: ((emacs "25"))
@@
-55,7
+55,7
@@
;;; Global constants
;;
;;; Global constants
;;
-(defconst elpher-version "1.4.
0
"
+(defconst elpher-version "1.4.
1
"
"Current version of elpher.")
(defconst elpher-margin-width 6
"Current version of elpher.")
(defconst elpher-margin-width 6
@@
-1073,7
+1073,9
@@
host, selector and port."
(if (and (equal type ?h)
(string-prefix-p "URL:" selector))
(elt (split-string selector "URL:") 1)
(if (and (equal type ?h)
(string-prefix-p "URL:" selector))
(elt (split-string selector "URL:") 1)
- (concat "gopher://"
+ (concat "gopher"
+ (if (elpher-address-use-tls-p address) "s" "")
+ "://"
host
(if (equal port 70)
""
host
(if (equal port 70)
""