summaryrefslogtreecommitdiff
path: root/script.it/script_event/export.ml
blob: 10dd93785d2c1f63dc8a0ace6f8fd948714edf7f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
open StdLabels
open Brr
module State = Script_state.State

type t = unit

let process () 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