noredink-ui/styleguide-app/Examples/Dropdown.elm
Luke Westby c1ff19f0d0
Add Html.Styled versions for everything (#139)
* make html.styled versions of remaining widgets

* upgrade all the examples

* change license name
2018-10-23 09:55:30 -07:00

59 lines
1.2 KiB
Elm

module Examples.Dropdown exposing (Msg, State, Value, example, init, update)
{-|
@docs Msg, State, Value, example, init, update
-}
import Html.Styled
import ModuleExample exposing (Category(..), ModuleExample)
import Nri.Ui.Dropdown.V2
{-| -}
type alias Value =
String
{-| -}
type Msg
= ConsoleLog String
{-| -}
type alias State value =
List (Nri.Ui.Dropdown.V2.ViewOptionEntry value)
{-| -}
example : (Msg -> msg) -> State Value -> ModuleExample msg
example parentMessage state =
{ filename = "Nri/Ui/Dropdown/V1.elm"
, category = Inputs
, content =
[ Html.Styled.map parentMessage (Nri.Ui.Dropdown.V2.view "All the foods!" state ConsoleLog)
]
}
{-| -}
init : State Value
init =
[ { isSelected = False, val = "Burrito", displayText = "Burrito" }
, { isSelected = False, val = "Nacho", displayText = "Nacho" }
, { isSelected = False, val = "Horchata", displayText = "Horchata" }
]
{-| -}
update : Msg -> State Value -> ( State Value, Cmd Msg )
update msg state =
case msg of
ConsoleLog message ->
let
_ =
Debug.log "DropdownExample" message
in
( state, Cmd.none )