A music player that connects to your cloud/distributed storage.
Fix repeat button
+18
-6
+4
-4
src/Applications/UI/Ports.elm
+4
-4
src/Applications/UI/Ports.elm
···
1
-
port module UI.Ports exposing (activeQueueItemChanged, activeQueueItemEnded, adjustEqualizerSetting, fromAlien, giveBrain, nudgeBrain, pause, play, seek, setAudioDuration, setAudioHasStalled, setAudioIsLoading, setAudioIsPlaying, toBrain, toggleRepeat, unstall)
1
+
port module UI.Ports exposing (activeQueueItemChanged, activeQueueItemEnded, adjustEqualizerSetting, fromAlien, giveBrain, nudgeBrain, pause, play, seek, setAudioDuration, setAudioHasStalled, setAudioIsLoading, setAudioIsPlaying, setRepeat, toBrain, unstall)
2
2
3
3
import Alien
4
4
import Json.Encode as Json
···
24
24
port seek : Float -> Cmd msg
25
25
26
26
27
+
port setRepeat : Bool -> Cmd msg
28
+
29
+
27
30
port unstall : () -> Cmd msg
28
31
29
32
30
33
port toBrain : Alien.Event -> Cmd msg
31
-
32
-
33
-
port toggleRepeat : Bool -> Cmd msg
34
34
35
35
36
36
+4
-1
src/Applications/UI/Queue.elm
+4
-1
src/Applications/UI/Queue.elm
···
175
175
-- Settings
176
176
------------------------------------
177
177
ToggleRepeat ->
178
-
( { model | repeat = not model.repeat }, Cmd.none, Just [ SaveEnclosedUserData ] )
178
+
( { model | repeat = not model.repeat }
179
+
, Ports.setRepeat (not model.repeat)
180
+
, Just [ SaveEnclosedUserData ]
181
+
)
179
182
180
183
ToggleShuffle ->
181
184
{ model | shuffle = not model.shuffle }
+5
-1
src/Applications/UI/UserData.elm
+5
-1
src/Applications/UI/UserData.elm
···
19
19
import UI.Core
20
20
import UI.Equalizer as Equalizer
21
21
import UI.Notifications
22
+
import UI.Ports as Ports
22
23
import UI.Reply as UI
23
24
import UI.Sources as Sources
24
25
import UI.Tracks as Tracks
···
197
198
, queue = newQueue
198
199
, tracks = newTracks
199
200
}
200
-
, Cmd.map UI.Core.EqualizerMsg (Equalizer.adjustAllKnobs newEqualizer)
201
+
, Cmd.batch
202
+
[ Cmd.map UI.Core.EqualizerMsg (Equalizer.adjustAllKnobs newEqualizer)
203
+
, Ports.setRepeat data.repeat
204
+
]
201
205
, Nothing
202
206
)
203
207