From 38e42723a916b7d5c2a15e514b3f3e6dcab398dd Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 8 Aug 2020 21:04:28 +0200
Subject: Propose already defined colors in the form

---
 src/View/Button.ml | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'src/View/Button.ml')

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
-- 
cgit v1.2.3