json.http: adding some experimental json-specific http words

diff --git a/extra/json/http/http.factor b/extra/json/http/http.factor
new file mode 100644 (file)
index 0000000..b5efcb8
--- /dev/null
+++ b/extra/json/http/http.factor
@@ -0,0 +1,41 @@
+USING: accessors http http.client http.client.private
+io.encodings.string io.encodings.utf8 json.reader json.writer
+kernel strings ;
+
+IN: json.http
+
+: accept-json ( request -- request )
+    "application/json" "Accept" set-header ;
+
+: <json-request> ( url method -- request )
+    <client-request> accept-json ;
+
+: <json-post-data> ( assoc/json-string -- post-data )
+    dup string? [ >json ] unless utf8 encode
+    "application/json" <post-data> swap >>data ;
+
+: http-get-json ( url -- response json )
+    "GET" <json-request> http-request json> ;
+
+: http-put-json ( post-data url -- response json )
+    [ <json-post-data> ] dip "PUT" <json-request> swap
+    >>post-data http-request json> ;
+
+: http-post-json ( post-data url -- response json )
+    [ <json-post-data> ] dip "POST" <json-request> swap
+    >>post-data http-request json> ;
+
+: http-head-json ( url -- response json )
+    "HEAD" <json-request> http-request json> ;
+
+: http-options-json ( url -- response json )
+    "OPTIONS" <json-request> http-request json> ;
+
+: http-delete-json ( url -- response json )
+    "DELETE" <json-request> http-request json> ;
+
+: http-trace-json ( url -- response json )
+    "TRACE" <json-request> http-request json> ;
+
+: http-patch-json ( url -- response json )
+    "PATCH" <json-request> http-request json> ;