Replace duration handler with special HTML elements if available

[kachick]

emobu/src/Main.elm

Lines 526 to 560 in d192a47

	newIntervalFields : Model -> Html Msg
	newIntervalFields model =
	let
	( hoursOptions, minutesOptions, secondsOptions ) =
	MobSession.newIntervalOptions model.intervalSeconds
	optionsFormatter =
	List.map
	(\( val, selected ) -> option [ Attr.value val, Attr.selected selected ] [ text val ])
	in
	div [ Attr.class "interval-input" ]
	[ text "/"
	, space
	, select
	[ Attr.class "value-select"
	, onInput (UpdateInterval MobSession.Hour)
	, Attr.disabled model.mobbing
	]
	(hoursOptions |> optionsFormatter)
	, text ":"
	, select
	[ Attr.class "value-select"
	, onInput (UpdateInterval MobSession.Min)
	, Attr.disabled model.mobbing
	]
	(minutesOptions |> optionsFormatter)
	, text ":"
	, select
	[ Attr.class "value-select"
	, onInput (UpdateInterval MobSession.Sec)
	, Attr.disabled model.mobbing
	]
	(secondsOptions |> optionsFormatter)
	]

whatwg/html#5488 🙏