36 lines
712 B
Fennel
36 lines
712 B
Fennel
(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 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))))
|
|
|