diff options
author | Joris | 2020-08-08 12:49:03 +0200 |
---|---|---|
committer | Joris | 2020-08-08 12:49:03 +0200 |
commit | 081e6aae57719c15bdbc5e973ca7ddba9506a4bb (patch) | |
tree | a8de15bb4165639cf283bde7b7e63eb330e83d88 /src/View/Map/Icon.ml | |
parent | 4ee0dfae75fda3a8b6347d55c728b50ce5c210d9 (diff) | |
download | map-081e6aae57719c15bdbc5e973ca7ddba9506a4bb.tar.gz map-081e6aae57719c15bdbc5e973ca7ddba9506a4bb.tar.bz2 map-081e6aae57719c15bdbc5e973ca7ddba9506a4bb.zip |
Show context menu to add, modify and delete markers
Diffstat (limited to 'src/View/Map/Icon.ml')
-rw-r--r-- | src/View/Map/Icon.ml | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/View/Map/Icon.ml b/src/View/Map/Icon.ml index 9b1f40a..8737f43 100644 --- a/src/View/Map/Icon.ml +++ b/src/View/Map/Icon.ml @@ -4,24 +4,24 @@ let create name color = 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 = "marker-parent" + { className = "" ; popupAnchor = [| 0.; -34. |] ; html = H.div - [| |] + [| HA.class_ "g-Marker" |] [| H.div - [| HA.class_ "marker-round" + [| HA.class_ "g-Marker__Round" ; HA.style ("background-color: " ^ color) |] [| |] - ; H.div [| HA.class_ "marker-peak-border" |] [| |] + ; H.div [| HA.class_ "g-Marker__PeakBorder" |] [| |] ; H.div - [| HA.class_ "marker-peak-inner" + [| HA.class_ "g-Marker__PeakInner" ; HA.style ("border-top-color: " ^ color) |] [| |] ; H.div - [| HA.class_ "marker-icon" |] + [| HA.class_ "g-Marker__Icon" |] [| H.i [| HA.class_ ("fa fa-" ^ name) ; HA.style ("color: " ^ textCol) |