From 063d8ef9eaf874a941f4459e831057dd0a1b7ddd Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 5 Jul 2022 21:55:41 +0200
Subject: Rewrite in TS

---
 src/View/Form.ml | 65 --------------------------------------------------------
 1 file changed, 65 deletions(-)
 delete mode 100644 src/View/Form.ml

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

diff --git a/src/View/Form.ml b/src/View/Form.ml
deleted file mode 100644
index cec49d6..0000000
--- a/src/View/Form.ml
+++ /dev/null
@@ -1,65 +0,0 @@
-let input id label attrs =
-  H.div
-    [| HA.class_ "g-Form__Field" |]
-    [| H.div
-        [| HA.class_ "g-Form__Label" |]
-        [| H.label
-          [| HA.for_ id |]
-          [| H.text label |]
-        |]
-    ;  H.input
-        (HA.concat attrs [| HA.id id |])
-        [| |]
-    |]
-
-let color_input default_colors id label init_value on_input =
-  let
-    input =
-      H.input
-          [| HA.id id
-          ;  HE.on_input (fun e -> on_input (Element.value (Event.target e)))
-          ;  HA.value init_value
-          ;  HA.type_ "color"
-          |]
-          [| |]
-  in
-  H.div
-    [| HA.class_ "g-Form__Field" |]
-    [| H.div
-        [| HA.class_ "g-Form__Label" |]
-        [| H.label
-          [| HA.for_ id |]
-          [| H.text label |]
-        |]
-    ;  Layout.line
-        [| |]
-        (default_colors
-          |> Js.Array.map (fun color ->
-              Button.raw
-                [| HA.class_ "g-Form__DefaultColor"
-                ;  HA.style ("background-color: " ^ color)
-                ;  HE.on_click (fun _ ->
-                    let () = Element.set_value input color in
-                    on_input color)
-                ;  HA.type_ "button"
-                |]
-                [| |])
-        |> Fun.flip Js.Array.concat [| input |])
-    |]
-
-let textarea id label init_value on_input =
-  H.div
-    [| HA.class_ "g-Form__Field" |]
-    [| H.div
-        [| HA.class_ "g-Form__Label" |]
-        [| H.label
-          [| HA.for_ id |]
-          [| H.text label |]
-        |]
-    ;  H.textarea
-        [| HA.id id
-        ;  HA.class_ "g-Form__Textarea"
-        ;  HE.on_input (fun e -> on_input (Element.value (Event.target e)))
-        |]
-        [| H.text init_value |]
-    |]
-- 
cgit v1.2.3