У меня есть <select>
HTML-элемент с тремя параметрами и <p>
. В элементе <p>
я хочу напечатать индекс текущего выбранного элемента в <select>
. Например. если я выбираю первый вариант, он должен печатать 0, если я выбираю второй вариант, он должен печатать 1 и т.д. Как перейти от минимального кода, который приведен ниже?
import Html as H exposing (Html)
import Maybe
import Signal as S exposing (Address, (<~))
type alias Model = { selected : Maybe Int }
model = { selected = Nothing }
type Action = NoOp | Select Int
update action model =
case action of
NoOp -> model
Select n -> { model | selected <- Just n }
view address model =
H.div []
[ H.select [] [ H.option [] [ H.text "0" ]
, H.option [] [ H.text "1" ]
, H.option [] [ H.text "2" ]
]
, H.p [] [ H.text <| Maybe.withDefault ""
<| Maybe.map toString model.selected ]
]
actions = Signal.mailbox NoOp
main = view actions.address <~ S.foldp update model actions.signal