Add svg output

1 files changed, 20 insertions, 0 deletions

diff --git a/elements/input.ml b/elements/input.ml
new file mode 100755
index 0000000..790b15d
--- /dev/null
+++ b/elements/input.ml
@@ -0,0 +1,20 @@
+open Brr
+open Brr_note
+open Note
+
+(** Create a slider element, and a signal with the value *)
+let slider ~at =
+  let slider =
+    El.input ~at () in
+
+  let event =
+    Evr.on_el
+      Ev.input (fun _ ->
+          let raw_value = El.prop El.Prop.value slider in
+          Jstr.to_int raw_value)
+      slider
+    |> S.hold (Jstr.to_int (El.prop El.Prop.value slider))
+  in
+  slider, event
+
+