[Deprecated] Remove offline saving - clic - Clic is an command line interactive client for gopher written in Common LISP
(HTM) 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
(HTM) 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()