elm-mdl/examples/Demo/Badges.elm
2016-03-22 07:29:43 +01:00

18 lines
597 B
Elm

module Demo.Badges where
import Material.Icon as Icon
import Material.Badge as Badge
import Html exposing (..)
import Html.Attributes exposing (..)
view : List Html
view =
[
h1 [][text "Badges"],
Icon.viewWithOptions "add" Icon.S18 [] { badgeInfo = Just (Badge.viewDefault "16")},
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"
]