iyegoroff / fable-import-debounce Goto Github PK

let searchInput dispatch =
    let lbl = typography [] [ str "Search..." ]
    let onInput = 
        let f = fun (e : Browser.Types.Event) ->
            e.Value 
            |> Search 
            |> dispatch            
        let f = Debounce.debounce f 1000 true
        OnInput f

    textField [ onInput 
                MaterialProp.Label lbl
                HTMLAttr.Type "search"
                Style [ Display DisplayOptions.Flex ] ] [ ]