github/elm-mdl
1
0
Fork 0
mirror of https://github.com/correl/elm-mdl.git synced 2024-12-18 03:00:11 +00:00
Code Issues Projects Releases Packages Wiki Activity

Updates Demo Badge to use Style. Initial implementation

Browse source
This commit is contained in:
Håkon Rossebø 2016-03-23 10:34:40 +01:00
parent ced0d21dcb
commit dc28cd8294
2 changed files with 13 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
examples/Demo.elm
View file

@ -119,10 +119,9 @@ tabs =
, ("Template", \addr model -> , ("Template", \addr model ->
[Demo.Template.view (Signal.forwardTo addr TemplateAction) model.template]) [Demo.Template.view (Signal.forwardTo addr TemplateAction) model.template])
-} -}
, ("Badges", \addr model -> Demo.Badges.view) , ("Badges", \addr model -> Demo.Badges.view )
] ]
tabViews : Array (Addr -> Model -> List Html) tabViews : Array (Addr -> Model -> List Html)
tabViews = List.map snd tabs |> Array.fromList tabViews = List.map snd tabs |> Array.fromList

22
examples/Demo/Badges.elm
View file

@ -1,18 +1,18 @@
module Demo.Badges where module Demo.Badges where
import Material.Icon as Icon
import Material.Badge as Badge
import Html exposing (..) import Html exposing (..)
import Html.Attributes exposing (..) import Html.Attributes exposing (class, style, key)
import Material.Badge as Badge
import Material.Style exposing (..)
-- VIEW
view : List Html view : List Html
view = view = [ div [][p [][]
[ , styled span (Badge.badgeStyle { overlap = False, noBackground = False} "4") [ ] [ text "Span with badge" ]
h1 [][text "Badges"], , p [][]
Icon.viewWithOptions "face" Icon.S18 [] { badgeInfo = Just (Badge.viewDefault "16")}, , styled span (Badge.badgeStyle { overlap = True, noBackground = False} "7") [ ] [ text "Span with no background badge" ]
Icon.viewWithOptions "add" Icon.S18 [] { badgeInfo = Just (Badge.view { overlap = False, noBackground = False} "99")}, , p [][]
Icon.viewWithOptions "add" Icon.S18 [] { badgeInfo = Just (Badge.view { overlap = False, noBackground = True} "4")}, , styled span (Badge.badgeStyle { overlap = True, noBackground = False} "14") [ ] [ text "Span with badge overlap" ]
Icon.view "add" Icon.S18 [], ]
Icon.i "add"
] ]