1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
# elm-mapbox
Great looking and performant maps in Elm using MapboxGl.
### How this works
This library uses a combination of ports and custom elements. To get going,
install the accompanying npm library:
npm install --save elm-mapbox
Then, when you are instantiating your Elm application, change it from:
```javascript
var app = Elm.MyApp.fullscreen();
```
to
```javascript
import elmMapbox from "elm-mapbox";
var app = elmMapbox(Elm.MyApp.fullscreen());
```
(where `MyApp` is your main module and `fullscreen` can be any way of instantiating an elm application).
Additionally, you may pass in your mapbox token as an option to this method:
```javascript
import elmMapbox from "elm-mapbox";
var app = elmMapbox(Elm.MyApp.fullscreen(), {token: 'pk45.rejkgnwejk'});
```
Next, optionally, setup a ports module:
```elm
port module MapCommands exposing (flyTo)
import Json.Decode exposing (Value)
import Mapbox.Cmd as Cmd
port elmMapboxOutgoing : Value -> Cmd msg
port elmMapboxIncoming : (Cmd.Response -> msg) -> Sub msg
mapId =
{- this is whatever the `id` attribute on your map is -}
"my-map"
flyTo =
Cmd.flyTo elmMapboxOutgoing mapId
```
This will allow you to easily use the commands to control parts of your map interactions imperatively.
### Example
Then you can go all out!
```elm
module Example01 exposing (main)
import Html exposing (div, text)
import Html.Attributes exposing (style)
import Json.Decode exposing (Value)
import Mapbox.Element exposing (..)
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(..))
import MapCmd
main =
Html.program
{ init = init
, view = view
, update = update
, subscriptions = \m -> Sub.none
}
init =
( { position = ( 0, 0 ) }, Cmd.none )
type Msg
= Hover EventData
| Click EventData
mapPair f ( a, b ) =
( f a, f b )
update msg model =
case msg of
Hover { lngLat } ->
( { model | position = lngLat }, Cmd.none )
Click { lngLat } ->
( model, MapCmd.fitBounds ( mapPair (\a -> a - 0.2) lngLat, mapPair (\a -> a + 0.2) lngLat ) )
style =
Style
{ transition = Style.defaultTransition
, light = Style.defaultLight
, sources =
[ Source.vectorFromUrl "composite" "mapbox://mapbox.mapbox-terrain-v2,mapbox.mapbox-streets-v7" ]
, misc =
[ Style.name "light"
, Style.defaultCenter 20.39789404164037 43.22523201923144
, Style.defaultZoomLevel 1.5967483759772743
, Style.sprite "mapbox://sprites/user/cjht22eqw0lfc2ro6z0qhlm29"
, Style.glyphs "mapbox://fonts/user/{fontstack}/{range}.pbf"
]
, layers =
[ Layer.background "background"
[ E.rgba 246 246 244 1 |> Layer.backgroundColor
]
, Layer.fill "landcover"
"composite"
[ Layer.sourceLayer "landcover"
, E.any
[ E.getProperty (str "class") |> E.isEqual (str "wood")
, E.getProperty (str "class") |> E.isEqual (str "scrub")
, E.getProperty (str "class") |> E.isEqual (str "grass")
, E.getProperty (str "class") |> E.isEqual (str "crop")
]
|> Layer.filter
, Layer.fillColor (E.rgba 227 227 227 1)
, Layer.fillOpacity (float 0.6)
]
]
}
view model =
div [ style [ ( "width", "100vw" ), ( "height", "100vh" ) ] ]
[ css
, map [ onMouseMove Hover, onClick Click, id "my-map"] style
, div [ style [ ( "position", "absolute" ), ( "bottom", "20px" ), ( "left", "20px" ) ] ] [ text (toString model.position) ]
]
```
|
