From 063d8ef9eaf874a941f4459e831057dd0a1b7ddd Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 5 Jul 2022 21:55:41 +0200
Subject: Rewrite in TS

---
 src/View/Map/Icon.ml | 32 --------------------------------
 1 file changed, 32 deletions(-)
 delete mode 100644 src/View/Map/Icon.ml

(limited to 'src/View/Map/Icon.ml')

diff --git a/src/View/Map/Icon.ml b/src/View/Map/Icon.ml
deleted file mode 100644
index 8737f43..0000000
--- a/src/View/Map/Icon.ml
+++ /dev/null
@@ -1,32 +0,0 @@
-let create name color =
-  let c = Color.from_raw color in
-  let crBlack = Color.contrast_ratio { r = 0.; g = 0.; b = 0. } c in
-  let crWhite = Color.contrast_ratio { r = 255.; g = 255.; b = 255. } c in
-  let textCol = if crBlack > crWhite then "black" else "white" in
-  Leaflet.div_icon
-    { className = ""
-    ; popupAnchor = [| 0.; -34. |]
-    ; html =
-        H.div
-          [| HA.class_ "g-Marker" |]
-          [| H.div
-              [| HA.class_ "g-Marker__Round"
-              ;  HA.style ("background-color: " ^ color)
-              |]
-              [| |]
-          ;  H.div [| HA.class_ "g-Marker__PeakBorder" |] [| |]
-          ;  H.div
-              [| HA.class_ "g-Marker__PeakInner"
-              ;  HA.style ("border-top-color: " ^ color)
-              |]
-              [| |]
-          ;  H.div
-              [| HA.class_ "g-Marker__Icon" |]
-              [| H.i
-                  [| HA.class_ ("fa fa-" ^ name)
-                  ;  HA.style ("color: " ^ textCol)
-                  |]
-                  [| |]
-              |]
-          |]
-    }
-- 
cgit v1.2.3