diff --git a/main.lisp b/main.lisp index ccec4a2..3c380f5 100644 --- a/main.lisp +++ b/main.lisp @@ -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 diff --git a/package.lisp b/package.lisp index 8f3f183..6a2cf63 100644 --- a/package.lisp +++ b/package.lisp @@ -163,6 +163,9 @@ :swarm-filters-rm :swarm-peers + ;; urlstore calls + :urlstore-add + ;; version calls :version :version-deps))