module Mapbox.Element exposing ( map, css, MapboxAttr , token, id, maxZoom, minZoom, maxBounds, renderWorldCopies, featureState , EventData, TouchEvent, eventFeaturesFilter, eventFeaturesLayers , onMouseDown, onMouseUp, onMouseOver, onMouseMove, onClick, onDblClick, onMouseOut, onContextMenu, onZoom, onZoomStart, onZoomEnd, onRotate, onRotateStart, onRotateEnd, onTouchEnd, onTouchMove, onTouchCancel, on ) {-| This library wraps a Custom Element that actually renders a map. @docs map, css, MapboxAttr ### Attributes @docs token, id, maxZoom, minZoom, maxBounds, renderWorldCopies, featureState ### Events @docs EventData, TouchEvent, eventFeaturesFilter, eventFeaturesLayers @docs onMouseDown, onMouseUp, onMouseOver, onMouseMove, onClick, onDblClick, onMouseOut, onContextMenu, onZoom, onZoomStart, onZoomEnd, onRotate, onRotateStart, onRotateEnd, onTouchEnd, onTouchMove, onTouchCancel, on -} import Html exposing (Attribute, Html, node) import Html.Attributes exposing (attribute, property) import Html.Events import Json.Decode as Decode exposing (Decoder, Value) import Json.Encode as Encode import LngLat exposing (LngLat) import Mapbox.Expression exposing (DataExpression, Expression) import Mapbox.Helpers exposing (encodePair) import Mapbox.Style exposing (Style) {-| This is the type that all attributes have. -} type MapboxAttr msg = MapboxAttr (Attribute msg) type Position = TopLeft | BottomLeft | TopRight | BottomRight {-| A Map html element renders a map based on a Style. -} map : List (MapboxAttr msg) -> Style -> Html msg map attrs style = let props = (Mapbox.Style.encode style |> property "mapboxStyle" ) :: List.map (\(MapboxAttr attr) -> attr) attrs in node "elm-mapbox-map" props [] {-| This is literally: You can include the required styles yourself if it fits better with the way you deploy your assets, this is meant as a quick way to get started. -} css : Html msg css = node "link" [ attribute "href" "https://api.tiles.mapbox.com/mapbox-gl-js/v0.53.0/mapbox-gl.css", attribute "rel" "stylesheet" ] [] {-| The minimum zoom level of the map (0-24). -} minZoom : Float -> MapboxAttr msg minZoom = Encode.float >> property "minZoom" >> MapboxAttr {-| The maximum zoom level of the map (0-24). Default 22. -} maxZoom : Float -> MapboxAttr msg maxZoom = Encode.float >> property "maxZoom" >> MapboxAttr {-| Your [Mapbox API Token](https://www.mapbox.com/help/create-api-access-token/). -} token : String -> MapboxAttr msg token = Encode.string >> property "token" >> MapboxAttr {-| The element's Id. This should be unique. You will need this if you want to use the Mapbox.Cmd module. -} id : String -> MapboxAttr msg id = attribute "id" >> MapboxAttr {-| If set, the map will be constrained to the given bounds. The bounds are the `(south-west corner, north-east corner)`. -} maxBounds : ( LngLat, LngLat ) -> MapboxAttr msg maxBounds = encodePair LngLat.encodeAsPair >> property "maxBounds" >> MapboxAttr {-| If true, multiple copies of the world will be rendered, when zoomed out. -} renderWorldCopies : Bool -> MapboxAttr msg renderWorldCopies = Encode.bool >> property "renderWorldCopies" >> MapboxAttr {-| Sometimes you need to give certain geographic features some state. The most common is user interaction states like hover, selected, etc. The feature here is accepted as a `Value`. This is partially due to its flexibility, but in order for this to work, this must be an object with the following **top-level** propreties: - `source` - `sourceLayer` (only for vector sources) - `id` the feature's unique id (this must be a positive, non-zero integer). You can get these `Value`s from event listeners and pass them straight through. The state is a list of `(key, value)` pairs. You can use this state infromation through the `Mapbox.Expression.featureState` expression. Layer.fillOpacity <| E.ifElse (E.toBool (E.featureState (str "hover"))) (float 0.9) (float 0.1) Note that this attribute is quite awkward to use directly. I recommend defining some helpers that suite your situation. For example: hoveredFeature : Value -> MapboxAttr msg hoveredFeature feat = Element.featureState [ ( feat, [ ( "hover", Json.Encode.bool True ) ] ) ] or dataJoins : List (Int, Float) -> MapboxAttr msg dataJoins = List.map (\(id, population) -> (Json.Encode.object [( "source", Json.Encode.string "postcodes") , ("id", Json.Encode.int id) ] , [ ("population", Json.Encode.float population)] ) >> Element.featureState This will make your view code much neater, by not mixing in JSON encoding directly. -} featureState : List ( Value, List ( String, Value ) ) -> MapboxAttr msg featureState = Encode.list (\( feature, state ) -> Encode.list identity [ feature, Encode.object state ]) >> property "featureState" >> MapboxAttr -- Events {-| By default the `renderedFeatures` property in events will return a lot of data. If you don't need it, you can provide a filter to filter that data. This will make things more performant. -} eventFeaturesFilter : Expression DataExpression Bool -> MapboxAttr msg eventFeaturesFilter = Mapbox.Expression.encode >> property "eventFeaturesFilter" >> MapboxAttr {-| By default the `renderedFeatures` property in events will return a lot of data. Here you can specify which layers you want to search for intersections. If you don't care about intersecting data at all, you can optimize performance by passing an empty list to this attribute. -} eventFeaturesLayers : List String -> MapboxAttr msg eventFeaturesLayers = Encode.list Encode.string >> property "eventFeaturesLayers" >> MapboxAttr {-| This allows you to use other events not provided by this libary, or decode more or different data. See for all supported events. -} on : String -> Decoder msg -> MapboxAttr msg on type_ decoder = Html.Events.on type_ decoder |> MapboxAttr {-| `point` is the coordinates in pixels in screen space. `lngLat` is the coordinates as a longitude, latitude in geographic space. `renderedFeatures` is a geojson that intersect the `lngLat`: The properties value of each returned feature object contains the properties of its source feature. For GeoJSON sources, only string and numeric property values are supported (i.e. null, Array, and Object values are not supported). Each feature includes a top-level layer property whose value is an object representing the style layer to which the feature belongs. Layout and paint properties in this object contain values which are fully evaluated for the given zoom level and feature. Features from layers whose visibility property is "none", or from layers whose zoom range excludes the current zoom level are not included. Symbol features that have been hidden due to text or icon collision are not included. Features from all other layers are included, including features that may have no visible contribution to the rendered result; for example, because the layer's opacity or color alpha component is set to 0. The topmost rendered feature appears first in the returned array, and subsequent features are sorted by descending z-order. Features that are rendered multiple times (due to wrapping across the antimeridian at low zoom levels) are returned only once (though subject to the following caveat). Because features come from tiled vector data or GeoJSON data that is converted to tiles internally, feature geometries may be split or duplicated across tile boundaries and, as a result, features may appear multiple times in query results. For example, suppose there is a highway running through the bounding rectangle of a query. The results of the query will be those parts of the highway that lie within the map tiles covering the bounding rectangle, even if the highway extends into other tiles, and the portion of the highway within each map tile will be returned as a separate feature. Similarly, a point feature near a tile boundary may appear in multiple tiles due to tile buffering. -} type alias EventData = { point : ( Int, Int ) , lngLat : LngLat , renderedFeatures : List Value } {-| `touches` will list stuff for every finger involved in a gesture. `center` refers to the point in the geometric center of `touches`. -} type alias TouchEvent = { touches : List EventData , center : EventData } decodePoint = Decode.map2 (\a b -> ( round a, round b )) (Decode.field "x" Decode.float) (Decode.field "y" Decode.float) decodeEventData = Decode.map3 EventData (Decode.field "point" decodePoint) (Decode.field "lngLat" LngLat.decodeFromObject) (Decode.field "features" (Decode.list Decode.value)) decodeTouchEvent = Decode.map2 TouchEvent (Decode.map3 (List.map3 EventData) (Decode.field "points" (Decode.list decodePoint)) (Decode.field "lngLats" (Decode.list LngLat.decodeFromObject)) (Decode.field "perPointFeatures" (Decode.list (Decode.list Decode.value))) ) decodeEventData {-| Fired when a pointing device (usually a mouse) is pressed within the map. -} onMouseDown : (EventData -> msg) -> MapboxAttr msg onMouseDown tagger = Html.Events.on "mousedown" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when a pointing device (usually a mouse) is released within the map. -} onMouseUp : (EventData -> msg) -> MapboxAttr msg onMouseUp tagger = Html.Events.on "mouseup" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when a pointing device (usually a mouse) is moved within the map. -} onMouseOver : (EventData -> msg) -> MapboxAttr msg onMouseOver tagger = Html.Events.on "mouseover" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when a pointing device (usually a mouse) is moved within the map. -} onMouseMove : (EventData -> msg) -> MapboxAttr msg onMouseMove tagger = Html.Events.on "mousemove" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when a pointing device (usually a mouse) is pressed and released at the same point on the map. -} onClick : (EventData -> msg) -> MapboxAttr msg onClick tagger = Html.Events.on "click" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when a pointing device (usually a mouse) is clicked twice at the same point on the map. -} onDblClick : (EventData -> msg) -> MapboxAttr msg onDblClick tagger = Html.Events.on "dblclick" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when a point device (usually a mouse) leaves the map's canvas. -} onMouseOut : (EventData -> msg) -> MapboxAttr msg onMouseOut tagger = Html.Events.on "mouseout" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when the right button of the mouse is clicked or the context menu key is pressed within the map. -} onContextMenu : (EventData -> msg) -> MapboxAttr msg onContextMenu tagger = Html.Events.on "contextmenu" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired repeatedly during an animated transition from one zoom level to another. -} onZoom : (EventData -> msg) -> MapboxAttr msg onZoom tagger = Html.Events.on "zoom" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired just before the map begins a transition from one zoom level to another. -} onZoomStart : (EventData -> msg) -> MapboxAttr msg onZoomStart tagger = Html.Events.on "zoomstart" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired just after the map completes a transition from one zoom level to another. -} onZoomEnd : (EventData -> msg) -> MapboxAttr msg onZoomEnd tagger = Html.Events.on "zoomend" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired repeatedly during a "drag to rotate" interaction. -} onRotate : (EventData -> msg) -> MapboxAttr msg onRotate tagger = Html.Events.on "rotate" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when a "drag to rotate" interaction starts. -} onRotateStart : (EventData -> msg) -> MapboxAttr msg onRotateStart tagger = Html.Events.on "rotatestart" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when a "drag to rotate" interaction ends. -} onRotateEnd : (EventData -> msg) -> MapboxAttr msg onRotateEnd tagger = Html.Events.on "rotateend" (Decode.map tagger decodeEventData) |> MapboxAttr {-| Fired when a touchend event occurs within the map. -} onTouchEnd : (TouchEvent -> msg) -> MapboxAttr msg onTouchEnd tagger = Html.Events.on "touchend" (Decode.map tagger decodeTouchEvent) |> MapboxAttr {-| Fired when a touchmove event occurs within the map. -} onTouchMove : (TouchEvent -> msg) -> MapboxAttr msg onTouchMove tagger = Html.Events.on "touchmove" (Decode.map tagger decodeTouchEvent) |> MapboxAttr {-| Fired when a touchcancel event occurs within the map. -} onTouchCancel : (TouchEvent -> msg) -> MapboxAttr msg onTouchCancel tagger = Html.Events.on "touchcancel" (Decode.map tagger decodeTouchEvent) |> MapboxAttr -- encodePosition pos = -- case pos of -- TopLeft -> -- Encode.string "top-left" -- -- BottomLeft -> -- Encode.string "bottom-left" -- -- TopRight -> -- Encode.string "top-right" -- -- BottomRight -> -- Encode.string "bottom-right" --- Controlled mode {-| -} type alias Viewport = { center : LngLat , zoom : Float , bearing : Float , pitch : Float } {-| By default the map is "uncontrolled". By this we mean that it has its own internal state (namely the center, zoom level, pitch and bearing). This is nice if you don't care about these, but it does break some of the niceness of TEA. It also means some advanced interaction techniques are impossible to implement. For this reason we allow controlled mode where no event handlers are attached, but you need to feed the element its state. So it's up to you to implement all the user interactions. In the future, this library may help with that, but in the present this is not available. Not done, so let's not release this. -} controlledMap : Viewport -> List (MapboxAttr msg) -> Style -> Html msg controlledMap { center, zoom, bearing, pitch } attrs style = let props = property "mapboxStyle" (Mapbox.Style.encode style) :: property "interactive" (Encode.bool False) :: property "center" (LngLat.encodeAsPair center) :: property "zoom" (Encode.float zoom) :: property "bearing" (Encode.float bearing) :: property "pitch" (Encode.float pitch) :: List.map (\(MapboxAttr attr) -> attr) attrs in node "elm-mapbox-map" props []