Beginning work on getting a map working.

This commit is contained in:
Simon Brooke 2016-10-19 11:09:22 +01:00
parent 682f952b66
commit 5676ba2612
3 changed files with 22 additions and 7 deletions

View file

@ -33,7 +33,17 @@
;;; See https://github.com/simon-brooke/youyesyet/blob/master/doc/specification/userspec.md#map-view
(defn panel
"Generate the map panel."
;;; Cribbed heavily from
;;; https://github.com/reagent-project/reagent-cookbook/tree/master/recipes/leaflet
;;; but using OSM data because we can't afford commercial, so also cribbed from
;;; https://switch2osm.org/using-tiles/getting-started-with-leaflet/
(defn map-div
"Generate the actual div containing the map."
[]
[])
[:div#map {:style {:height "360px"}}])
(defn panel
"Generate the map panel"
[]
[div-map])