jadedctrl/ cl-ipfs-api2
1
0
Disbranĉigi 0
Fontkodo Issues 6 Tirpetoj 1 Activity

Fix some dumb slip-ups

This commit is contained in:
Jaidyn Levesque 2019-06-20 20:51:56 -05:00
parent b7e9eb6b19
commit 969dbe7587
1 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
main.lisp
View File

@ -243,9 +243,8 @@
(defun block-rm (hash &key (force nil)) (defun block-rm (hash &key (force nil))
"Delete an IPFS block(s). "Delete an IPFS block(s).
/ipns/docs.ipfs.io/reference/api/http/#api-v0-block-rm" /ipns/docs.ipfs.io/reference/api/http/#api-v0-block-rm"
(bind-api-result
(ipfs-call "block/rm" `(("arg" ,hash) ,(if force (list "force" force)))) (ipfs-call "block/rm" `(("arg" ,hash) ,(if force (list "force" force))))
nil)) nil)
;; STRING → ALIST || (NIL STRING) ;; STRING → ALIST || (NIL STRING)
(defun block-stat (hash) (defun block-stat (hash)
@ -298,7 +297,7 @@
(gethash "Peers" result))) (gethash "Peers" result)))
;; NIL → LIST || (NIL STRING) ;; NIL → LIST || (NIL STRING)
(defun bootstrap-rm-all (peer) (defun bootstrap-rm-all ()
"Remove a peer from the bootstrap list "Remove a peer from the bootstrap list
/ipns/docs.ipfs.io/reference/api/http/#api-v0-bootstrap-rm" /ipns/docs.ipfs.io/reference/api/http/#api-v0-bootstrap-rm"
(bind-api-result (bind-api-result
@ -447,7 +446,7 @@
"Find the closest peer IDs to the given one by querying the DHT. "Find the closest peer IDs to the given one by querying the DHT.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-dht-query" /ipns/docs.ipfs.io/reference/api/http/#api-v0-dht-query"
(bind-api-result (bind-api-result
(ipfs-call "dht/query" `(("arg" ,key))) (ipfs-call "dht/query" `(("arg" ,peer-id)))
(re-hash-table-alist (gethash "Responses" result)))) (re-hash-table-alist (gethash "Responses" result))))
@ -550,7 +549,7 @@
"Read a file in given mfs. "Read a file in given mfs.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-files-read" /ipns/docs.ipfs.io/reference/api/http/#api-v0-files-read"
(bind-api-result (bind-api-result
(ipfs-call "files/read" `(("arg" ,source) (ipfs-call "files/read" `(("arg" ,path)
,(if offset (list "offset" offset)) ,(if offset (list "offset" offset))
,(if max (list "max" max)))) ,(if max (list "max" max))))
result)) result))
@ -560,8 +559,8 @@
"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"
(bind-api-result (bind-api-result
(ipfs-call "files/read" `(("arg" ,source) ("recursive" recursive) (ipfs-call "files/read" `(("arg" ,source) ("recursive" ,recursive)
("force" force))) ("force" ,force)))
result)) result))
;; STRING → ALIST || (NIL STRING) ;; STRING → ALIST || (NIL STRING)
@ -600,7 +599,7 @@
(defun filestore-dups () (defun filestore-dups ()
"List blocks that're both in the filestore and standard block storage. "List blocks that're both in the filestore and standard block storage.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-filestore-dups" /ipns/docs.ipfs.io/reference/api/http/#api-v0-filestore-dups"
(bind-api-alist (ipfs-call "filestore/dups"))) (bind-api-alist (ipfs-call "filestore/dups" '())))
;; [STRING] → ALIST || (NIL STRING) ;; [STRING] → ALIST || (NIL STRING)
(defun filestore-ls (&optional cid) (defun filestore-ls (&optional cid)
@ -984,7 +983,9 @@
(bind-api-alist (bind-api-alist
(ipfs-call "refs" `(("arg" ,path)("max-depth" ,max-depth) (ipfs-call "refs" `(("arg" ,path)("max-depth" ,max-depth)
,(if (not (empty-string-p recursive)) ,(if (not (empty-string-p recursive))
`("recursive" ,recursive)))))) `("recursive" ,recursive))
,(if (not (empty-string-p unique))
`("unique" ,unique))))))
;; NIL → ALIST || (NIL STRING) ;; NIL → ALIST || (NIL STRING)
(defun refs-local () (defun refs-local ()
@ -1172,6 +1173,7 @@
(defmacro error-p (form) (defmacro error-p (form)
"Return whether or not a given form errors out." "Return whether or not a given form errors out."
`(multiple-value-bind (return error) (ignore-errors ,form) `(multiple-value-bind (return error) (ignore-errors ,form)
return
(when error 'T))) (when error 'T)))
;; VARYING → BOOLEAN ;; VARYING → BOOLEAN