iRevert code to remove gopher:// in argv - clic - Clic is an command line interactive client for gopher written in Common LISP Err bitreich.org 70 hgit clone git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/ URL:git://bitreich.org/clic/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/clic/ bitreich.org 70 1Log /scm/clic/log.gph bitreich.org 70 1Files /scm/clic/files.gph bitreich.org 70 1Refs /scm/clic/refs.gph bitreich.org 70 1Tags /scm/clic/tag bitreich.org 70 1README /scm/clic/file/README.md.gph bitreich.org 70 1LICENSE /scm/clic/file/LICENSE.gph bitreich.org 70 i--- Err bitreich.org 70 1commit 7177f07c0261e877fcc1d027b7c9d0b5581142cc /scm/clic/commit/7177f07c0261e877fcc1d027b7c9d0b5581142cc.gph bitreich.org 70 1parent d07922a2554fc78ba5efe7e9818e4cb7fbfd6938 /scm/clic/commit/d07922a2554fc78ba5efe7e9818e4cb7fbfd6938.gph bitreich.org 70 hAuthor: Solene Rapenne URL:mailto:solene@perso.pw bitreich.org 70 iDate: Wed, 3 Jan 2018 10:37:08 +0100 Err bitreich.org 70 i Err bitreich.org 70 iRevert code to remove gopher:// in argv Err bitreich.org 70 i Err bitreich.org 70 iDiffstat: Err bitreich.org 70 i M clic.lisp | 4 +++- Err bitreich.org 70 i Err bitreich.org 70 i1 file changed, 3 insertions(+), 1 deletion(-) Err bitreich.org 70 i--- Err bitreich.org 70 1diff --git a/clic.lisp b/clic.lisp /scm/clic/file/clic.lisp.gph bitreich.org 70 i@@ -376,7 +376,9 @@ Err bitreich.org 70 i Err bitreich.org 70 i (defun parse-url(url) Err bitreich.org 70 i "parse a gopher url and return a location" Err bitreich.org 70 i- (let ((url (string-left-trim "gopher://" url))) Err bitreich.org 70 i+ (let ((url (if (= 0 (search "gopher://" url)) Err bitreich.org 70 i+ (subseq url 9) Err bitreich.org 70 i+ url))) Err bitreich.org 70 i Err bitreich.org 70 i ;; splitting with / to get host:port and uri Err bitreich.org 70 i ;; splitting host and port to get them Err bitreich.org 70 .