New Style Generator (#8)

12 files changed, 24811 insertions, 1083 deletions

diff --git a/examples/Example02.elm b/examples/Example02.elm
index 5e04567..c485a7a 100644
--- a/examples/Example02.elm
+++ b/examples/Example02.elm
@@ -2,11 +2,11 @@ module Example02 exposing (main)
 
 import Browser
 import Html exposing (div)
-import Html.Attributes exposing (style)
+import Html.Attributes
 import Mapbox.Element exposing (..)
-import Outdoors
+import Styles.SatelliteStreets exposing (style)
 
 
 main =
-    div [ style "height" "100vh" ]
-        [ map [] Outdoors.style ]
+    div [ Html.Attributes.style "height" "100vh" ]
+        [ map [] style ]
diff --git a/examples/Outdoors.elm b/examples/Outdoors.elm
deleted file mode 100644
index 9fc5f4d..0000000
--- a/examples/Outdoors.elm
+++ /dev/null
@@ -1,1079 +0,0 @@
-module Outdoors exposing (style)
-
-import Mapbox.Expression as E exposing (false, float, int, str, true)
-import Mapbox.Layer as Layer
-import Mapbox.Source as Source
-import Mapbox.Style as Style exposing (Style(..))
-
-
-style : Style
-style =
-    Style
-        { transition = Style.defaultTransition
-        , light = Style.defaultLight
-        , layers =
-            [ Layer.background "background"
-                [ Layer.backgroundColor
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 5, E.rgba 239 230 214 1 )
-                            , ( 7, E.rgba 236 223 202 1 )
-                            ]
-                    )
-                ]
-            , Layer.fill "national_park"
-                "mapbox-streets"
-                [ Layer.sourceLayer "landuse_overlay"
-                , Layer.filter (E.getProperty (str "class") |> E.isEqual (str "national_park"))
-                , Layer.fillColor (E.rgba 200 221 151 1)
-                , Layer.fillOpacity
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 5, float 0 )
-                            , ( 6, float 0.5 )
-                            ]
-                    )
-                ]
-            , Layer.fill "landuse"
-                "mapbox-streets"
-                [ Layer.sourceLayer "landuse"
-                , Layer.filter
-                    (E.any
-                        [ E.getProperty (str "class") |> E.isEqual (str "hospital")
-                        , E.getProperty (str "class") |> E.isEqual (str "park")
-                        , E.getProperty (str "class") |> E.isEqual (str "pitch")
-                        , E.getProperty (str "class") |> E.isEqual (str "school")
-                        ]
-                    )
-                , Layer.fillColor
-                    (E.getProperty (str "class")
-                        |> E.matchesStr
-                            [ ( "park", E.rgba 200 221 151 1 )
-                            , ( "pitch", E.rgba 200 221 151 1 )
-                            , ( "hospital", E.rgba 242 211 211 1 )
-                            , ( "school", E.rgba 233 213 199 1 )
-                            ]
-                            (E.rgba 0 0 0 0)
-                    )
-                , Layer.fillOpacity
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 5, float 0 )
-                            , ( 6, float 1 )
-                            ]
-                    )
-                ]
-            , Layer.line "waterway"
-                "mapbox-streets"
-                [ Layer.minzoom 8
-                , Layer.filter
-                    (E.all
-                        [ E.geometryType |> E.isEqual (str "LineString")
-                        , E.any
-                            [ E.getProperty (str "class") |> E.isEqual (str "canal")
-                            , E.getProperty (str "class") |> E.isEqual (str "river")
-                            ]
-                        ]
-                    )
-                , Layer.sourceLayer "waterway"
-                , Layer.lineColor (E.rgba 120 188 236 1)
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate (E.Exponential 1.3)
-                            [ ( 8.5, float 0.1 )
-                            , ( 20, float 8 )
-                            ]
-                    )
-                , Layer.lineOpacity
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 8, float 0 )
-                            , ( 8.5, float 1 )
-                            ]
-                    )
-                , Layer.lineJoin E.lineJoinRound
-                , Layer.lineCap E.lineCapRound
-                ]
-            , Layer.fill "water"
-                "mapbox-streets"
-                [ Layer.sourceLayer "water"
-                , Layer.fillColor
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 5, E.rgba 106 181 234 1 )
-                            , ( 7, E.rgba 120 188 236 1 )
-                            ]
-                    )
-                ]
-            , Layer.fill "aeroway-polygon"
-                "mapbox-streets"
-                [ Layer.sourceLayer "aeroway"
-                , Layer.filter
-                    (E.all
-                        [ E.geometryType |> E.isEqual (str "Polygon")
-                        , E.any
-                            [ E.getProperty (str "type") |> E.isEqual (str "helipad")
-                            , E.getProperty (str "type") |> E.isEqual (str "runway")
-                            , E.getProperty (str "type") |> E.isEqual (str "taxiway")
-                            ]
-                        ]
-                    )
-                , Layer.fillColor (E.rgba 196 196 196 1)
-                ]
-            , Layer.line "aeroway-line"
-                "mapbox-streets"
-                [ Layer.sourceLayer "aeroway"
-                , Layer.filter
-                    (E.all
-                        [ E.geometryType |> E.isEqual (str "LineString")
-                        , E.any
-                            [ E.getProperty (str "type") |> E.isEqual (str "runway")
-                            , E.getProperty (str "type") |> E.isEqual (str "taxiway")
-                            ]
-                        ]
-                    )
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate (E.Exponential 1.5)
-                            [ ( 10, float 0.5 )
-                            , ( 18, float 20 )
-                            ]
-                    )
-                , Layer.lineColor (E.rgba 196 196 196 1)
-                ]
-            , Layer.fill "building"
-                "mapbox-streets"
-                [ Layer.minzoom 15
-                , Layer.filter
-                    (E.all
-                        [ E.getProperty (str "type") |> E.notEqual (str "building:part")
-                        , E.getProperty (str "underground") |> E.isEqual (str "false")
-                        ]
-                    )
-                , Layer.sourceLayer "building"
-                , Layer.fillColor (E.rgba 212 200 179 1)
-                , Layer.fillOpacity
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 15.5, float 0 )
-                            , ( 16, float 1 )
-                            ]
-                    )
-                ]
-            , Layer.line "pedestrian-path"
-                "mapbox-streets"
-                [ Layer.minzoom 14
-                , Layer.filter
-                    (E.all
-                        [ E.geometryType |> E.isEqual (str "LineString")
-                        , E.all
-                            [ E.getProperty (str "type") |> E.notEqual (str "platform")
-                            , E.any
-                                [ E.getProperty (str "class") |> E.isEqual (str "path")
-                                , E.getProperty (str "class") |> E.isEqual (str "pedestrian")
-                                ]
-                            ]
-                        ]
-                    )
-                , Layer.sourceLayer "road"
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate (E.Exponential 1.5)
-                            [ ( 14
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "pedestrian", float 1 )
-                                        , ( "path", float 0.75 )
-                                        ]
-                                        (float 0.75)
-                              )
-                            , ( 20
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "pedestrian", float 8 )
-                                        , ( "path", float 5 )
-                                        ]
-                                        (float 5)
-                              )
-                            ]
-                    )
-                , Layer.lineColor
-                    (E.getProperty (str "type")
-                        |> E.matchesStr
-                            [ ( "sidewalk", E.rgba 221 208 186 1 )
-                            , ( "crossing", E.rgba 221 208 186 1 )
-                            ]
-                            (E.rgba 199 184 157 1)
-                    )
-                , Layer.lineJoin E.lineJoinRound
-                , Layer.lineCap E.lineCapRound
-                ]
-            , Layer.line "tunnel"
-                "mapbox-streets"
-                [ Layer.sourceLayer "road"
-                , Layer.filter
-                    (E.all
-                        [ E.geometryType |> E.isEqual (str "LineString")
-                        , E.all
-                            [ E.getProperty (str "type") |> E.notEqual (str "service:parking_aisle")
-                            , E.getProperty (str "structure") |> E.isEqual (str "tunnel")
-                            , E.any
-                                [ E.getProperty (str "class") |> E.isEqual (str "link")
-                                , E.getProperty (str "class") |> E.isEqual (str "motorway")
-                                , E.getProperty (str "class") |> E.isEqual (str "motorway_link")
-                                , E.getProperty (str "class") |> E.isEqual (str "primary")
-                                , E.getProperty (str "class") |> E.isEqual (str "secondary")
-                                , E.getProperty (str "class") |> E.isEqual (str "service")
-                                , E.getProperty (str "class") |> E.isEqual (str "street")
-                                , E.getProperty (str "class") |> E.isEqual (str "street_limited")
-                                , E.getProperty (str "class") |> E.isEqual (str "tertiary")
-                                , E.getProperty (str "class") |> E.isEqual (str "track")
-                                , E.getProperty (str "class") |> E.isEqual (str "trunk")
-                                ]
-                            ]
-                        ]
-                    )
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate (E.Exponential 1.5)
-                            [ ( 5
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 0.5 )
-                                        , ( "trunk", float 0.5 )
-                                        , ( "primary", float 0.5 )
-                                        , ( "secondary", float 0.01 )
-                                        , ( "tertiary", float 0.01 )
-                                        , ( "street", float 0 )
-                                        , ( "street_limited", float 0 )
-                                        , ( "motorway_link", float 0 )
-                                        , ( "service", float 0 )
-                                        , ( "track", float 0 )
-                                        , ( "link", float 0 )
-                                        ]
-                                        (float 0)
-                              )
-                            , ( 12
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 3 )
-                                        , ( "trunk", float 3 )
-                                        , ( "primary", float 3 )
-                                        , ( "secondary", float 2 )
-                                        , ( "tertiary", float 2 )
-                                        , ( "street", float 0.5 )
-                                        , ( "street_limited", float 0.5 )
-                                        , ( "motorway_link", float 0.5 )
-                                        , ( "service", float 0 )
-                                        , ( "track", float 0 )
-                                        , ( "link", float 0 )
-                                        ]
-                                        (float 0)
-                              )
-                            , ( 18
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 30 )
-                                        , ( "trunk", float 30 )
-                                        , ( "primary", float 30 )
-                                        , ( "secondary", float 24 )
-                                        , ( "tertiary", float 24 )
-                                        , ( "street", float 12 )
-                                        , ( "street_limited", float 12 )
-                                        , ( "motorway_link", float 12 )
-                                        , ( "service", float 10 )
-                                        , ( "track", float 10 )
-                                        , ( "link", float 10 )
-                                        ]
-                                        (float 10)
-                              )
-                            ]
-                    )
-                , Layer.lineColor
-                    (E.getProperty (str "class")
-                        |> E.matchesStr
-                            [ ( "street", E.rgba 255 251 244 1 )
-                            , ( "street_limited", E.rgba 255 251 244 1 )
-                            , ( "service", E.rgba 255 251 244 1 )
-                            , ( "track", E.rgba 255 251 244 1 )
-                            , ( "link", E.rgba 255 251 244 1 )
-                            ]
-                            (E.rgba 255 255 255 1)
-                    )
-                , Layer.lineDasharray (E.floats [ 0.2, 0.2 ])
-                , Layer.lineJoin E.lineJoinRound
-                ]
-            , Layer.line "road"
-                "mapbox-streets"
-                [ Layer.sourceLayer "road"
-                , Layer.filter
-                    (E.all
-                        [ E.geometryType |> E.isEqual (str "LineString")
-                        , E.all
-                            [ E.getProperty (str "type") |> E.notEqual (str "service:parking_aisle")
-                            , E.all
-                                [ E.getProperty (str "structure") |> E.notEqual (str "bridge")
-                                , E.getProperty (str "structure") |> E.notEqual (str "tunnel")
-                                ]
-                            , E.any
-                                [ E.getProperty (str "class") |> E.isEqual (str "link")
-                                , E.getProperty (str "class") |> E.isEqual (str "motorway")
-                                , E.getProperty (str "class") |> E.isEqual (str "motorway_link")
-                                , E.getProperty (str "class") |> E.isEqual (str "primary")
-                                , E.getProperty (str "class") |> E.isEqual (str "secondary")
-                                , E.getProperty (str "class") |> E.isEqual (str "service")
-                                , E.getProperty (str "class") |> E.isEqual (str "street")
-                                , E.getProperty (str "class") |> E.isEqual (str "street_limited")
-                                , E.getProperty (str "class") |> E.isEqual (str "tertiary")
-                                , E.getProperty (str "class") |> E.isEqual (str "track")
-                                , E.getProperty (str "class") |> E.isEqual (str "trunk")
-                                ]
-                            ]
-                        ]
-                    )
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate (E.Exponential 1.5)
-                            [ ( 5
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 0.5 )
-                                        , ( "trunk", float 0.5 )
-                                        , ( "primary", float 0.5 )
-                                        , ( "secondary", float 0.01 )
-                                        , ( "tertiary", float 0.01 )
-                                        , ( "street", float 0 )
-                                        , ( "street_limited", float 0 )
-                                        , ( "motorway_link", float 0 )
-                                        , ( "service", float 0 )
-                                        , ( "track", float 0 )
-                                        , ( "link", float 0 )
-                                        ]
-                                        (float 0)
-                              )
-                            , ( 12
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 3 )
-                                        , ( "trunk", float 3 )
-                                        , ( "primary", float 3 )
-                                        , ( "secondary", float 2 )
-                                        , ( "tertiary", float 2 )
-                                        , ( "street", float 0.5 )
-                                        , ( "street_limited", float 0.5 )
-                                        , ( "motorway_link", float 0.5 )
-                                        , ( "service", float 0 )
-                                        , ( "track", float 0 )
-                                        , ( "link", float 0 )
-                                        ]
-                                        (float 0)
-                              )
-                            , ( 18
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 30 )
-                                        , ( "trunk", float 30 )
-                                        , ( "primary", float 30 )
-                                        , ( "secondary", float 24 )
-                                        , ( "tertiary", float 24 )
-                                        , ( "street", float 12 )
-                                        , ( "street_limited", float 12 )
-                                        , ( "motorway_link", float 12 )
-                                        , ( "service", float 10 )
-                                        , ( "track", float 10 )
-                                        , ( "link", float 10 )
-                                        ]
-                                        (float 10)
-                              )
-                            ]
-                    )
-                , Layer.lineColor
-                    (E.getProperty (str "class")
-                        |> E.matchesStr
-                            [ ( "street", E.rgba 255 251 244 1 )
-                            , ( "street_limited", E.rgba 255 251 244 1 )
-                            , ( "service", E.rgba 255 251 244 1 )
-                            , ( "track", E.rgba 255 251 244 1 )
-                            , ( "link", E.rgba 255 251 244 1 )
-                            ]
-                            (E.rgba 255 255 255 1)
-                    )
-                , Layer.lineJoin E.lineJoinRound
-                , Layer.lineCap E.lineCapRound
-                ]
-            , Layer.line "bridge-case"
-                "mapbox-streets"
-                [ Layer.sourceLayer "road"
-                , Layer.filter
-                    (E.all
-                        [ E.geometryType |> E.isEqual (str "LineString")
-                        , E.all
-                            [ E.getProperty (str "type") |> E.notEqual (str "service:parking_aisle")
-                            , E.getProperty (str "structure") |> E.isEqual (str "bridge")
-                            , E.any
-                                [ E.getProperty (str "class") |> E.isEqual (str "link")
-                                , E.getProperty (str "class") |> E.isEqual (str "motorway")
-                                , E.getProperty (str "class") |> E.isEqual (str "motorway_link")
-                                , E.getProperty (str "class") |> E.isEqual (str "primary")
-                                , E.getProperty (str "class") |> E.isEqual (str "secondary")
-                                , E.getProperty (str "class") |> E.isEqual (str "service")
-                                , E.getProperty (str "class") |> E.isEqual (str "street")
-                                , E.getProperty (str "class") |> E.isEqual (str "street_limited")
-                                , E.getProperty (str "class") |> E.isEqual (str "tertiary")
-                                , E.getProperty (str "class") |> E.isEqual (str "track")
-                                , E.getProperty (str "class") |> E.isEqual (str "trunk")
-                                ]
-                            ]
-                        ]
-                    )
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate (E.Exponential 1.5)
-                            [ ( 10, float 1 )
-                            , ( 16, float 2 )
-                            ]
-                    )
-                , Layer.lineColor (E.rgba 236 223 202 1)
-                , Layer.lineGapWidth
-                    (E.zoom
-                        |> E.interpolate (E.Exponential 1.5)
-                            [ ( 5
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 0.5 )
-                                        , ( "trunk", float 0.5 )
-                                        , ( "primary", float 0.5 )
-                                        , ( "secondary", float 0.01 )
-                                        , ( "tertiary", float 0.01 )
-                                        , ( "street", float 0 )
-                                        , ( "street_limited", float 0 )
-                                        , ( "motorway_link", float 0 )
-                                        , ( "service", float 0 )
-                                        , ( "track", float 0 )
-                                        , ( "link", float 0 )
-                                        ]
-                                        (float 0)
-                              )
-                            , ( 12
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 3 )
-                                        , ( "trunk", float 3 )
-                                        , ( "primary", float 3 )
-                                        , ( "secondary", float 2 )
-                                        , ( "tertiary", float 2 )
-                                        , ( "street", float 0.5 )
-                                        , ( "street_limited", float 0.5 )
-                                        , ( "motorway_link", float 0.5 )
-                                        , ( "service", float 0 )
-                                        , ( "track", float 0 )
-                                        , ( "link", float 0 )
-                                        ]
-                                        (float 0)
-                              )
-                            , ( 18
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 30 )
-                                        , ( "trunk", float 30 )
-                                        , ( "primary", float 30 )
-                                        , ( "secondary", float 24 )
-                                        , ( "tertiary", float 24 )
-                                        , ( "street", float 12 )
-                                        , ( "street_limited", float 12 )
-                                        , ( "motorway_link", float 12 )
-                                        , ( "service", float 10 )
-                                        , ( "track", float 10 )
-                                        , ( "link", float 10 )
-                                        ]
-                                        (float 10)
-                              )
-                            ]
-                    )
-                , Layer.lineJoin E.lineJoinRound
-                ]
-            , Layer.line "bridge"
-                "mapbox-streets"
-                [ Layer.sourceLayer "road"
-                , Layer.filter
-                    (E.all
-                        [ E.geometryType |> E.isEqual (str "LineString")
-                        , E.all
-                            [ E.getProperty (str "type") |> E.notEqual (str "service:parking_aisle")
-                            , E.getProperty (str "structure") |> E.isEqual (str "bridge")
-                            , E.any
-                                [ E.getProperty (str "class") |> E.isEqual (str "link")
-                                , E.getProperty (str "class") |> E.isEqual (str "motorway")
-                                , E.getProperty (str "class") |> E.isEqual (str "motorway_link")
-                                , E.getProperty (str "class") |> E.isEqual (str "primary")
-                                , E.getProperty (str "class") |> E.isEqual (str "secondary")
-                                , E.getProperty (str "class") |> E.isEqual (str "service")
-                                , E.getProperty (str "class") |> E.isEqual (str "street")
-                                , E.getProperty (str "class") |> E.isEqual (str "street_limited")
-                                , E.getProperty (str "class") |> E.isEqual (str "tertiary")
-                                , E.getProperty (str "class") |> E.isEqual (str "track")
-                                , E.getProperty (str "class") |> E.isEqual (str "trunk")
-                                ]
-                            ]
-                        ]
-                    )
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate (E.Exponential 1.5)
-                            [ ( 5
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 0.5 )
-                                        , ( "trunk", float 0.5 )
-                                        , ( "primary", float 0.5 )
-                                        , ( "secondary", float 0.01 )
-                                        , ( "tertiary", float 0.01 )
-                                        , ( "street", float 0 )
-                                        , ( "street_limited", float 0 )
-                                        , ( "motorway_link", float 0 )
-                                        , ( "service", float 0 )
-                                        , ( "track", float 0 )
-                                        , ( "link", float 0 )
-                                        ]
-                                        (float 0)
-                              )
-                            , ( 12
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 3 )
-                                        , ( "trunk", float 3 )
-                                        , ( "primary", float 3 )
-                                        , ( "secondary", float 2 )
-                                        , ( "tertiary", float 2 )
-                                        , ( "street", float 0.5 )
-                                        , ( "street_limited", float 0.5 )
-                                        , ( "motorway_link", float 0.5 )
-                                        , ( "service", float 0 )
-                                        , ( "track", float 0 )
-                                        , ( "link", float 0 )
-                                        ]
-                                        (float 0)
-                              )
-                            , ( 18
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 30 )
-                                        , ( "trunk", float 30 )
-                                        , ( "primary", float 30 )
-                                        , ( "secondary", float 24 )
-                                        , ( "tertiary", float 24 )
-                                        , ( "street", float 12 )
-                                        , ( "street_limited", float 12 )
-                                        , ( "motorway_link", float 12 )
-                                        , ( "service", float 10 )
-                                        , ( "track", float 10 )
-                                        , ( "link", float 10 )
-                                        ]
-                                        (float 10)
-                              )
-                            ]
-                    )
-                , Layer.lineColor
-                    (E.getProperty (str "class")
-                        |> E.matchesStr
-                            [ ( "street", E.rgba 255 251 244 1 )
-                            , ( "street_limited", E.rgba 255 251 244 1 )
-                            , ( "service", E.rgba 255 251 244 1 )
-                            , ( "track", E.rgba 255 251 244 1 )
-                            , ( "link", E.rgba 255 251 244 1 )
-                            ]
-                            (E.rgba 255 255 255 1)
-                    )
-                , Layer.lineJoin E.lineJoinRound
-                , Layer.lineCap E.lineCapRound
-                ]
-            , Layer.line "admin-state-province"
-                "mapbox-streets"
-                [ Layer.minzoom 2
-                , Layer.filter
-                    (E.all
-                        [ E.getProperty (str "maritime") |> E.isEqual (float 0)
-                        , E.getProperty (str "admin_level") |> E.greaterThanOrEqual (float 3)
-                        ]
-                    )
-                , Layer.sourceLayer "admin"
-                , Layer.lineDasharray
-                    (E.zoom
-                        |> E.step
-                            (E.floats
-                                [ 2
-                                , 0
-                                ]
-                            )
-                            [ ( 7
-                              , E.floats
-                                    [ 2
-                                    , 2
-                                    , 6
-                                    , 2
-                                    ]
-                              )
-                            ]
-                    )
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 7, float 0.75 )
-                            , ( 12, float 1.5 )
-                            ]
-                    )
-                , Layer.lineOpacity
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 2, float 0 )
-                            , ( 3, float 1 )
-                            ]
-                    )
-                , Layer.lineColor (E.zoom |> E.step (E.rgba 204 204 204 1) [ ( 4, E.rgba 165 165 165 1 ) ])
-                , Layer.lineJoin E.lineJoinRound
-                , Layer.lineCap E.lineCapRound
-                ]
-            , Layer.line "admin-country"
-                "mapbox-streets"
-                [ Layer.minzoom 1
-                , Layer.filter
-                    (E.all
-                        [ E.getProperty (str "admin_level") |> E.lessThanOrEqual (float 2)
-                        , E.getProperty (str "disputed") |> E.isEqual (float 0)
-                        , E.getProperty (str "maritime") |> E.isEqual (float 0)
-                        ]
-                    )
-                , Layer.sourceLayer "admin"
-                , Layer.lineColor (E.rgba 127 127 127 1)
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 3, float 0.5 )
-                            , ( 10, float 2 )
-                            ]
-                    )
-                , Layer.lineJoin E.lineJoinRound
-                , Layer.lineCap E.lineCapRound
-                ]
-            , Layer.line "admin-country-disputed"
-                "mapbox-streets"
-                [ Layer.minzoom 1
-                , Layer.filter
-                    (E.all
-                        [ E.getProperty (str "admin_level") |> E.lessThanOrEqual (float 2)
-                        , E.getProperty (str "disputed") |> E.isEqual (float 1)
-                        , E.getProperty (str "maritime") |> E.isEqual (float 0)
-                        ]
-                    )
-                , Layer.sourceLayer "admin"
-                , Layer.lineColor (E.rgba 127 127 127 1)
-                , Layer.lineWidth
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 3, float 0.5 )
-                            , ( 10, float 2 )
-                            ]
-                    )
-                , Layer.lineDasharray (E.floats [ 1.5, 1.5 ])
-                , Layer.lineJoin E.lineJoinRound
-                ]
-            , Layer.symbol "road-label"
-                "mapbox-streets"
-                [ Layer.minzoom 12
-                , Layer.filter
-                    (E.any
-                        [ E.getProperty (str "class") |> E.isEqual (str "link")
-                        , E.getProperty (str "class") |> E.isEqual (str "motorway")
-                        , E.getProperty (str "class") |> E.isEqual (str "pedestrian")
-                        , E.getProperty (str "class") |> E.isEqual (str "primary")
-                        , E.getProperty (str "class") |> E.isEqual (str "secondary")
-                        , E.getProperty (str "class") |> E.isEqual (str "street")
-                        , E.getProperty (str "class") |> E.isEqual (str "street_limited")
-                        , E.getProperty (str "class") |> E.isEqual (str "tertiary")
-                        , E.getProperty (str "class") |> E.isEqual (str "trunk")
-                        ]
-                    )
-                , Layer.sourceLayer "road_label"
-                , Layer.textColor (E.rgba 0 0 0 1)
-                , Layer.textHaloColor (E.rgba 255 255 255 1)
-                , Layer.textHaloWidth (float 1)
-                , Layer.textSize
-                    (E.zoom
-                        |> E.interpolate E.Linear
-                            [ ( 9
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 10 )
-                                        , ( "trunk", float 10 )
-                                        , ( "primary", float 10 )
-                                        , ( "secondary", float 10 )
-                                        , ( "tertiary", float 10 )
-                                        ]
-                                        (float 9)
-                              )
-                            , ( 20
-                              , E.getProperty (str "class")
-                                    |> E.matchesStr
-                                        [ ( "motorway", float 15 )
-                                        , ( "trunk", float 15 )
-                                        , ( "primary", float 15 )
-                                        , ( "secondary", float 15 )
-