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