+9 -4

src/Applications/UI/Kit.elm

reviewed

··· 39 39 , base0D = rgb 6 182 239 40 40 , base0E = rgb 129 91 164 41 41 , base0F = rgb 233 107 168 42 42 - 43 43 - -- ~(˘▾˘~) 44 44 - , accent = rgb 231 150 128 45 42 } 46 43 47 44 ··· 51 48 , error = colorKit.base08 52 49 , warning = colorKit.base0A 53 50 51 51 + -- Gray 52 52 + , gray_100 = Color.hsl 0 0 0.988 53 53 + , gray_200 = Color.hsl 0 0 0.973 54 54 + , gray_300 = Color.hsl 0 0 0.933 55 55 + , gray_400 = Color.hsl 0 0 0.882 56 56 + , gray_500 = Color.hsl 0 0 0.863 57 57 + , gray_600 = Color.hsl 0 0 0.776 58 58 + 54 59 -- Other 55 60 , background = rgb 2 7 14 56 56 - , selection = colorKit.accent 61 61 + , selection = colorKit.base04 57 62 , text = colorKit.base01 58 63 } 59 64

+15 -6

src/Applications/UI/Tracks/Scene/List.elm

reviewed

··· 302 302 selectedTrackIndexes 303 303 dnd 304 304 deps.showAlbum 305 305 + deps.darkMode 305 306 derivedColors 306 307 307 308 _ -> ··· 517 518 ] 518 519 519 520 520 520 - playlistItemView : Bool -> Maybe Queue.Item -> Maybe String -> List Int -> DnD.Model Int -> Bool -> DerivedColors -> Int -> Int -> IdentifiedTrack -> Html Msg 521 521 - playlistItemView favouritesOnly nowPlaying searchTerm selectedTrackIndexes dnd showAlbum derivedColors _ idx identifiedTrack = 521 521 + playlistItemView : Bool -> Maybe Queue.Item -> Maybe String -> List Int -> DnD.Model Int -> Bool -> Bool -> DerivedColors -> Int -> Int -> IdentifiedTrack -> Html Msg 522 522 + playlistItemView favouritesOnly nowPlaying searchTerm selectedTrackIndexes dnd showAlbum darkMode derivedColors _ idx identifiedTrack = 522 523 let 523 524 ( identifiers, track ) = 524 525 identifiedTrack ··· 578 579 579 580 -- 580 581 , if DnD.isBeingDraggedOver listIdx dnd then 581 581 - [ dragIndicator ] 582 582 + [ dragIndicator darkMode ] 582 583 583 584 else 584 585 [] ··· 888 889 } 889 890 890 891 891 891 - dragIndicator : Html.Attribute msg 892 892 - dragIndicator = 893 893 - style "box-shadow" ("0 1px 0 0 " ++ Color.toCssString UI.Kit.colorKit.accent ++ " inset") 892 892 + dragIndicator : Bool -> Html.Attribute msg 893 893 + dragIndicator darkMode = 894 894 + let 895 895 + color = 896 896 + if darkMode then 897 897 + UI.Kit.colors.gray_300 898 898 + 899 899 + else 900 900 + UI.Kit.colorKit.base03 901 901 + in 902 902 + style "box-shadow" ("0 1px 0 0 " ++ Color.toCssString color ++ " inset")

+1

src/Applications/UI/Tracks/View.elm

reviewed

··· 164 164 , C.border_none 165 165 , C.flex_grow 166 166 , C.h_full 167 167 + , C.min_w_0 167 168 , C.ml_1 168 169 , C.mt_px 169 170 , C.outline_none

+1 -1

src/Applications/UI/View.elm

reviewed

··· 233 233 , C.flex_col 234 234 , C.items_center 235 235 , C.h_full 236 236 - , C.px_4 236 236 + , C.px_3 237 237 238 238 -- 239 239 , C.md__px_8

+1 -1

src/Static/Html/Application.html

reviewed

··· 11 11 <meta name="description" content="A music player that connects to your cloud/distributed storage, in the form of a static, serverless, web application." /> 12 12 13 13 <!-- Viewport --> 14 14 - <meta name="viewport" content="width=device-width, initial-scale=0.85" /> 14 14 + <meta name="viewport" content="width=device-width, initial-scale=0.9" /> 15 15 16 16 <!-- Favicons & Mobile --> 17 17 <link rel="apple-touch-icon" sizes="180x180" href="apple-touch-icon.png" />