Revert code to remove gopher:// in argv - clic - Clic is an command line interactive client for gopher written in Common LISP
HTML git clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/
DIR Log
DIR Files
DIR Refs
DIR Tags
DIR README
DIR LICENSE
---
DIR commit 7177f07c0261e877fcc1d027b7c9d0b5581142cc
DIR parent d07922a2554fc78ba5efe7e9818e4cb7fbfd6938
HTML Author: Solene Rapenne <solene@perso.pw>
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(-)
---
DIR 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