mirror of
https://github.com/correl/elm-mdl.git
synced 2024-12-18 03:00:11 +00:00
Updates Demo Badge to use Style. Initial implementation
This commit is contained in:
parent
ced0d21dcb
commit
dc28cd8294
2 changed files with 13 additions and 14 deletions
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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"
|
]
|
||||||
]
|
|
Loading…
Reference in a new issue