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