 |
Revert code to remove gopher:// in argv - clic - Clic is an command line intera… |
 |
git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit 7177f07c0261e877fcc1d027b7c9d0b5581142cc |
|
parent d07922a2554fc78ba5efe7e9818e4cb7fbfd6938 |
|
Author: Solene Rapenne <[email protected]> |
|
Date: Wed, 3 Jan 2018 10:37:08 +0100 |
|
|
|
Revert code to remove gopher:// in argv |
|
|
|
Diffstat: |
|
M clic.lisp | 4 +++- |
|
|
|
1 file changed, 3 insertions(+), 1 deletion(-) |
|
--- |
|
diff --git a/clic.lisp b/clic.lisp |
|
@@ -376,7 +376,9 @@ |
|
|
|
(defun parse-url(url) |
|
"parse a gopher url and return a location" |
|
- (let ((url (string-left-trim "gopher://" url))) |
|
+ (let ((url (if (= 0 (search "gopher://" url)) |
|
+ (subseq url 9) |
|
+ url))) |
|
|
|
;; splitting with / to get host:port and uri |
|
;; splitting host and port to get them |
