A music player that connects to your cloud/distributed storage.
No queue contextmenu
+18
-44
-4
src/Applications/UI.elm
-4
src/Applications/UI.elm
···
55
55
import UI.Ports as Ports
56
56
import UI.Queue as Queue
57
57
import UI.Queue.Common
58
-
import UI.Queue.ContextMenu as Queue
59
58
import UI.Queue.Core as Queue
60
59
import UI.Reply as Reply exposing (Reply(..))
61
60
import UI.Settings as Settings
···
532
531
-----------------------------------------
533
532
-- Context Menu
534
533
-----------------------------------------
535
-
ShowFutureQueueItemMenu coordinates queueItem ->
536
-
return { model | contextMenu = Just (Queue.futureItemMenu queueItem coordinates) }
537
-
538
534
ShowMoreAuthenticationOptions coordinates ->
539
535
return { model | contextMenu = Just (Authentication.moreOptionsMenu coordinates) }
540
536
+16
-18
src/Applications/UI/Queue.elm
+16
-18
src/Applications/UI/Queue.elm
···
54
54
update : Msg -> Model -> Return Model Msg Reply
55
55
update msg model =
56
56
case msg of
57
-
ShowFutureItemMenu item mouseEvent ->
58
-
let
59
-
coordinates =
60
-
( mouseEvent.clientPos
61
-
, mouseEvent.offsetPos
62
-
)
63
-
|> (\( ( a, b ), ( c, d ) ) ->
64
-
{ x = a - c + 8
65
-
, y = b - d + 8
66
-
}
67
-
)
68
-
in
69
-
item
70
-
|> ShowFutureQueueItemMenu coordinates
71
-
|> returnReplyWithModel model
72
-
73
57
------------------------------------
74
58
-- Combos
75
59
------------------------------------
···
392
376
, text (track.tags.artist ++ " - " ++ track.tags.title)
393
377
]
394
378
, actions =
395
-
[ { color = Color (ifThenElse item.manualEntry UI.Kit.colorKit.base03 UI.Kit.colorKit.base07)
396
-
, icon = ifThenElse item.manualEntry Icons.remove_circle_outline Icons.not_interested
379
+
[ -- Remove
380
+
---------
381
+
{ color =
382
+
if item.manualEntry then
383
+
Color UI.Kit.colorKit.base03
384
+
385
+
else
386
+
Color UI.Kit.colorKit.base07
387
+
, icon =
388
+
if item.manualEntry then
389
+
Icons.remove_circle_outline
390
+
391
+
else
392
+
Icons.not_interested
393
+
394
+
--
397
395
, msg = Just (\_ -> RemoveItem { index = idx, item = item })
398
396
, title = ifThenElse item.manualEntry "Remove" "Ignore"
399
397
}
-18
src/Applications/UI/Queue/ContextMenu.elm
-18
src/Applications/UI/Queue/ContextMenu.elm
···
1
-
module UI.Queue.ContextMenu exposing (futureItemMenu)
2
-
3
-
import ContextMenu exposing (..)
4
-
import Coordinates exposing (Coordinates)
5
-
import Material.Icons.Action as Icons
6
-
import Queue
7
-
import Sources exposing (Source)
8
-
import UI.Core exposing (Msg(..))
9
-
10
-
11
-
12
-
-- 🔱
13
-
14
-
15
-
futureItemMenu : Queue.Item -> Coordinates -> ContextMenu Msg
16
-
futureItemMenu item =
17
-
ContextMenu
18
-
[]
+2
-3
src/Applications/UI/Queue/Core.elm
+2
-3
src/Applications/UI/Queue/Core.elm
···
27
27
28
28
29
29
type Msg
30
-
= ShowFutureItemMenu Item Mouse.Event
31
-
------------------------------------
30
+
= ------------------------------------
32
31
-- Combos
33
32
------------------------------------
34
-
| InjectFirstAndPlay IdentifiedTrack
33
+
InjectFirstAndPlay IdentifiedTrack
35
34
------------------------------------
36
35
-- Future
37
36
------------------------------------
-1
src/Applications/UI/Reply.elm
-1
src/Applications/UI/Reply.elm
···
20
20
-----------------------------------------
21
21
-- Context Menu
22
22
-----------------------------------------
23
-
| ShowFutureQueueItemMenu Coordinates Queue.Item
24
23
| ShowMoreAuthenticationOptions Coordinates
25
24
| ShowSourceContextMenu Coordinates Source
26
25
| ShowTracksContextMenu Coordinates (List IdentifiedTrack)