From 86ec559f913c389e8dc055b494630f21a45e039b Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@chimrod.com>
Date: Thu, 4 Feb 2021 21:14:01 +0100
Subject: css_merge application

---
 script.it/state.ml | 18 ++++--------------
 1 file changed, 4 insertions(+), 14 deletions(-)

(limited to 'script.it')

diff --git a/script.it/state.ml b/script.it/state.ml
index ad7abb3..cb5d9ff 100755
--- a/script.it/state.ml
+++ b/script.it/state.ml
@@ -357,20 +357,10 @@ let do_action
 
                  )) in
         let content = El.prop Elements.Prop.outerHTML svg in
-
-        let btoa = Jv.get Jv.global "btoa" in
-        let base64data = Jv.apply btoa
-            [| Jv.of_jstr content |] in
-
-        (* Create the link to download the the element, and simulate a click on it *)
-        let a = El.a
-            ~at:At.[
-                href Jstr.( (v "data:image/svg+xml;base64,") + (Jv.Id.of_jv base64data))
-              ; v (Jstr.v "download") (Jstr.v "out.svg")
-              ]
-            [] in
-        El.click a
-      );
+        Elements.Transfert.send
+          ~mime_type:(Jstr.v "image/svg+xml")
+          ~filename:(Jstr.v "out.svg")
+          content);
       state
 
     | `Angle value , _ ->
-- 
cgit v1.2.3