This library provides help with setting up a select box
Helpers
view : Data item -> Msgs item msg -> (item -> String) -> Html msg
{ items : List item
, opened : Basics.Bool
, selected : item
}
type alias Msgs item msg
=
{ close : msg
, select : item -> msg
, toggle : msg
}