From a2906f515052967edb10757e080555036b807eb8 Mon Sep 17 00:00:00 2001
From: Daniel Barlow <dan@telent.net>
Date: Tue, 27 May 2025 13:12:12 +0100
Subject: [PATCH] http request to overpass

---
 pkgs/maps/tiles.fnl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 pkgs/maps/tiles.fnl

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))))
+