Compare commits

...

2 Enmetoj

Author SHA1 Message Date
Jaidyn Ann d5c2aa2511
Merge pull request #14 from BnMcGn/master
Bugfix: files-rm
2024-05-30 17:59:22 +00:00
bnmcgn@gmail.com 00d79f4173 Bugfix: files-rm
- Files-rm is working
- Minor fixes to texts
2024-05-30 10:22:44 -07:00
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 Dexador, YASON, and UIOP. It uses Drakma, 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/read" `(("arg" ,source) ("recursive" ,recursive) (ipfs-call "files/rm" `(("arg" ,path) ("recursive" ,recursive)
("force" ,force)))) ("force" ,force))))
;; STRING → ALIST || (NIL STRING) ;; STRING → ALIST || (NIL STRING)
(defun files-stat (path) (defun files-stat (path)
"Remove a given file. "Get file status.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-files-rm" /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-stat"
(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