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