elm-mdl/examples/Demo/Badges.elm

18 lines
630 B
Elm
Raw Normal View History

2016-03-17 21:30:49 +00:00
module Demo.Badges where
import Html exposing (..)
import Html.Attributes exposing (class, style, key)
import Material.Badge as Badge
import Material.Style exposing (..)
2016-03-17 21:30:49 +00:00
-- VIEW
2016-03-17 21:30:49 +00:00
view : List Html
view = [ div [][p [][]
, styled span [Badge.withBadge "56", Badge.overlap] [ ] [ text "Span with badge" ]
, p [][]
-- , styled span (Badge.badgeStyle { overlap = True, noBackground = False} "7") [ ] [ text "Span with no background badge" ]
-- , p [][]
-- , styled span (Badge.badgeStyle { overlap = True, noBackground = False} "14") [ ] [ text "Span with badge overlap" ]
]
]