A music player that connects to your cloud/distributed storage.
Improve accessibility of the sources form
+21
-6
+21
-6
src/Applications/UI/Sources/Form.elm
+21
-6
src/Applications/UI/Sources/Form.elm
···
6
6
import Dict.Ext as Dict
7
7
import Html.Styled as Html exposing (Html, strong, text)
8
8
import Html.Styled.Attributes exposing (for, name, placeholder, type_, value)
9
-
import Html.Styled.Events exposing (onInput)
9
+
import Html.Styled.Events exposing (onInput, onSubmit)
10
10
import List.Extra as List
11
11
import Material.Icons.Alert as Icons
12
12
import Material.Icons.Navigation as Icons
···
184
184
-----------------------------------------
185
185
-- Content
186
186
-----------------------------------------
187
-
, UI.Kit.centeredContent
187
+
, form
188
188
[ UI.Kit.h2 "Where is your music stored?"
189
189
190
190
-- Dropdown
···
219
219
-----------------------------------------
220
220
-- Content
221
221
-----------------------------------------
222
-
, (\a ->
223
-
UI.Kit.centeredContent
222
+
, (\h ->
223
+
form
224
224
[ chunk
225
225
[ T.w_100 ]
226
-
[ UI.Kit.canister a ]
226
+
[ UI.Kit.canister h ]
227
227
]
228
228
)
229
229
[ UI.Kit.h3 "Where exactly?"
···
278
278
-----------------------------------------
279
279
-- Content
280
280
-----------------------------------------
281
-
, UI.Kit.centeredContent
281
+
, form
282
282
[ UI.Kit.h2 "One last thing"
283
283
, UI.Kit.label [] "What are we going to call this source?"
284
284
···
343
343
, value (Dict.fetch property.k "" context.data)
344
344
]
345
345
]
346
+
347
+
348
+
349
+
-- ⚗️
350
+
351
+
352
+
form : List (Html Msg) -> Html Msg
353
+
form html =
354
+
slab
355
+
Html.form
356
+
[ onSubmit Bypass ]
357
+
[ T.flex
358
+
, T.flex_grow_1
359
+
]
360
+
[ UI.Kit.centeredContent html ]