A music player that connects to your cloud/distributed storage.
Closes #243
+29
-12
+1
-1
src/Applications/UI/Tracks/Scene/Covers.elm
+1
-1
src/Applications/UI/Tracks/Scene/Covers.elm
+28
-11
src/Applications/UI/Tracks/State.elm
+28
-11
src/Applications/UI/Tracks/State.elm
···
10
10
import InfiniteList
11
11
import Json.Decode as Json
12
12
import Json.Encode
13
+
import Keyboard
13
14
import List.Ext as List
14
15
import List.Extra as List
15
16
import Maybe.Extra as Maybe
···
628
629
model.tracks.harvested
629
630
)
630
631
|> Maybe.map
631
-
(case model.scene of
632
-
Covers ->
633
-
UI.Tracks.Scene.Covers.scrollToNowPlaying
634
-
model.viewport.width
635
-
model.covers.harvested
632
+
(\( identifiers, track ) ->
633
+
case model.scene of
634
+
Covers ->
635
+
if List.member Keyboard.Shift model.pressedKeys then
636
+
return
637
+
{ model | selectedCover = Nothing }
638
+
(UI.Tracks.Scene.Covers.scrollToNowPlaying
639
+
model.viewport.width
640
+
model.covers.harvested
641
+
( identifiers, track )
642
+
)
636
643
637
-
List ->
638
-
UI.Tracks.Scene.List.scrollToNowPlaying model.tracks.harvested
644
+
else
645
+
model.covers.harvested
646
+
|> List.find (\cover -> List.member track.id cover.trackIds)
647
+
|> Maybe.unwrap model (\cover -> { model | selectedCover = Just cover })
648
+
|> Return.singleton
649
+
650
+
List ->
651
+
return
652
+
{ model | selectedCover = Nothing }
653
+
(UI.Tracks.Scene.List.scrollToNowPlaying
654
+
model.tracks.harvested
655
+
( identifiers, track )
656
+
)
639
657
)
640
658
|> Maybe.map
641
-
(\cmd ->
642
-
cmd
643
-
|> return { model | selectedCover = Nothing }
644
-
|> andThen (Common.changeUrlUsingPage UI.Page.Index)
659
+
(UI.Page.Index
660
+
|> Common.changeUrlUsingPage
661
+
|> andThen
645
662
)
646
663
|> Maybe.withDefault
647
664
(Return.singleton model)