mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-12-18 19:21:29 +03:00
86 lines
2.4 KiB
Elm
86 lines
2.4 KiB
Elm
module Examples.DisclosureIndicator exposing (Msg, State, example)
|
|
|
|
{-|
|
|
|
|
@docs Msg, State, example
|
|
|
|
-}
|
|
|
|
import Category exposing (Category(..))
|
|
import Css
|
|
import Example exposing (Example)
|
|
import Html.Styled as Html
|
|
import Html.Styled.Attributes exposing (css)
|
|
import Nri.Ui.Button.V10 as Button
|
|
import Nri.Ui.DisclosureIndicator.V2 as DisclosureIndicator
|
|
import Nri.Ui.Text.V6 as Text
|
|
|
|
|
|
{-| -}
|
|
type alias State =
|
|
{ largeState : Bool
|
|
, mediumState : Bool
|
|
}
|
|
|
|
|
|
{-| -}
|
|
example : Example State Msg
|
|
example =
|
|
{ name = "DisclosureIndicator"
|
|
, version = 2
|
|
, categories = [ Icons ]
|
|
, keyboardSupport = []
|
|
, state = init
|
|
, update = update
|
|
, subscriptions = \_ -> Sub.none
|
|
, preview =
|
|
[ DisclosureIndicator.medium [] False
|
|
, DisclosureIndicator.medium [] True
|
|
, DisclosureIndicator.large [] False
|
|
, DisclosureIndicator.large [] True
|
|
]
|
|
, view =
|
|
\state ->
|
|
[ Text.smallBodyGray [ Text.plaintext "The disclosure indicator is only the caret. It is NOT a button -- you must create a button or clickabletext yourself!" ]
|
|
, Html.div [ css [ Css.displayFlex, Css.padding (Css.px 8) ] ]
|
|
[ Button.button "Toggle large indicator"
|
|
[ Button.onClick ToggleLarge, Button.small, Button.secondary ]
|
|
, Button.button "Toggle medium indicator"
|
|
[ Button.onClick ToggleMedium, Button.small, Button.secondary ]
|
|
]
|
|
, Html.div [ css [ Css.displayFlex, Css.alignItems Css.center, Css.marginBottom (Css.px 8) ] ]
|
|
[ DisclosureIndicator.large [ Css.marginRight (Css.px 10) ] state.largeState
|
|
, Html.text "I'm a 17px caret icon."
|
|
]
|
|
, Html.div [ css [ Css.displayFlex, Css.alignItems Css.center, Css.marginBottom (Css.px 8) ] ]
|
|
[ DisclosureIndicator.medium [ Css.paddingRight (Css.px 8) ] state.mediumState
|
|
, Html.text "I'm a 15px caret icon."
|
|
]
|
|
]
|
|
}
|
|
|
|
|
|
{-| -}
|
|
init : State
|
|
init =
|
|
{ largeState = False
|
|
, mediumState = False
|
|
}
|
|
|
|
|
|
{-| -}
|
|
type Msg
|
|
= ToggleLarge
|
|
| ToggleMedium
|
|
|
|
|
|
{-| -}
|
|
update : Msg -> State -> ( State, Cmd Msg )
|
|
update msg state =
|
|
case msg of
|
|
ToggleLarge ->
|
|
( { state | largeState = not state.largeState }, Cmd.none )
|
|
|
|
ToggleMedium ->
|
|
( { state | mediumState = not state.mediumState }, Cmd.none )
|