biscuit

commit a2906f515052967edb10757e080555036b807eb8
parent 71fa63eaa77c45850c75da7c7d32fbb442cf2663
Author: Daniel Barlow <dan@telent.net>
Date:   Tue, 27 May 2025 13:12:12 +0100

http request to overpass

Diffstat:
A
pkgs/maps/tiles.fnl
 | 
32
++++++++++++++++++++++++++++++++

1 file changed, 32 insertions(+), 0 deletions(-)
diff --git a/pkgs/maps/tiles.fnl 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))))
+