Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Elm Day 2: Count Mouse Clicks
import Html exposing (Html, text, div)
import Html.App as App
import Mouse exposing (..)
main = App.program { init = init,
view = view, update = update, subscriptions = subscriptions }
-- Model
type alias Model = { count: Int }
initialModel : Model
initialModel = { count = 0 }
init = (initialModel, Cmd.none)
-- Update
type Msg = Position Int Int
update: Msg -> Model -> (Model, Cmd a)
update msg model = case msg of
Position x y -> ({model | count = model.count + 1}, Cmd.none)
-- Subscriptions
subscriptions: Model -> Sub Msg
subscriptions model = Mouse.clicks(\{x, y} -> Position x y)
-- View
-- view: Model -> Html div
view model = div [] [text (toString model)]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.