i[Deprecated] Remove offline saving - 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 bacab58344ef85a2b667fec54405a5472b35e495	/scm/clic/commit/bacab58344ef85a2b667fec54405a5472b35e495.gph	bitreich.org	70
1parent 86fd49cff30911ecdd2b5eca124561d9384726e7	/scm/clic/commit/86fd49cff30911ecdd2b5eca124561d9384726e7.gph	bitreich.org	70
hAuthor: Solene Rapenne <solene@perso.pw>	URL:mailto:solene@perso.pw	bitreich.org	70
iDate:   Fri, 12 Jan 2018 12:33:03 +0100	Err	bitreich.org	70
i	Err	bitreich.org	70
i[Deprecated] Remove offline saving	Err	bitreich.org	70
i	Err	bitreich.org	70
iDiffstat:	Err	bitreich.org	70
i  M clic.lisp                           |      23 -----------------------	Err	bitreich.org	70
i	Err	bitreich.org	70
i1 file changed, 0 insertions(+), 23 deletions(-)	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@@ -71,9 +71,6 @@	Err	bitreich.org	70
i         "h" "7" "8" "9" "+" "T" "g" "I"))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i ;;;; BEGIN CUSTOMIZABLE	Err	bitreich.org	70
i-;;; keep files visited on disk when t	Err	bitreich.org	70
i-(defparameter *offline* nil)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i ;;; name/location of the bookmark file	Err	bitreich.org	70
i (defparameter *bookmark-file* "bookmark.lisp")	Err	bitreich.org	70
i ;;;; END CUSTOMIZABLE	Err	bitreich.org	70
i@@ -484,8 +481,6 @@	Err	bitreich.org	70
i         (let* ((uri (location-uri (car *history*)))	Err	bitreich.org	70
i                (filename (subseq uri (1+ (position #\/ uri :from-end t))))	Err	bitreich.org	70
i                 (path (concatenate 'string "/tmp/" filename)))	Err	bitreich.org	70
i-           (print filename)	Err	bitreich.org	70
i-           (print path)	Err	bitreich.org	70
i            (with-open-file (output path	Err	bitreich.org	70
i                                    :direction :output	Err	bitreich.org	70
i                                    :if-does-not-exist :create	Err	bitreich.org	70
i@@ -605,24 +600,6 @@	Err	bitreich.org	70
i   ;; goes to the history !	Err	bitreich.org	70
i   (push destination *history*)	Err	bitreich.org	70
i   	Err	bitreich.org	70
i-  (when *offline*	Err	bitreich.org	70
i-    (let ((path (concatenate 'string	Err	bitreich.org	70
i-                             "history/" (location-host destination)	Err	bitreich.org	70
i-                             "/" (location-uri destination) "/")))	Err	bitreich.org	70
i-      (ensure-directories-exist path)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-      (with-open-file	Err	bitreich.org	70
i-          (save-offline (concatenate	Err	bitreich.org	70
i-                         'string  path (location-type destination))	Err	bitreich.org	70
i-                        :direction :output	Err	bitreich.org	70
i-                        :if-does-not-exist :create	Err	bitreich.org	70
i-                        :if-exists :supersede)	Err	bitreich.org	70
i-	Err	bitreich.org	70
i-        (loop for line across *buffer*	Err	bitreich.org	70
i-           while line	Err	bitreich.org	70
i-           do	Err	bitreich.org	70
i-             (format save-offline "~a~%" line)))))	Err	bitreich.org	70
i-	Err	bitreich.org	70
i   (display-buffer (location-type destination)))	Err	bitreich.org	70
i 	Err	bitreich.org	70
i (defun display-prompt()	Err	bitreich.org	70
.