blob: b4641d2898b2579eb8ca14a6ff8e75449cdde53c (
plain)
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 [| HA.class_ "g-Button__Raw" |] attrs)
content
let text attrs content =
H.button
(HA.concat [| HA.class_ "g-Button__Text" |] attrs)
content
let action attrs content =
H.button
(HA.concat [| HA.class_ "g-Button__Action" |] attrs)
content
let cancel attrs content =
H.button
(HA.concat [| HA.class_ "g-Button__Cancel" |] attrs)
content
|