Compare commits

..

No commits in common. "d5c2aa25110c4e086445efbf7ad430e5ac722d9e" and "13cd1091fd0bf607ca7cbb11c7efaff637001d71" have entirely different histories.

2 changed files with 4 additions and 4 deletions

View File

@ -5,7 +5,7 @@ CL-IPFS-API²
:cl-ipfs-api² is a pretty simple set of IPFS bindings for Common Lisp, using :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 the HTTP API for (almost) everything, except for pubsub (which uses the locally
installed go-ipfs program). installed go-ipfs program).
It uses Drakma, YASON, and UIOP. It uses Dexador, YASON, and UIOP.
———————————————————————————————————————— ————————————————————————————————————————

View File

@ -491,13 +491,13 @@
(defun files-rm (path &key (recursive nil) (force nil)) (defun files-rm (path &key (recursive nil) (force nil))
"Remove a given file. "Remove a given file.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-files-rm" /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-rm"
(ipfs-call "files/rm" `(("arg" ,path) ("recursive" ,recursive) (ipfs-call "files/read" `(("arg" ,source) ("recursive" ,recursive)
("force" ,force)))) ("force" ,force))))
;; STRING → ALIST || (NIL STRING) ;; STRING → ALIST || (NIL STRING)
(defun files-stat (path) (defun files-stat (path)
"Get file status. "Remove a given file.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-files-stat" /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-rm"
(ipfs-call "files/stat" `(("arg" ,path)))) (ipfs-call "files/stat" `(("arg" ,path))))
;; PATHNAME STRING [:NUMBER :BOOLEAN :BOOLEAN :BOOLEAN :NUMBER :BOOLEAN ;; PATHNAME STRING [:NUMBER :BOOLEAN :BOOLEAN :BOOLEAN :NUMBER :BOOLEAN