elm-mdl/examples/Demo/Badges.elm
2016-03-24 10:01:29 +01:00

27 lines
No EOL
1.1 KiB
Elm

module Demo.Badges where
import Html exposing (..)
import Html.Attributes exposing (class, style, key)
import Material.Badge as Badge
import Material.Style exposing (..)
-- VIEW
view : List Html
view = [ div [][p [][]
, styled span [Badge.withBadge "2"] [ ] [ text "Span with badge" ]
, p [][]
, styled span [Badge.withBadge "22", Badge.noBackground] [ ] [ text "Span with no background badge" ]
, p [][]
, styled span [Badge.withBadge "33", Badge.overlap] [ ] [ text "Span with badge overlap" ]
, p [][]
, styled span [Badge.withBadge "99", Badge.overlap, Badge.noBackground] [ ] [ text "Span with badge overlap and no background" ]
, p [][]
, styled span [Badge.withBadge ""] [ ] [ text "Span with HTML symbol - Black heart suit" ]
, p [][]
, styled span [Badge.withBadge ""] [ ] [ text "Span with HTML symbol - Rightwards arrow" ]
, p [][]
, styled span [Badge.withBadge "Δ"] [ ] [ text "Span with HTML symbol - Delta" ]
, p [][]
]
]