From 6a20c03a2d08bddfaeee23f4237d29f9bb67c7a2 Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Fri, 4 Jun 2021 09:16:54 +0200 Subject: Introduced common librairy into viz.js --- viz.js/convert.ml | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'viz.js/convert.ml') diff --git a/viz.js/convert.ml b/viz.js/convert.ml index 75c4fcd..68bf244 100755 --- a/viz.js/convert.ml +++ b/viz.js/convert.ml @@ -26,13 +26,6 @@ let on_result_svg () end -let download data (filename : Js.js_string Js.t) (mime: Js.js_string Js.t) - = Js.Unsafe.( - fun_call (js_expr "download") - [| inject data - ; inject filename - ; inject mime |]) - (** Message send by the worker *) type message = Process.t type worker = (Js.js_string Js.t, message) Worker.worker Js.t @@ -78,7 +71,10 @@ let load () = (* Download the dot file *) dot_button##.onclick := Dom_html.handler (fun _ev -> - let _ = download input (Js.string "output.dot") (Js.string "text/plain") in + let _ = Elements.Transfert.send + ~mime_type:(Jstr.v "text/plain") + ~filename:(Jstr.v "output.dot") + (Obj.magic input) in Js._false ); @@ -86,7 +82,10 @@ let load () = output_button##.onclick := Dom_html.handler (fun _-> (*download image*) CanvasTool.generate_png image (fun image -> - let _ = download image (Js.string "output.png") (Js.string "text/plain") in + let _ = + Elements.Transfert.send_raw + ~filename:(Jstr.v "output.png") + (Obj.magic image) in () ); Js._false -- cgit v1.2.3