diff --git a/pkgs/maps/tiles.fnl b/pkgs/maps/tiles.fnl new file mode 100644 index 0000000..29a516c --- /dev/null +++ b/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)))) +