forked from
tokono.ma/diffuse
A music player that connects to your cloud/distributed storage.
Audio subscriptions
+41
-32
+2
-12
src/Applications/UI.elm
+2
-12
src/Applications/UI.elm
···
1525
1525
Sub.batch
1526
1526
[ Ports.fromAlien alien
1527
1527
1528
-
-- Audio
1528
+
-- Queue
1529
1529
--------
1530
1530
, Ports.activeQueueItemEnded (QueueMsg << always Queue.Shift)
1531
-
, Ports.noteProgress (Audio << Audio.NoteProgress)
1532
-
, Ports.setAudioDuration (Audio << Audio.SetDuration)
1533
-
, Ports.setAudioHasStalled (Audio << Audio.SetHasStalled)
1534
-
, Ports.setAudioIsLoading (Audio << Audio.SetIsLoading)
1535
-
, Ports.setAudioIsPlaying (Audio << Audio.SetIsPlaying)
1536
-
, Ports.setAudioPosition (Audio << Audio.SetPosition)
1537
-
1538
-
-- Remote
1539
-
---------
1540
1531
, Ports.requestNext <| always (QueueMsg Queue.Shift)
1541
-
, Ports.requestPlayPause <| always (Audio Audio.PlayPause)
1542
1532
, Ports.requestPrevious <| always (QueueMsg Queue.Rewind)
1543
-
, Ports.requestStop <| always (Audio Audio.Stop)
1544
1533
1545
1534
-- Children
1546
1535
-----------
···
1555
1544
, Ports.setAverageBackgroundColor (Backdrop.BackgroundColor >> BackdropMsg)
1556
1545
1557
1546
--
1547
+
, Audio.subscriptions model
1558
1548
, Interface.subscriptions model
1559
1549
]
1560
1550
+19
src/Applications/UI/Audio/State.elm
+19
src/Applications/UI/Audio/State.elm
···
77
77
78
78
79
79
80
+
-- 📰
81
+
82
+
83
+
subscriptions : UI.Model -> Sub UI.Msg
84
+
subscriptions _ =
85
+
[ Ports.noteProgress NoteProgress
86
+
, Ports.requestPlayPause (always PlayPause)
87
+
, Ports.requestStop (always Stop)
88
+
, Ports.setAudioDuration SetDuration
89
+
, Ports.setAudioHasStalled SetHasStalled
90
+
, Ports.setAudioIsLoading SetIsLoading
91
+
, Ports.setAudioIsPlaying SetIsPlaying
92
+
, Ports.setAudioPosition SetPosition
93
+
]
94
+
|> Sub.batch
95
+
|> Sub.map UI.Audio
96
+
97
+
98
+
80
99
-- 🔱
81
100
82
101
+20
-20
src/Applications/UI/Interface/State.elm
+20
-20
src/Applications/UI/Interface/State.elm
···
88
88
89
89
subscriptions : UI.Model -> Sub UI.Msg
90
90
subscriptions _ =
91
-
Sub.map UI.Interface <|
92
-
Sub.batch
93
-
[ Ports.indicateTouchDevice (\_ -> SetIsTouchDevice True)
94
-
, Ports.preferredColorSchemaChanged PreferredColorSchemaChanged
95
-
, Ports.setIsOnline SetIsOnline
96
-
, Ports.showErrorNotification (Notifications.error >> ShowNotification)
97
-
, Ports.showStickyErrorNotification (Notifications.stickyError >> ShowNotification)
91
+
[ Ports.indicateTouchDevice (\_ -> SetIsTouchDevice True)
92
+
, Ports.preferredColorSchemaChanged PreferredColorSchemaChanged
93
+
, Ports.setIsOnline SetIsOnline
94
+
, Ports.showErrorNotification (Notifications.error >> ShowNotification)
95
+
, Ports.showStickyErrorNotification (Notifications.stickyError >> ShowNotification)
98
96
99
-
-- Resize
100
-
---------
101
-
, Browser.Events.onResize
102
-
(\w h ->
103
-
( w, h )
104
-
|> ResizedWindow
105
-
|> Debouncer.provideInput
106
-
|> Debounce
107
-
)
97
+
-- Resize
98
+
---------
99
+
, Browser.Events.onResize
100
+
(\w h ->
101
+
( w, h )
102
+
|> ResizedWindow
103
+
|> Debouncer.provideInput
104
+
|> Debounce
105
+
)
108
106
109
-
--
110
-
, Sub.map KeyboardMsg Keyboard.subscriptions
111
-
, Time.every (60 * 1000) SetCurrentTime
112
-
]
107
+
--
108
+
, Sub.map KeyboardMsg Keyboard.subscriptions
109
+
, Time.every (60 * 1000) SetCurrentTime
110
+
]
111
+
|> Sub.batch
112
+
|> Sub.map UI.Interface
113
113
114
114
115
115