A music player that connects to your cloud/distributed storage.
Switch to my personal material-icons library
+41
-33
+2
-2
elm.json
+2
-2
elm.json
···
12
12
"NoRedInk/elm-json-decode-pipeline": "1.0.0",
13
13
"Skinney/murmur3": "2.0.8",
14
14
"avh4/elm-color": "1.0.0",
15
-
"danmarcab/material-icons": "1.0.0",
16
15
"elm/browser": "1.0.1",
17
16
"elm/bytes": "1.0.8",
18
17
"elm/core": "1.0.2",
···
30
29
"elm-community/maybe-extra": "5.0.0",
31
30
"elm-explorations/markdown": "1.0.0",
32
31
"icidasset/elm-binary": "2.1.0",
32
+
"icidasset/elm-material-icons": "1.0.0",
33
33
"icidasset/elm-sha": "2.0.2",
34
34
"justgage/tachyons-elm": "4.1.3",
35
35
"mpizenberg/elm-pointer-events": "4.0.0",
···
51
51
"direct": {},
52
52
"indirect": {}
53
53
}
54
-
}
54
+
}
+4
-3
src/Applications/UI/Authentication.elm
+4
-3
src/Applications/UI/Authentication.elm
···
16
16
import Html.Styled.Attributes as Attributes exposing (attribute, css, href, placeholder, src, style, title, value, width)
17
17
import Html.Styled.Events exposing (onClick, onSubmit)
18
18
import Json.Encode
19
+
import Material.Icons exposing (Coloring(..))
19
20
import Material.Icons.Av as Icons
20
21
import Material.Icons.Navigation as Icons
21
22
import Return3 as Return exposing (..)
···
473
474
[ T.dib, T.ph1, T.pointer, C.lh_0 ]
474
475
[ chunk
475
476
[ C.pointer_events_none ]
476
-
[ fromUnstyled (Icons.more_horiz UI.Kit.colors.text 22) ]
477
+
[ fromUnstyled (Icons.more_horiz 22 Inherit) ]
477
478
]
478
479
]
479
480
]
···
481
482
482
483
choiceButton :
483
484
{ action : msg
484
-
, icon : Color -> Int -> Svg msg
485
+
, icon : Int -> Coloring -> Svg msg
485
486
, isLast : Bool
486
487
, label : String
487
488
, outOfOrder : Bool
···
515
516
span
516
517
[]
517
518
[ T.inline_flex, T.mr3 ]
518
-
[ fromUnstyled (icon UI.Kit.colors.text 16) ]
519
+
[ fromUnstyled (icon 16 Inherit) ]
519
520
, text label
520
521
]
521
522
]
+3
-2
src/Applications/UI/Console.elm
+3
-2
src/Applications/UI/Console.elm
···
11
11
import Html.Styled.Attributes exposing (class, css, style)
12
12
import Html.Styled.Events exposing (on, onClick)
13
13
import Json.Decode as Decode
14
+
import Material.Icons exposing (Coloring(..))
14
15
import Material.Icons.Av as Icons
15
16
import Maybe.Extra as Maybe
16
17
import Queue
···
165
166
[ text "PLAY" ]
166
167
167
168
168
-
icon : (Color.Color -> Int -> UnstyledHtml.Html msg) -> Int -> Html msg
169
+
icon : (Int -> Coloring -> UnstyledHtml.Html msg) -> Int -> Html msg
169
170
icon iconFunction int =
170
-
Html.fromUnstyled (iconFunction iconColor int)
171
+
Html.fromUnstyled (iconFunction int <| Color iconColor)
171
172
172
173
173
174
+3
-2
src/Applications/UI/ContextMenu.elm
+3
-2
src/Applications/UI/ContextMenu.elm
···
11
11
import Html.Styled.Attributes exposing (css)
12
12
import Html.Styled.Events exposing (onClick)
13
13
import Json.Decode
14
+
import Material.Icons exposing (Coloring(..))
14
15
import Svg exposing (Svg)
15
16
import Tachyons.Classes as T
16
17
import UI.Core
···
58
59
nothing
59
60
60
61
61
-
itemView : Int -> Int -> ( Color -> Int -> Svg msg, String, msg ) -> Html msg
62
+
itemView : Int -> Int -> ( Int -> Coloring -> Svg msg, String, msg ) -> Html msg
62
63
itemView lastIndex index ( icon, label, msg ) =
63
64
let
64
65
isLast =
···
74
75
--
75
76
, ifThenElse isLast "" T.bb
76
77
]
77
-
[ inline [ T.dib, C.lh_0, T.v_mid ] [ fromUnstyled (icon UI.Kit.colors.text 14) ]
78
+
[ inline [ T.dib, C.lh_0, T.v_mid ] [ fromUnstyled (icon 14 Inherit) ]
78
79
, inline [ T.dib, T.ml2, T.v_mid ] [ text label ]
79
80
]
80
81
+6
-5
src/Applications/UI/Kit.elm
+6
-5
src/Applications/UI/Kit.elm
···
8
8
import Html.Styled as Html exposing (Html)
9
9
import Html.Styled.Attributes exposing (css, href, style)
10
10
import Html.Styled.Events exposing (onClick, onInput)
11
+
import Material.Icons exposing (Coloring(..))
11
12
import Material.Icons.Hardware as Icons
12
13
import Material.Icons.Toggle as Icons
13
14
import Svg
···
278
279
[ css checkboxStyles, onClick opts.toggleMsg ]
279
280
[ T.dib, T.pointer, T.relative ]
280
281
[ if opts.checked then
281
-
Html.fromUnstyled (Icons.check_box colors.text 22)
282
+
Html.fromUnstyled (Icons.check_box 22 Inherit)
282
283
283
284
else
284
-
Html.fromUnstyled (Icons.check_box_outline_blank colors.text 22)
285
+
Html.fromUnstyled (Icons.check_box_outline_blank 22 Inherit)
285
286
]
286
287
287
288
···
334
335
[ Html.text text ]
335
336
336
337
337
-
inlineIcon : (Color.Color -> Int -> Svg.Svg msg) -> Html msg
338
+
inlineIcon : (Int -> Coloring -> Svg.Svg msg) -> Html msg
338
339
inlineIcon icon =
339
340
slab
340
341
Html.span
341
342
[ css inlineIconStyles ]
342
343
[ T.mr1 ]
343
-
[ Html.fromUnstyled (icon colors.text 14) ]
344
+
[ Html.fromUnstyled (icon 14 Inherit) ]
344
345
345
346
346
347
intro : Html msg -> Html msg
···
425
426
, brick
426
427
[ css selectStyles.arrow ]
427
428
[ T.absolute, T.right_0 ]
428
-
[ Html.fromUnstyled (Icons.keyboard_arrow_down colorKit.base05 20) ]
429
+
[ Html.fromUnstyled <| Icons.keyboard_arrow_down 20 (Color colorKit.base05) ]
429
430
]
430
431
431
432
+3
-2
src/Applications/UI/List.elm
+3
-2
src/Applications/UI/List.elm
···
8
8
import Html.Events.Extra.Mouse as Mouse exposing (onClick)
9
9
import Html.Styled as Html exposing (Html, fromUnstyled)
10
10
import Html.Styled.Attributes as Attributes exposing (css, style, title)
11
+
import Material.Icons exposing (Coloring(..))
11
12
import Tachyons.Classes as T
12
13
import UI.Kit
13
14
import VirtualDom
···
18
19
19
20
20
21
type alias Action msg =
21
-
{ icon : Color -> Int -> VirtualDom.Node msg
22
+
{ icon : Int -> Coloring -> VirtualDom.Node msg
22
23
, msg : Mouse.Event -> msg
23
24
, title : String
24
25
}
···
70
71
, T.ml2
71
72
, T.pointer
72
73
]
73
-
[ fromUnstyled (action.icon UI.Kit.colors.text 16) ]
74
+
[ fromUnstyled (action.icon 16 Inherit) ]
74
75
)
75
76
actions
76
77
)
+2
-1
src/Applications/UI/Queue.elm
+2
-1
src/Applications/UI/Queue.elm
···
4
4
import Conditional exposing (..)
5
5
import Html.Styled as Html exposing (Html, fromUnstyled, text)
6
6
import List.Extra as List
7
+
import Material.Icons exposing (Coloring(..))
7
8
import Material.Icons.Action as Icons
8
9
import Material.Icons.Image as Icons
9
10
import Material.Icons.Navigation as Icons
···
405
406
UI.Kit.centeredContent
406
407
[ chunk
407
408
[ T.o_30 ]
408
-
[ fromUnstyled (Icons.music_note UI.Kit.colors.text 64) ]
409
+
[ fromUnstyled (Icons.music_note 64 Inherit) ]
409
410
, chunk
410
411
[ T.lh_copy, T.mt2, T.o_40, T.tc ]
411
412
[ text "Nothing here yet,"
+3
-2
src/Applications/UI/Sources/Form.elm
+3
-2
src/Applications/UI/Sources/Form.elm
···
9
9
import Html.Styled.Attributes exposing (for, name, placeholder, type_, value)
10
10
import Html.Styled.Events exposing (onInput, onSubmit)
11
11
import List.Extra as List
12
+
import Material.Icons exposing (Coloring(..))
12
13
import Material.Icons.Alert as Icons
13
14
import Material.Icons.Navigation as Icons
14
15
import Return3 as Return exposing (..)
···
228
229
, UI.Kit.button
229
230
IconOnly
230
231
TakeStep
231
-
(Html.fromUnstyled <| Icons.arrow_forward UI.Kit.colorKit.accent 17)
232
+
(Html.fromUnstyled <| Icons.arrow_forward 17 Inherit)
232
233
]
233
234
]
234
235
···
280
281
[ UI.Kit.button
281
282
IconOnly
282
283
TakeStep
283
-
(Html.fromUnstyled <| Icons.arrow_forward UI.Kit.colorKit.accent 17)
284
+
(Html.fromUnstyled <| Icons.arrow_forward 17 Inherit)
284
285
]
285
286
]
286
287
]
+8
-7
src/Applications/UI/Tracks.elm
+8
-7
src/Applications/UI/Tracks.elm
···
16
16
import Json.Decode as Json
17
17
import Json.Encode
18
18
import List.Extra as List
19
+
import Material.Icons exposing (Coloring(..))
19
20
import Material.Icons.Action as Icons
20
21
import Material.Icons.Av as Icons
21
22
import Material.Icons.Content as Icons
···
433
434
, T.top_0
434
435
, T.z_0
435
436
]
436
-
[ Html.fromUnstyled (Icons.search searchIconColor 16) ]
437
+
[ Html.fromUnstyled (Icons.search 16 searchIconColoring) ]
437
438
438
439
-- Actions
439
440
----------
···
454
455
, title "Clear search"
455
456
]
456
457
[ T.pointer ]
457
-
[ Html.fromUnstyled (Icons.clear searchIconColor 16) ]
458
+
[ Html.fromUnstyled (Icons.clear 16 searchIconColoring) ]
458
459
459
460
Nothing ->
460
461
nothing
···
468
469
[ T.pointer ]
469
470
[ case favouritesOnly of
470
471
True ->
471
-
Html.fromUnstyled (Icons.favorite UI.Kit.colorKit.base08 16)
472
+
Html.fromUnstyled (Icons.favorite 16 <| Color UI.Kit.colorKit.base08)
472
473
473
474
False ->
474
-
Html.fromUnstyled (Icons.favorite_border searchIconColor 16)
475
+
Html.fromUnstyled (Icons.favorite_border 16 searchIconColoring)
475
476
]
476
477
477
478
-- 3
···
582
583
[ Css.marginRight (Css.px 6) ]
583
584
584
585
585
-
searchIconColor : Color.Color
586
-
searchIconColor =
587
-
Color.rgb255 205 205 205
586
+
searchIconColoring : Coloring
587
+
searchIconColoring =
588
+
Color (Color.rgb255 205 205 205)
588
589
589
590
590
591
searchIconStyles : List Css.Style
+2
-4
src/Applications/UI/Tracks/Scene/List.elm
+2
-4
src/Applications/UI/Tracks/Scene/List.elm
···
14
14
import Html.Styled.Events exposing (onClick, onDoubleClick)
15
15
import Html.Styled.Lazy
16
16
import InfiniteList
17
+
import Material.Icons exposing (Coloring(..))
17
18
import Material.Icons.Navigation as Icons
18
19
import Tachyons.Classes as T
19
20
import Task
···
81
82
header : SortBy -> SortDirection -> Html Msg
82
83
header sortBy sortDirection =
83
84
let
84
-
color =
85
-
Color.rgb255 207 207 207
86
-
87
85
sortIcon =
88
86
(if sortDirection == Desc then
89
87
Icons.expand_less
···
91
89
else
92
90
Icons.expand_more
93
91
)
94
-
color
95
92
15
93
+
Inherit
96
94
97
95
sortIconHtml =
98
96
Html.fromUnstyled sortIcon
+2
-1
src/Library/ContextMenu.elm
+2
-1
src/Library/ContextMenu.elm
···
2
2
3
3
import Color exposing (Color)
4
4
import Coordinates exposing (Coordinates)
5
+
import Material.Icons exposing (Coloring(..))
5
6
import Svg exposing (Svg)
6
7
7
8
···
14
15
15
16
16
17
type alias ContextMenuItems msg =
17
-
List ( Color -> Int -> Svg msg, String, msg )
18
+
List ( Int -> Coloring -> Svg msg, String, msg )