Merge pull request #14 from BnMcGn/master

Bugfix: files-rm

README.txt

@@ -5,7 +5,7 @@ CL-IPFS-API²
 :cl-ipfs-api² is a pretty simple set of IPFS bindings for Common Lisp, using
 the HTTP API for (almost) everything, except for pubsub (which uses the locally
 installed go-ipfs program).
-It uses Dexador, YASON, and UIOP.
+It uses Drakma, YASON, and UIOP.
 
 
 ————————————————————————————————————————
@@ -118,6 +118,5 @@ BORING STUFF
 ————————————————————————————————————————
 License is the GNU LGPLv3:
        check COPYING.txt (/ipfs/QmR8Rnk5QdXgrXRqmgMLmG5PuHZEjujfa3rfVhPV99TLY7)
-Author is Jaidyn Ann <jadedctrl@teknik.io>
-Sauce is at https://git.feneas.org/detruota/cl-ipfs-api2
-            https://github.com/JadedCtrl/cl-ipfs-api2
+Author is Jaidyn Ann <jadedctrl@posteo.at>
+Sauce is at https://hak.xwx.moe/jadedctrl/cl-ipfs-api2

cl-ipfs-api2.asd

@@ -1,8 +1,8 @@
 (defsystem "cl-ipfs-api2"
 	   :version "0.51"
            :license "LGPLv3"
-	   :author "Jaidyn Ann <jadedctrl@teknik.io>"
+	   :author "Jaidyn Ann <jadedctrl@posteo.at>"
 	   :description "Bindings for the IPFS HTTP API."
-	   :depends-on (:alexandria :drakma :yason :arnesi :uiop)
+	   :depends-on (:drakma :yason :arnesi :uiop)
 	   :components ((:file "package")
                  	(:file "main")))

main.lisp

@@ -32,9 +32,7 @@
   (let ((result
           (multiple-value-list
            (drakma:http-request
-            ;; We ensure the string is of 'character elements and not 'base-char
-            ;; which would break Puri.
-            (alexandria:copy-array (make-call-url call arguments) :element-type 'character)
+            (make-call-url call arguments)
             :method method
             :url-encoder #'ipfs::url-encode
             :parameters parameters
@@ -48,10 +46,8 @@
   (let* ((result (cond ((stringp body) body)
                        ((vectorp body) (flexi-streams:octets-to-string body))))
          (result (if (search "application/json" (cdr (assoc :content-type headers)))
-                     (mapcar (lambda (line)
-                               (simplify (yason:parse line :object-as :alist)))
-                             (delete "" (uiop:split-string result :separator (string #\newline))
-                                     :test 'string=))
+                     (unless (empty-string-p result)
+                       (simplify (yason:parse result :object-as :alist)))
                      result)))
     (if (eql 200 status-code)
         result
@@ -87,39 +83,12 @@
 ;; —————————————————————————————————————
 ;; ROOT CALLS
 
-(defun parent-directory (path)
-  (if (uiop:directory-pathname-p path)
-      (uiop:pathname-parent-directory-pathname path)
-      (uiop:pathname-directory-pathname path)))
-
-(defun directory->parameters (dir)
-  (let* ((result '())
-         (root (uiop:ensure-pathname dir :truenamize t))
-         (parent (parent-directory root)))
-    (uiop:collect-sub*directories
-     root
-     #'uiop:directory-exists-p
-     (constantly t)
-     (lambda (subdirectory)
-       (setf result
-             (cons `("file" ,subdirectory
-                            :content-type "application/x-directory"
-                            :filename ,(uiop:native-namestring (uiop:enough-pathname subdirectory parent)))
-                   (append result
-                           (mapcar (lambda (file)
-                                     `("file" ,file
-                                              :filename ,(uiop:native-namestring (uiop:enough-pathname file parent))))
-                                   (uiop:directory-files subdirectory)))))))
-    result))
-
 ;; PATHNAME → (HASH-STRING SIZE-NUMBER) || (NIL STRING)
 (defun add (pathname &key (pin 't) (only-hash nil) (cid-version 0))
   "Add a file to IPFS, return it's hash.
   /ipns/docs.ipfs.io/reference/api/http/#api-v0-add"
   (ipfs-call "add" `(("pin" ,pin) ("only-hash" ,only-hash) ("cid-version" ,cid-version))
-             :parameters (if (uiop:directory-exists-p pathname)
-                             (directory->parameters pathname)
-                             `(("file" . ,pathname)))))
+             :parameters `(("file" . ,pathname))))
 
 ;; STRING :NUMBER :NUMBER → STRING || (NIL STRING)
 (defun cat (ipfs-path &key (offset nil) (length nil))
@@ -493,7 +462,7 @@
 (defun files-ls (&optional (path "/"))
   "List directories in local mutable namespace.
   /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-ls"
-  (ipfs-call "files/ls" `(("arg" ,path) ("long" "true"))))
+  (ipfs-call "files/ls" `(("arg" ,path))))
 
 ;; STRING [:BOOLEAN :NUMBER :STRING] → NIL || (NIL STRING)
 (defun files-mkdir (path &key (parents nil) (cid-version nil) (hash nil))
@@ -523,12 +492,12 @@
   "Remove a given file.
   /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-rm"
   (ipfs-call "files/rm" `(("arg" ,path) ("recursive" ,recursive)
-                          ("force" ,force))))
+                                            ("force" ,force))))
 
 ;; STRING → ALIST || (NIL STRING)
 (defun files-stat (path)
-  "Remove a given file.
-  /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-rm"
+  "Get file status.
+  /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-stat"
   (ipfs-call "files/stat" `(("arg" ,path))))
 
 ;; PATHNAME STRING [:NUMBER :BOOLEAN :BOOLEAN :BOOLEAN :NUMBER :BOOLEAN
@@ -1132,6 +1101,6 @@ will be passed directly to the files-write function."
   ignored
   (cl-ppcre:regex-replace-all
     "%2520" (drakma:url-encode
-             (cl-ppcre:regex-replace-all " " string "%20")
-             drakma:*drakma-default-external-format*)
+	      (cl-ppcre:regex-replace-all " " string "%20")
+	      :utf-8)
     "%20"))