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

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

View File

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