A music player that connects to your cloud/distributed storage.
5
fork

Configure Feed

Select the types of activity you want to include in your feed.

Closes #243

+29 -12
+1 -1
src/Applications/UI/Tracks/Scene/Covers.elm
··· 206 206 |> List.take idx 207 207 |> List.foldl (\a -> (+) <| dynamicRowHeight rowHeightArgs 0 a) 0 208 208 |> toFloat 209 - |> (+) 46 209 + |> (+) 11 210 210 |> Dom.setViewportOf containerId 0 211 211 |> Task.attempt (always Bypass) 212 212
+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)