A music player that connects to your cloud/distributed storage.
New default background and accent color
+24
-14
+1
-1
src/Applications/UI/Authentication.elm
+1
-1
src/Applications/UI/Authentication.elm
+3
-3
src/Applications/UI/Backdrop.elm
+3
-3
src/Applications/UI/Backdrop.elm
···
20
20
21
21
default : String
22
22
default =
23
-
"1.jpg"
23
+
"7.jpg"
24
24
25
25
26
26
options : List ( String, String )
27
27
options =
28
-
[ ( "1.jpg", "Option 1 (default)" )
28
+
[ ( "1.jpg", "Option 1" )
29
29
, ( "2.jpg", "Option 2" )
30
30
, ( "3.jpg", "Option 3" )
31
31
, ( "4.jpg", "Option 4" )
32
32
, ( "5.jpg", "Option 5" )
33
33
, ( "6.jpg", "Option 6" )
34
-
, ( "7.jpg", "Option 7" )
34
+
, ( "7.jpg", "Option 7 (default)" )
35
35
, ( "8.jpg", "Option 8" )
36
36
, ( "9.jpg", "Option 9" )
37
37
, ( "10.jpg", "Option 10" )
+20
-10
src/Applications/UI/Kit.elm
+20
-10
src/Applications/UI/Kit.elm
···
38
38
, base0F = rgb 233 107 168
39
39
40
40
-- ~(˘▾˘~)
41
-
, accent = rgb 248 164 167
41
+
, accent = rgb 231 150 128
42
42
}
43
43
44
44
···
176
176
177
177
178
178
type ButtonType
179
-
= IconOnly
179
+
= Filled
180
+
| IconOnly
180
181
| Normal
181
182
182
183
···
208
209
tag
209
210
(List.append
210
211
attributes
211
-
[ css (buttonStyles buttonColor)
212
+
[ css (buttonStyles buttonType buttonColor)
212
213
, case maybeMsg of
213
214
Just msg ->
214
215
onClick msg
···
237
238
[ T.dib, T.lh_solid, T.v_top ]
238
239
[ child ]
239
240
240
-
Normal ->
241
+
_ ->
241
242
chunk
242
243
[ T.lh_copy ]
243
244
[ child ]
···
511
512
-----------------------------------------
512
513
513
514
514
-
buttonStyles : Color.Color -> List Css.Style
515
-
buttonStyles buttonColor =
516
-
[ Css.borderColor (Color.toElmCssColor buttonColor)
517
-
, Css.color (Color.toElmCssColor buttonColor)
518
-
, buttonFocus
519
-
]
515
+
buttonStyles : ButtonType -> Color.Color -> List Css.Style
516
+
buttonStyles buttonType buttonColor =
517
+
case buttonType of
518
+
Filled ->
519
+
[ Css.backgroundColor (Color.toElmCssColor buttonColor)
520
+
, Css.borderColor Css.transparent
521
+
, Css.color (Css.rgb 255 255 255)
522
+
, buttonFocus
523
+
]
524
+
525
+
_ ->
526
+
[ Css.borderColor (Color.toElmCssColor buttonColor)
527
+
, Css.color (Color.toElmCssColor buttonColor)
528
+
, buttonFocus
529
+
]
520
530
521
531
522
532
checkboxStyles : List Css.Style