From 77544bdfad2af41514ec1435f706fee87ea2969e Mon Sep 17 00:00:00 2001 From: Sébastien Dailly Date: Mon, 7 Feb 2022 15:38:37 +0100 Subject: Added viz.js code --- elements/transfert.ml | 22 ---------------------- 1 file changed, 22 deletions(-) delete mode 100755 elements/transfert.ml (limited to 'elements/transfert.ml') diff --git a/elements/transfert.ml b/elements/transfert.ml deleted file mode 100755 index ddeecd0..0000000 --- a/elements/transfert.ml +++ /dev/null @@ -1,22 +0,0 @@ -open Js_of_ocaml -open Brr - -let send - : mime_type:Jstr.t -> filename:Jstr.t -> Jstr.t -> unit - = fun ~mime_type ~filename content -> - let btoa = Jv.get Jv.global "btoa" in - let base64data = Jv.apply btoa - [| Jv.of_jstr content |] in - - let mime = (Jv.Id.(of_jv @@ to_jv mime_type)) - and base64 = (Jv.Id.(of_jv @@ to_jv base64data)) - in - - let data = (Js.string "data:")##concat_3 mime (Js.string ";base64,") base64 in - - (* Create the link to download the the element, and simulate a click on it *) - let a = El.a - ~at:At.[ href Jv.Id.(of_jv @@ to_jv data) - ; v (Jstr.v "download") filename ] - [] in - El.click a -- cgit v1.2.3