A music player that connects to your cloud/distributed storage.
Closes #283
+22
-12
+18
-7
src/Applications/UI/Interface/State.elm
+18
-7
src/Applications/UI/Interface/State.elm
···
6
6
import Return exposing (return)
7
7
import Return.Ext as Return
8
8
import Tracks
9
+
import UI.Common.State as Common
9
10
import UI.DnD as DnD
10
11
import UI.Page as Page
11
12
import UI.Playlists.State as Playlists
···
73
74
{ model | dnd = d }
74
75
in
75
76
if DnD.hasDropped d then
76
-
case model.page of
77
+
case m.page of
77
78
Page.Queue _ ->
78
79
let
79
80
( from, to ) =
···
83
84
84
85
newFuture =
85
86
Queue.moveItem
86
-
{ from = from, to = to, shuffle = model.shuffle }
87
-
model.playingNext
87
+
{ from = from, to = to, shuffle = m.shuffle }
88
+
m.playingNext
88
89
in
89
90
Queue.fill { m | playingNext = newFuture }
90
91
91
92
Page.Index ->
92
-
case model.scene of
93
+
let
94
+
trackCanBeMoved =
95
+
not m.favouritesOnly && Maybe.isNothing m.searchTerm
96
+
in
97
+
case m.scene of
93
98
Tracks.Covers ->
94
99
-- TODO
95
100
Return.singleton m
96
101
97
102
Tracks.List ->
98
-
Playlists.moveTrackInSelected
99
-
{ to = Maybe.withDefault 0 (DnD.modelTarget d) }
100
-
m
103
+
if trackCanBeMoved then
104
+
Playlists.moveTrackInSelected
105
+
{ to = Maybe.withDefault 0 (DnD.modelTarget d) }
106
+
m
107
+
108
+
else
109
+
"Can't move tracks in a playlist whilst using favourites-only mode, or while searching."
110
+
|> Notifications.casual
111
+
|> Common.showNotificationWithModel m
101
112
102
113
_ ->
103
114
Return.singleton m
+4
-5
src/Applications/UI/Tracks/Scene/List.elm
+4
-5
src/Applications/UI/Tracks/Scene/List.elm
···
492
492
listIdx =
493
493
identifiers.indexInList
494
494
495
+
cantDrag =
496
+
favouritesOnly || Maybe.isJust searchTerm
497
+
495
498
dragEnv =
496
499
{ model = dnd
497
500
, toMsg = DnD
···
522
525
523
526
--
524
527
, List.append
525
-
(if isSelected && not favouritesOnly && Maybe.isNothing searchTerm then
528
+
(if isSelected then
526
529
[ touchContextMenuEvent identifiedTrack (Just dragEnv)
527
530
, DnD.listenToStart dragEnv listIdx
528
-
]
529
-
530
-
else if isSelected then
531
-
[ touchContextMenuEvent identifiedTrack (Just dragEnv)
532
531
]
533
532
534
533
else