Compare commits

...

3 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
Jaidyn Ann 13cd1091fd Update source URL & e-mail address 2024-01-29 15:01:31 -06:00
3 changed files with 7 additions and 8 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.
———————————————————————————————————————— ————————————————————————————————————————
@ -118,6 +118,5 @@ BORING STUFF
———————————————————————————————————————— ————————————————————————————————————————
License is the GNU LGPLv3: License is the GNU LGPLv3:
check COPYING.txt (/ipfs/QmR8Rnk5QdXgrXRqmgMLmG5PuHZEjujfa3rfVhPV99TLY7) check COPYING.txt (/ipfs/QmR8Rnk5QdXgrXRqmgMLmG5PuHZEjujfa3rfVhPV99TLY7)
Author is Jaidyn Ann <jadedctrl@teknik.io> Author is Jaidyn Ann <jadedctrl@posteo.at>
Sauce is at https://git.feneas.org/detruota/cl-ipfs-api2 Sauce is at https://hak.xwx.moe/jadedctrl/cl-ipfs-api2
https://github.com/JadedCtrl/cl-ipfs-api2

View File

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

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