diff options
author | Sébastien Dailly <sebastien@chimrod.com> | 2021-06-04 09:16:54 +0200 |
---|---|---|
committer | Sébastien Dailly <sebastien@dailly.me> | 2022-02-07 16:22:43 +0100 |
commit | 6a20c03a2d08bddfaeee23f4237d29f9bb67c7a2 (patch) | |
tree | b39b72ae821d26160fc3ec37d968207d90b72195 /viz.js/convert.ml | |
parent | d24dd97a0335b2fbd28d1b9bfed9c8f5d0d1f7af (diff) |
Introduced common librairy into viz.js
Diffstat (limited to 'viz.js/convert.ml')
-rwxr-xr-x | viz.js/convert.ml | 17 |
1 files changed, 8 insertions, 9 deletions
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 |