aboutsummaryrefslogtreecommitdiff
path: root/blog/sidebar.ml
diff options
context:
space:
mode:
Diffstat (limited to 'blog/sidebar.ml')
-rwxr-xr-xblog/sidebar.ml54
1 files changed, 20 insertions, 34 deletions
diff --git a/blog/sidebar.ml b/blog/sidebar.ml
index ed4b856..83afb13 100755
--- a/blog/sidebar.ml
+++ b/blog/sidebar.ml
@@ -24,21 +24,6 @@ let rec clean
clean el
)
-(** Create a slider element, and the event on change *)
-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
- in
- slider, event
-
let click_event el =
Evr.on_el
Ev.click
@@ -51,7 +36,7 @@ let show_value = function
El.txt (Jstr.of_int input)
let add_button
- : El.t -> unit E.t
+ : El.t -> unit E.t * unit E.t
= fun element ->
let open El in
@@ -73,10 +58,11 @@ let add_button
; class' (Jstr.v "fa-download") ]
[]
; txt' "Download"] in
+ let export_event = click_event export in
let nib_size, value =
- slider
+ Elements.Input.slider
~at:At.[ type' (Jstr.v "range")
; v (Jstr.v "min") (Jstr.v "0")
; v (Jstr.v "max") (Jstr.v "50")
@@ -84,30 +70,30 @@ let add_button
] in
let width = El.div [] in
- Elr.set_children
+ Elr.def_children
width
- ~on:(value
- |> E.map (fun v ->
- [ txt' "Width : "
- ; show_value v ]
- )
- );
+ (value
+ |> S.map (fun v ->
+ [ txt' "Width : "
+ ; show_value v ]
+ )
+ );
let input_angle, angle_event =
- slider
+ Elements.Input.slider
~at:At.[ type' (Jstr.v "range")
; v (Jstr.v "min") (Jstr.v "0")
; v (Jstr.v "max") (Jstr.v "90")] in
let angle = El.div [] in
- Elr.set_children
+ Elr.def_children
angle
- ~on:(angle_event
- |> E.map (fun v ->
- [ txt' "Angle : "
- ; show_value v
- ; txt' "°" ]
- )
- );
+ (angle_event
+ |> S.map (fun v ->
+ [ txt' "Angle : "
+ ; show_value v
+ ; txt' "°" ]
+ )
+ );
let click = Evr.on_el Ev.click Evr.unit delete in
let _ = click in
@@ -128,4 +114,4 @@ let add_button
]
in
- delete_event
+ delete_event, export_event