15 lines
No EOL
339 B
Elm
15 lines
No EOL
339 B
Elm
|
|
module Map where
|
|
|
|
import Signal.Window as Win
|
|
import Foreign.JavaScript.Experimental
|
|
|
|
foreign import jsevent "provideMap"
|
|
(castElementToJSElement $ spacer 640 360)
|
|
jsMaps :: Signal JSElement
|
|
|
|
|
|
center (w,h) elem = container w h middle elem
|
|
maps = lift (castJSElementToElement 640 360) jsMaps
|
|
|
|
main = lift2 center Win.dimensions maps |