From 4ee0dfae75fda3a8b6347d55c728b50ce5c210d9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Jul 2020 18:16:59 +0200
Subject: Allow to customize icons

---
 src/Lib/String.ml | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 src/Lib/String.ml

(limited to 'src/Lib/String.ml')

diff --git a/src/Lib/String.ml b/src/Lib/String.ml
new file mode 100644
index 0000000..be16d0e
--- /dev/null
+++ b/src/Lib/String.ml
@@ -0,0 +1,35 @@
+let format_float precision f =
+  let str = Js.Float.toString f in
+  match Js.String.split "." str with
+    | [| a ; b |] -> a ^ "." ^ (Js.String.substring ~from:0 ~to_:precision b)
+    | _ -> str
+
+external btoa : string -> string = "btoa"
+  [@@bs.val] [@@bs.scope "window"]
+
+external atob : string -> string = "atob"
+  [@@bs.val] [@@bs.scope "window"]
+
+external unescape : string -> string = "unescape"
+  [@@bs.val]
+
+external escape : string -> string = "escape"
+  [@@bs.val]
+
+external encodeURIComponent : string -> string = "encodeURIComponent"
+  [@@bs.val]
+
+external decodeURIComponent : string -> string = "decodeURIComponent"
+  [@@bs.val]
+
+let encode str =
+  str
+    |> encodeURIComponent
+    |> unescape
+    |> btoa
+
+let decode str =
+  str
+    |> atob
+    |> escape
+    |> decodeURIComponent
-- 
cgit v1.2.3