biscuit/pkgs/maps/tiles.fnl

(local req (require :http.request))
(local { : dict_to_query } (require :http.util))
(local json (require :json))

(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 ;"
   ]
  (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 (view (json.decode (stream:get_body_as_string))))))