Skip to content

Instantly share code, notes, and snippets.

@chuck0523
Created April 16, 2016 08:28
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/a195bf9b3b13c74ab119ff73b0bae525 to your computer and use it in GitHub Desktop.
Save chuck0523/a195bf9b3b13c74ab119ff73b0bae525 to your computer and use it in GitHub Desktop.
-- view
view : Model -> Html
view model =
div [ taskStyle ]
[ span [ checkStyle ] [ text "✓"]
, text model
]
taskStyle : Attribute
taskStyle =
style
[ ("box-sizing", "border-box")
, ("margin", "5px")
, ("padding", "5px")
, ("width", "200px")
, ("height", "50px")
, ("border-radius", "5px")
, ("background-color", "#559")
, ("color", "#fff")
]
checkStyle : Attribute
checkStyle =
style
[ ("margin-right", "5px")
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment