From 9bd079e10dfa68df2f2fec5adb35df90edb3525f Mon Sep 17 00:00:00 2001
From: Jakub Hampl <kopomir@gmail.com>
Date: Fri, 15 Feb 2019 20:50:23 +0000
Subject: Mapbox Upgrade + Simplified Enums (#9)

---
 src/Mapbox/Source.elm | 41 +++++++++++++++++++++++++++++++++++++++--
 1 file changed, 39 insertions(+), 2 deletions(-)

(limited to 'src/Mapbox/Source.elm')

diff --git a/src/Mapbox/Source.elm b/src/Mapbox/Source.elm
index 38bb319..68d1862 100644
--- a/src/Mapbox/Source.elm
+++ b/src/Mapbox/Source.elm
@@ -1,4 +1,14 @@
-module Mapbox.Source exposing (Coords, GeoJSONSource, Id, RasterSource, Scheme(..), Source, SourceOption, Url, VectorSource, animatedCanvas, attribution, bounds, buffer, cluster, clusterRadius, encode, generateIds, geoJSONFromUrl, geoJSONFromValue, getId, image, lineMetrics, maxzoom, minzoom, raster, rasterDEMMapbox, rasterDEMTerrarium, rasterFromUrl, scheme, staticCanvas, tileSize, tolerance, vector, vectorFromUrl, video)
+module Mapbox.Source exposing
+    ( Source, SourceOption
+    , Id, Url
+    , vector, vectorFromUrl, VectorSource
+    , raster, tileSize, rasterFromUrl, RasterSource
+    , rasterDEMMapbox, rasterDEMTerrarium
+    , geoJSONFromUrl, geoJSONFromValue, GeoJSONSource, buffer, tolerance, cluster, clusterRadius, clusterProperties, lineMetrics, generateIds
+    , Coords, image, video, staticCanvas, animatedCanvas
+    , bounds, minzoom, maxzoom, attribution, scheme, Scheme(..)
+    , encode, getId
+    )
 
 {-|
 
@@ -27,7 +37,7 @@ module Mapbox.Source exposing (Coords, GeoJSONSource, Id, RasterSource, Scheme(.
 
 ### GeoJSON
 
-@docs geoJSONFromUrl, geoJSONFromValue, GeoJSONSource, buffer, tolerance, cluster, clusterRadius, lineMetrics, generateIds
+@docs geoJSONFromUrl, geoJSONFromValue, GeoJSONSource, buffer, tolerance, cluster, clusterRadius, clusterProperties, lineMetrics, generateIds
 
 
 ### Image, Video & Canvas
@@ -48,8 +58,10 @@ Tiled sources can also take the following attributes:
 
 -}
 
+import Internal
 import Json.Encode exposing (Value)
 import LngLat exposing (LngLat)
+import Mapbox.Expression as Expression exposing (DataExpression, Expression)
 
 
 {-| Every layer is identified by an id.
@@ -194,6 +206,31 @@ clusterMaxZoom =
     Json.Encode.float >> SourceOption "clusterMaxZoom"
 
 
+{-| When clustering, you may want to aggregate values from the points included in the cluster. This function allows you to associate a name that will be the property name with a fold that computes the aggregation. For example:
+
+    clusterProperties
+        [ ( "sum", E.plus, E.getProperty (str "scalerank") )
+        , ( "max", \point aggregate -> E.max aggregate point, E.getProperty (str "scalerank") )
+        ]
+
+Would produce clusters with two additional properties: `sum` and `max`, which you could then further use in data driven styling.
+
+-}
+clusterProperties : List ( String, Expression DataExpression a -> Expression DataExpression b -> Expression DataExpression b, Expression DataExpression a ) -> SourceOption GeoJSONSource
+clusterProperties =
+    List.map
+        (\( name, fold, map ) ->
+            ( name
+            , Json.Encode.list identity
+                [ Expression.encode <| fold (Expression.getProperty (Expression.str name)) (Internal.Expression (Json.Encode.list Json.Encode.string [ "accumulated" ]))
+                , Expression.encode <| map
+                ]
+            )
+        )
+        >> Json.Encode.object
+        >> SourceOption "clusterProperties"
+
+
 {-| Whether to calculate line distance metrics. This is required for line layers that specify `lineGradient` values.
 -}
 lineMetrics : Bool -> SourceOption GeoJSONSource
-- 
cgit v1.2.3