mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-12-16 01:13:08 +03:00
77 lines
1.3 KiB
Elm
77 lines
1.3 KiB
Elm
module Examples.Select exposing
|
|
( Msg
|
|
, State
|
|
, Value
|
|
, example
|
|
, init
|
|
, update
|
|
)
|
|
|
|
{-|
|
|
|
|
@docs Msg
|
|
@docs State
|
|
@docs Value
|
|
@docs example
|
|
@docs init
|
|
@docs update
|
|
|
|
-}
|
|
|
|
import Html.Styled
|
|
import ModuleExample exposing (Category(..), ModuleExample)
|
|
import Nri.Ui.Select.V6 as Select
|
|
|
|
|
|
{-| -}
|
|
type alias Value =
|
|
String
|
|
|
|
|
|
{-| -}
|
|
type Msg
|
|
= ConsoleLog String
|
|
|
|
|
|
{-| -}
|
|
type alias State value =
|
|
Select.Config value
|
|
|
|
|
|
{-| -}
|
|
example : (Msg -> msg) -> State Value -> ModuleExample msg
|
|
example parentMessage state =
|
|
{ name = "Nri.Ui.Select.V6"
|
|
, category = Inputs
|
|
, content =
|
|
[ Html.Styled.map (parentMessage << ConsoleLog) (Select.view state)
|
|
]
|
|
}
|
|
|
|
|
|
{-| -}
|
|
init : State Value
|
|
init =
|
|
{ current = Nothing
|
|
, choices =
|
|
[ { label = "Tacos", value = "Tacos" }
|
|
, { label = "Burritos", value = "Burritos" }
|
|
, { label = "Enchiladas", value = "Enchiladas" }
|
|
]
|
|
, id = Nothing
|
|
, valueToString = identity
|
|
, defaultDisplayText = Just "Select a tasty tortilla based treat!"
|
|
}
|
|
|
|
|
|
{-| -}
|
|
update : Msg -> State Value -> ( State Value, Cmd Msg )
|
|
update msg state =
|
|
case msg of
|
|
ConsoleLog message ->
|
|
let
|
|
_ =
|
|
Debug.log "SelectExample" message
|
|
in
|
|
( state, Cmd.none )
|