···3535 Return.singleton model
363637373838+pause : Manager
3939+pause model =
4040+ return model (Ports.pause ())
4141+4242+3843playPause : Manager
3944playPause model =
4045 if Maybe.isNothing model.nowPlaying then
···45504651 else
4752 communicate (Ports.play ()) model
5353+5454+5555+play : Manager
5656+play model =
5757+ if Maybe.isNothing model.nowPlaying then
5858+ Queue.shift model
5959+6060+ else
6161+ return model (Ports.play ())
486249635064seek : Float -> Manager
+6
src/Applications/UI/Ports.elm
···7070port requestNext : (() -> msg) -> Sub msg
717172727373+port requestPause : (() -> msg) -> Sub msg
7474+7575+7676+port requestPlay : (() -> msg) -> Sub msg
7777+7878+7379port requestPlayPause : (() -> msg) -> Sub msg
74807581