janet: add convenience functions slurp and spit

these are currently to be considered unstable,
fully undocumented.

to be stabilized in an official release later,
assuming they don't need any changes

1 files changed, 13 insertions, 0 deletions

diff --git a/jurl/init.janet b/jurl/init.janet
index 0d501ca..ad6c0a4 100644
--- a/jurl/init.janet
+++ b/jurl/init.janet
@@ -272,6 +272,19 @@
    :headers (text/parse-headers res-hdr)
    :status  (handle :response-code)}) 
 
+# fast and convenient functions
+(defn slurp
+  [url &opt opts]
+  (default opts {})
+  (def out (request (merge opts {:url url})))
+  (assert (= :ok (out :error)))
+  (out :body))
+
+(defn spit
+  [url body &opt opts]
+  (default opts {})
+  (def out (request (merge opts {:url url :method :post :body body}))))
+
 (defn- merge-request
   [orig new]
   (let [mdict |(merge (get orig $ {}) (get new $ {}))]