From 6a75fb043ed30389fff1ce97fe20ee56b1c95066 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Tue, 25 May 2021 11:08:00 +0200
Subject: Update script.it project

---
 script.it/script_event/export.ml | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 script.it/script_event/export.ml

(limited to 'script.it/script_event/export.ml')

diff --git a/script.it/script_event/export.ml b/script.it/script_event/export.ml
new file mode 100755
index 0000000..9e900c7
--- /dev/null
+++ b/script.it/script_event/export.ml
@@ -0,0 +1,30 @@
+open StdLabels
+open Brr
+module State = Script_state.State
+
+type t = unit
+
+let update () state =
+  let my_host = Uri.host @@ Window.location @@ G.window in
+  if (Hashtbl.hash my_host) = Blog.Hash_host.expected_host then (
+    (* Convert the path into an sVG element *)
+    let svg = Layer.Svg.svg
+        ~at:Brr.At.[
+            v (Jstr.v "xmlns") (Jstr.v "http://www.w3.org/2000/svg")
+          ; v (Jstr.v "xmlns:xlink") (Jstr.v "http://www.w3.org/1999/xlink") ]
+        (List.map state.State.paths
+           ~f:(fun path ->
+
+               Layer.Paths.to_svg
+                 ~color:Blog.Nord.nord0
+                 (module Path.Fixed)
+                 Outline.(path.path, path.back)
+                 state.State.rendering
+
+             )) in
+    let content = El.prop Elements.Prop.outerHTML svg in
+    Elements.Transfert.send
+      ~mime_type:(Jstr.v "image/svg+xml")
+      ~filename:(Jstr.v "out.svg")
+      content);
+  state
-- 
cgit v1.2.3