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
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
|
module Dialog exposing
( Msg(..)
, Model
, Config
, init
, update
, view
)
import Platform.Cmd exposing (Cmd)
import Task exposing (Task)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
-- Model
type alias Model model modelMsg msg =
{ config : Maybe (Config model msg)
, mapMsg : Msg model modelMsg msg -> msg
, model : model
}
type alias Config model msg =
{ className : String
, title : String
, body : model -> Html msg
, confirm : String
, confirmMsg : model -> msg
, undo : String
}
init : model -> (Msg model modelMsg msg -> msg) -> Model model modelMsg msg
init model mapMsg =
{ config = Nothing
, mapMsg = mapMsg
, model = model
}
-- Update
type Msg model modelMsg msg =
NoOp
| Update modelMsg
| UpdateAndClose msg
| OpenWithUpdate (Config model msg) modelMsg
| Open (Config model msg)
| Close
update : (modelMsg -> model -> (model, Cmd modelMsg)) -> Msg model modelMsg msg -> model -> Model model modelMsg msg -> (Model model modelMsg msg, Cmd msg)
update updateModel msg baseModel model =
case msg of
NoOp ->
( model
, Cmd.none
)
Update modelMsg ->
case updateModel modelMsg baseModel of
(newModel, effects) ->
( { model | model = newModel }
, Cmd.map (model.mapMsg << Update) effects
)
UpdateAndClose msg ->
( { model | config = Nothing }
, Task.perform (always msg) (Task.succeed msg)
)
OpenWithUpdate config modelMsg ->
case updateModel modelMsg baseModel of
(newModel, effects) ->
( { model
| model = newModel
, config = Just config
}
, Cmd.map (model.mapMsg << Update) effects
)
Open config ->
( { model | config = Just config }
, Cmd.none
)
Close ->
( { model | config = Nothing }
, Cmd.none
)
-- View
view : Model model modelMsg msg -> Html msg
view { mapMsg, config, model } =
let isVisible =
case config of
Just _ -> True
Nothing -> False
in div
[ class "dialog" ]
[ curtain mapMsg isVisible
, case config of
Nothing ->
text ""
Just c ->
dialog model mapMsg c
]
curtain : (Msg model modelMsg msg -> msg) -> Bool -> Html msg
curtain mapMsg isVisible =
div
[ class "curtain"
, style
[ ("position", "fixed")
, ("top", "0")
, ("left", "0")
, ("width", "100%")
, ("height", "100%")
, ("background-color", "rgba(0, 0, 0, 0.5)")
, ("z-index", if isVisible then "1000" else "-1")
, ("opacity", if isVisible then "1" else "0")
, ("transition", "all 0.2s ease")
]
, onClick (mapMsg Close)
]
[]
dialog : model -> (Msg model modelMsg msg -> msg) -> Config model msg -> Html msg
dialog model mapMsg { className, title, body, confirm, confirmMsg, undo } =
div
[ class ("content " ++ className)
, style
[ ("position", "fixed")
, ("top", "25%")
, ("left", "50%")
, ("transform", "translate(-50%, -25%)")
, ("z-index", "1000")
, ("background-color", "white")
, ("padding", "20px")
, ("border-radius", "5px")
, ("box-shadow", "0px 0px 15px rgba(0, 0, 0, 0.5)")
]
]
[ h1 [] [ text title ]
, body model
, div
[ style
[ ("float", "right")
]
]
[ button
[ class "confirm"
, onClick (confirmMsg model)
, style
[ ("margin-right", "15px")
]
]
[ text confirm ]
, button
[ class "undo"
, onClick (mapMsg Close)
]
[ text undo ]
]
]
|
