From ed3afe6cd0ac734a0688917267db67ee8ce7a0b9 Mon Sep 17 00:00:00 2001
From: Jaidyn Levesque <jadedctrl@teknik.io>
Date: Wed, 19 Jun 2019 11:59:06 -0500
Subject: [PATCH] Add urlstore call

---
 main.lisp    | 15 +++++++++++++++
 package.lisp |  3 +++
 2 files changed, 18 insertions(+)

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))