http request to overpass

pkgs/maps/tiles.fnl

@@ -0,0 +1,32 @@
+(local req (require :http.request))
+(local { : dict_to_query } (require :http.util))
+(local { : view } (require :fennel))
+
+(local
+ query
+ (->
+  [
+   "[bbox:30.618338,-96.323712,30.591028,-96.330826]"
+   "[out:json]"
+   "[timeout:90];"
+   "("
+   "way ("
+   "30.626917110746,"
+   "-96.348809105664,"
+   "30.634468750236,"
+   "-96.339893442898"
+   ");"
+   ");"
+   "out geom;"
+   ]
+  (table.concat "\n")))
+
+(let [r 
+       (req.new_from_uri
+        "https://overpass-api.de/api/interpreter")]
+  (tset r.headers ":method" "POST")
+  (r:set_body (dict_to_query { :data query }))
+  (let [(headers stream) (r:go)]
+    (print (view headers))
+    (print (stream:get_body_as_string))))
+      

pkgs/rxi-json/default.nix

@@ -0,0 +1,15 @@
+{
+  fetchurl,
+  runCommand,
+  lua,
+}:
+let
+  src = fetchurl {
+    url = "https://raw.githubusercontent.com/rxi/json.lua/11077824d7cfcd28a4b2f152518036b295e7e4ce/json.lua";
+    hash = "sha256-DqzNpX+rwDMHNt4l9Fz1iYIaQrXg/gLk4xJffcC/K34=";
+  };
+in
+runCommand "json" { } ''
+  mkdir -p $out/share/lua/${lua.luaversion}/
+  cp ${src}  $out/share/lua/${lua.luaversion}/json.lua
+''

pkgs/rxi-json/default.nix~

@@ -0,0 +1,14 @@
+{
+  fetchurl,
+  runCommand,
+  lua,
+}:
+let
+  src = fetchurl {
+    url = "https://raw.githubusercontent.com/rxi/json.lua/11077824d7cfcd28a4b2f152518036b295e7e4ce/json.lua";
+    hash = "sha256-DqzNpX+rwDMHNt4l9Fz1iYIaQrXg/gLk4xJffcC/K34=";
+  };
+in runCommand "json" {} ''
+  mkdir -p $out/share/lua/${lua.luaversion}/
+  cp ${src}  $out/share/lua/${lua.luaversion}/json.lua
+'';