diff options
| author | Joris | 2020-08-08 21:04:28 +0200 |
|---|---|---|
| committer | Joris | 2020-08-08 21:04:28 +0200 |
| commit | 38e42723a916b7d5c2a15e514b3f3e6dcab398dd (patch) | |
| tree | 1b7415ae64ac9768b12fc4d543ee61d615d11e7e /src/View/Form | |
| parent | 3e39f97d844dbe0ff5f57e3977bc220d366d4c0e (diff) | |
Propose already defined colors in the form
Diffstat (limited to 'src/View/Form')
| -rw-r--r-- | src/View/Form/Autocomplete.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/View/Form/Autocomplete.ml b/src/View/Form/Autocomplete.ml index 324a834..2770e16 100644 --- a/src/View/Form/Autocomplete.ml +++ b/src/View/Form/Autocomplete.ml @@ -7,7 +7,7 @@ let render_completion render_entry on_select entries = [| HA.class_ "g-Autocomplete__Completion" |] (entries |> Js.Array.map (fun c -> - H.button + Button.raw [| HA.class_ "g-Autocomplete__Entry" ; HA.type_ "button" ; HE.on_click (fun e -> @@ -41,7 +41,8 @@ let create attrs id values render_entry on_input = H.div [| HA.class_ "g-Autocomplete" |] [| H.input - (Js.Array.concat + (HA.concat + attrs [| HA.id id ; HA.class_ "g-Autocomplete__Input" ; HA.autocomplete "off" @@ -59,8 +60,7 @@ let create attrs id values render_entry on_input = (fun _ -> hide_completion ()) 100 in ()) - |] - attrs) + |]) [| |] ; completion |] |