From 77544bdfad2af41514ec1435f706fee87ea2969e Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Mon, 7 Feb 2022 15:38:37 +0100
Subject: Added viz.js code

---
 elements/input.ml | 23 -----------------------
 1 file changed, 23 deletions(-)
 delete mode 100755 elements/input.ml

(limited to 'elements/input.ml')

diff --git a/elements/input.ml b/elements/input.ml
deleted file mode 100755
index 6ae9aa8..0000000
--- a/elements/input.ml
+++ /dev/null
@@ -1,23 +0,0 @@
-open Brr
-open Brr_note
-open Note
-
-(** Create a slider element, and a signal with the value *)
-let slider
-  : at:Brr.At.t list -> Brr.El.t * float S.t
-
-  = fun ~at ->
-    let slider =
-      El.input ~at () in
-
-    let init_value = (Jstr.to_float (El.prop El.Prop.value slider)) in
-
-    let event =
-      Evr.on_el
-        Ev.input (fun _ ->
-            let raw_value = El.prop El.Prop.value slider in
-            Jstr.to_float raw_value)
-        slider
-      |> S.hold init_value
-    in
-    slider, event
-- 
cgit v1.2.3