From 3d3ac5d05cf2851444b835b5bbc0236111f53673 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Sat, 2 Jan 2021 13:15:31 +0100
Subject: Update

---
 script.ml | 12 ++++++------
 state.ml  |  7 ++-----
 2 files changed, 8 insertions(+), 11 deletions(-)

diff --git a/script.ml b/script.ml
index 398e4f2..3e52f5c 100755
--- a/script.ml
+++ b/script.ml
@@ -111,7 +111,6 @@ let set_sidebar
                ; v (Jstr.v "min") (Jstr.v "1")
                ; v (Jstr.v "max") (Jstr.v "50")
                ; At.value (Jstr.of_float state.width)
-               ; id (Jstr.v "nib_size")
                ] in
 
     let width = El.div [] in
@@ -142,8 +141,6 @@ let set_sidebar
          )
       );
 
-
-    let br = El.br () in
     let render =
       El.select
         [ El.option ~at:At.[value (Jstr.v "Fill")]
@@ -153,12 +150,18 @@ let set_sidebar
         ; El.option ~at:At.[value (Jstr.v "Ductus")]
             [ txt' "Ductus"]
         ] in
+    let rendering' = El.div
+        [ txt' "Rendering : "
+        ; render ] in
 
     let () =
       El.append_children element
         [ hr ()
         ; delete
         ; export
+
+        ; rendering'
+
         ; hr ()
 
         ; width
@@ -167,9 +170,6 @@ let set_sidebar
         ; angle
         ; input_angle
 
-        ; br
-        ; render
-
         ]
     in
     delete_event, angle_event, nib_size_event, export_event
diff --git a/state.ml b/state.ml
index 52fe5a6..5a1ef8f 100755
--- a/state.ml
+++ b/state.ml
@@ -12,9 +12,6 @@ type mode =
   | Selection of int
   | Out
 
-type current = Path.Path_Builder.t
-
-
 (** Events *)
 type canva_events =
   [ `Click of float * float
@@ -41,7 +38,7 @@ type events =
 type state =
   { mode : mode
   ; paths : Path.Fixed.t list
-  ; current : current
+  ; current : Path.Path_Builder.t
   ; width : float
   ; angle : float
   }
@@ -97,7 +94,7 @@ let update_selection id state f =
           | false -> path
           | true -> Path.Fixed.map_point path f
         ) in
-  { state with paths}
+  { state with paths }
 
 let do_action
   : events -> state -> state
-- 
cgit v1.2.3