noredink-ui/styleguide-app/Examples/Dropdown.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 =
    { name = "Nri.Ui.Dropdown.V2"
    , 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 )