elm-mdl/examples/Demo/Badges.elm

19 lines
598 B
Elm
Raw Normal View History

2016-03-17 21:30:49 +00:00
module Demo.Badges where
2016-03-19 17:23:47 +00:00
import Material.Icon as Icon
import Material.Badge as Badge
2016-03-17 21:30:49 +00:00
import Html exposing (..)
2016-03-19 17:23:47 +00:00
import Html.Attributes exposing (..)
2016-03-17 21:30:49 +00:00
view : List Html
view =
[
2016-03-19 17:23:47 +00:00
h1 [][text "Badges"],
2016-03-19 21:27:11 +00:00
Icon.viewWithOptions "face" Icon.S18 [] { badgeInfo = Just (Badge.viewDefault "16")},
2016-03-19 17:23:47 +00:00
Icon.viewWithOptions "add" Icon.S18 [] { badgeInfo = Just (Badge.view { overlap = False, noBackground = False} "99")},
Icon.viewWithOptions "add" Icon.S18 [] { badgeInfo = Just (Badge.view { overlap = False, noBackground = True} "4")},
Icon.view "add" Icon.S18 [],
Icon.i "add"
2016-03-17 21:30:49 +00:00
]