From 4ee0dfae75fda3a8b6347d55c728b50ce5c210d9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Jul 2020 18:16:59 +0200
Subject: Allow to customize icons

---
 src/View/Button.ml | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 src/View/Button.ml

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

diff --git a/src/View/Button.ml b/src/View/Button.ml
new file mode 100644
index 0000000..31fa1b0
--- /dev/null
+++ b/src/View/Button.ml
@@ -0,0 +1,13 @@
+let action on_click label =
+  H.button
+      [| HA.class_ "g-Button__Action"
+      ;  HE.on_click on_click
+      |]
+      [| H.text label |]
+
+let danger on_click label =
+      H.button
+          [| HA.class_ "g-Button__Danger"
+          ;  HE.on_click on_click
+          |]
+          [| H.text label |]
-- 
cgit v1.2.3