Skip to content

Instantly share code, notes, and snippets.

@chuck0523

chuck0523/fancier-counter-view.elm

Last active April 3, 2016 06:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save chuck0523/cb6cb189ed08836243803110f67bf96c to your computer and use it in GitHub Desktop.
Save chuck0523/cb6cb189ed08836243803110f67bf96c to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fancier-counter-view.elm
view : Signal.Address Action -> Model -> Html
view address model =
let insert = button [ onClick address Insert ] [ text "Add" ]
in
div [] (insert :: List.map (viewCounter address) model.counters)
viewCounter : Signal.Address Action -> (ID, Counter.Model) -> Html
viewCounter address (id, model) =
let context =
Counter.Context
(Signal.forwardTo address (Modify id))
(Signal.forwardTo address (always (Remove id)))
in
Counter.viewWithRemoveButton context model
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment