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:
42ce4f2
)
Fixed hole in gemini URL parsing.
author
Tim Vaughan
<tgvaughan@gmail.com>
Thu, 31 Oct 2019 17:13:25 +0000
(18:13 +0100)
committer
Tim Vaughan
<tgvaughan@gmail.com>
Thu, 31 Oct 2019 17:13:25 +0000
(18:13 +0100)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
8d4aa0e
..
19e78ef
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-987,7
+987,9
@@
For instance, the filename /a/b/../c/./d will reduce to /a/c/d"
(let ((address (url-generic-parse-url url)))
(unless (and (url-type address) (not (url-fullness address))) ;avoid mangling mailto: urls
(setf (url-fullness address) t)
(let ((address (url-generic-parse-url url)))
(unless (and (url-type address) (not (url-fullness address))) ;avoid mangling mailto: urls
(setf (url-fullness address) t)
- (unless (url-host address) ;if there is an explicit host, filenames are absolute
+ (if (url-host address) ;if there is an explicit host, filenames are absolute
+ (if (string-empty-p (url-filename address))
+ (setf (url-filename address) "/")) ;ensure empty filename is marked as absolute
(setf (url-host address) (url-host (elpher-node-address elpher-current-node)))
(unless (string-prefix-p "/" (url-filename address)) ;deal with relative links
(setf (url-filename address)
(setf (url-host address) (url-host (elpher-node-address elpher-current-node)))
(unless (string-prefix-p "/" (url-filename address)) ;deal with relative links
(setf (url-filename address)