module OpenLayers where
import Prelude hiding (void)
import Fay.FFI
import OlApp (targetId, designMap)
import OpenLayers.Internal
olwrapperAddOnLoad :: Fay f -> Fay ()
olwrapperAddOnLoad = ffi "window.addEventListener(\"load\", %1)"
addDefaultMap :: Fay ()
addDefaultMap = ffi "olmap = new ol.Map({renderer: 'canvas'})"
defineCode :: Fay ()
defineCode = ffi "olc = $(olmap)[0]"
setTarget :: String -> Fay ()
setTarget = ffi "olc.setTarget(%1)"
setDefaultView :: Fay ()
setDefaultView = ffi "olc.setView(new ol.View({center:[0,0],zoom:2}))"
olwrapperLoad :: Fay ()
olwrapperLoad = void $ do
addDefaultMap
defineCode
setTarget targetId
setDefaultView
designMap