Мужская одежда Haily’s 2021 – купить в Москве, цены в интернет-магазинах на Shopsy

importMenuexposing (input)importHtmlmain =Browser.sandbox { init = init, update = update, view = view }type alias Model={ autoState :Menu.State-- Own the State of the menu in your model, query :String-- Perhaps you want to filter by a string?, people :ListPerson-- The data you want to list and filter, howManyToShow :Int}type alias Person={ name:String}init:Modelinit { autoState =Menu.empty , query ="", people =[Person{name ="Jim"},Person{name ="Leonard"}], howManyToShow =5}-- Let's filter the data however we wantacceptablePeople:String->ListPerson->ListPersonacceptablePeople query people =let lowerQuery =String.toLower query inList.filter (String.contains lowerQuery <<String.toLower <<.name) people-- Set up what will happen with your menu updatesupdateConfig:Menu.UpdateConfigMsgPersonupdateConfig =Menu.updateConfig { toId =.name , onKeyDown =code maybeId ->if code ==13thenMaybe.map SelectPerson maybeId elseNothing, onTooLow =Nothing, onTooHigh =Nothing, onMouseEnter =_ ->Nothing, onMouseLeave =_ ->Nothing, onMouseClick =id ->Just<|SelectPerson id , separateSelections =False}type Msg=SetAutocompleteStateMenu.Msg|SetQueryStringupdate:Msg->Model->Modelupdate msg model =case msg ofSetAutocompleteState autoMsg ->let(newState, maybeMsg)=Menu.update updateConfig autoMsg model.howManyToShow model.autoState (acceptablePeople model.query model.people)in{ model | autoState = newState }SetQuery q ->{ model | query = q }-- setup for your autocomplete viewviewConfig:Menu.ViewConfigPersonviewConfig =let customizedLi keySelected mouseSelected person ={ attributes =[ classList [("autocomplete-item",True),("is-selected", keySelected || mouseSelected)]], children =[Html.text person.name ]}inMenu.viewConfig { toId =.name , ul =[ class "autocomplete-list"]-- set classes for your list, li = customizedLi -- given selection states and a person, create some Html!}-- and let's show it! (See an example for the full code snippet)view:Model->HtmlMsgview model = div [][ input [ onInput SetQuery][],Html.map SetAutocompleteState(Menu.view viewConfig model.howManyToShow model.autoState (acceptablePeople model.query model.people))]