module OpenLayers where
import OpenLayers.Internal
import Fay.FFI
import OlApp (targetId, designMap)
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 = OpenLayers.Internal.void $ do
addDefaultMap
defineCode
setTarget targetId
setDefaultView
designMap