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/Button.ml | |
| parent | 3e39f97d844dbe0ff5f57e3977bc220d366d4c0e (diff) | |
| download | map-38e42723a916b7d5c2a15e514b3f3e6dcab398dd.tar.gz map-38e42723a916b7d5c2a15e514b3f3e6dcab398dd.tar.bz2 map-38e42723a916b7d5c2a15e514b3f3e6dcab398dd.zip | |
Propose already defined colors in the form
Diffstat (limited to 'src/View/Button.ml')
| -rw-r--r-- | src/View/Button.ml | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/src/View/Button.ml b/src/View/Button.ml index c325fdd..723b7d1 100644 --- a/src/View/Button.ml +++ b/src/View/Button.ml @@ -1,9 +1,19 @@ +let raw attrs content = + H.button + (HA.concat attrs [| HA.class_ "g-Button__Raw" |]) + content + +let text attrs content = + H.button + (HA.concat attrs [| HA.class_ "g-Button__Text" |]) + content + let action attrs content = H.button - (Js.Array.concat attrs [| HA.class_ "g-Button__Action" |]) + (HA.concat attrs [| HA.class_ "g-Button__Action" |]) content let cancel attrs content = H.button - (Js.Array.concat attrs [| HA.class_ "g-Button__Cancel" |]) + (HA.concat attrs [| HA.class_ "g-Button__Cancel" |]) content |