add mk_dragable

examples/slider.ml

@@ -22,11 +22,12 @@ let () =
       ~id:"my-slider" ~label:"Important slider, slide carefully"
       ~datalist_id:(Some datalist.datalist_id)
   in
-  append_el_to_main slider.slider_el;
+  append_el_to_main slider.el;
   (* don't forget to add datalist to document too! *)
   append_el_to_main datalist.datalist_el;
 
   (* add listener on slider change *)
   Slippery_slidy.add_slider_input_listener slider (fun x ->
       Printf.printf "slider value: %f !!@." x );
+  Slippery_slidy.mk_dragable slider;
   ()

examples/style.css

@@ -0,0 +1,12 @@
+.slippery-slidy-container {
+  display: flex;
+  flex-direction: column;
+  position: fixed;
+  top: 5vh;
+  left: 5vw;
+  background-color: black;
+  color: white;
+  opacity: 0.7;
+  padding-block: 2vh;
+  padding-inline: 1vw;
+}