open StdLabels
open Brr
module State = Script_state.State
module Path = Script_path

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