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

Add urlstore call

This commit is contained in:
Jaidyn Levesque 2019-06-19 11:59:06 -05:00
parent b379b3ef4a
commit ed3afe6cd0
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
main.lisp
View File

@ -1120,6 +1120,21 @@
;; —————————————————————————————————————
;; URLSTORE CALLS
;; STRING [:BOOLEAN :BOOLEAN] → ALIST || (NIL STRING)
(defun urlstore-add (url &key (pin 'T) (trickle ""))
"Add a URL via urlstore.
/ipns/docs.ipfs.io/reference/api/http/#api-v0-urlstore-add"
(bind-api-alist
(ipfs-call "urlstore/add" `(("arg" ,url)("pin" ,pin)
,(when (not (empty-string-p trickle))
`("trickle" ,trickle))))))
;; ————————————————————————————————————— ;; —————————————————————————————————————
;; VERSION CALLS ;; VERSION CALLS

3
package.lisp
View File

@ -163,6 +163,9 @@
:swarm-filters-rm :swarm-filters-rm
:swarm-peers :swarm-peers
;; urlstore calls
:urlstore-add
;; version calls ;; version calls
:version :version
:version-deps)) :version-deps))