diff options
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 |