src/View/Button.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
    (HA.concat attrs [| HA.class_ "g-Button__Action" |])
    content

let cancel attrs content =
  H.button
    (HA.concat attrs [| HA.class_ "g-Button__Cancel" |])
    content