From 84186f5be46c9ca2d2f14d627fbaf62c8cce4040 Mon Sep 17 00:00:00 2001 From: John Wiseman Date: Sat, 6 Jun 2020 22:49:58 -0700 Subject: [PATCH] --airport-geojson now generates a circle for the region of interest. --- src/main/lemondronor/advisorycircular.cljs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/main/lemondronor/advisorycircular.cljs b/src/main/lemondronor/advisorycircular.cljs index 00c253b..4c12438 100644 --- a/src/main/lemondronor/advisorycircular.cljs +++ b/src/main/lemondronor/advisorycircular.cljs @@ -304,7 +304,14 @@ airports (nearby-airports config lat lon {:radius (+ (:radius-km config) (:minimum-airport-distance-km config))})] {:type "FeatureCollection" - :features (map airport->feature airports)})) + :features (conj + (map airport->feature airports) + {:type "Feature" + :properties {:shape "Circle" + :radius (* 1000 (:radius-km config)) + :name "Center"} + :geometry {:type "Point" + :coordinates [(:lon config) (:lat config)]}})})) (defn log-table [table keys]