+6

src/Core/UI.elm

reviewed

··· 436 436 AssistWithSelectingPlaylist -> 437 437 Playlists.assistWithSelectingPlaylist 438 438 439 439 + ConvertCollectionToPlaylist a -> 440 440 + Playlists.convertCollectionToPlaylist a 441 441 + 442 442 + ConvertPlaylistToCollection a -> 443 443 + Playlists.convertPlaylistToCollection a 444 444 + 439 445 CreateCollection -> 440 446 Playlists.createCollection 441 447

+20

src/Core/UI/Commands/Alfred.elm

reviewed

··· 215 215 |> UI.TracksMsg 216 216 |> Command 217 217 } 218 218 + 219 219 + -- 220 220 + , { icon = Just (Icons.waves 16) 221 221 + , title = 222 222 + if playlist.collection then 223 223 + "Convert to playlist" 224 224 + 225 225 + else 226 226 + "Convert to collection" 227 227 + , value = 228 228 + if playlist.collection then 229 229 + { name = playlist.name } 230 230 + |> UI.ConvertCollectionToPlaylist 231 231 + |> Command 232 232 + 233 233 + else 234 234 + { name = playlist.name } 235 235 + |> UI.ConvertPlaylistToCollection 236 236 + |> Command 237 237 + } 218 238 ] 219 239 220 240 Nothing ->

+22

src/Core/UI/Playlists/ContextMenu.elm

reviewed

··· 72 72 , removePlaylist menuMsg confirmation playlist 73 73 , renamePlaylist playlist 74 74 , storeInCache tracksFromPlaylist 75 75 + , convert playlist 75 76 ] 76 77 coordinates 77 78 ··· 88 89 { inFront = False, tracks = identifiedTracks } 89 90 |> Queue.AddTracks 90 91 |> QueueMsg 92 92 + 93 93 + -- 94 94 + , active = False 95 95 + } 96 96 + 97 97 + 98 98 + convert playlist = 99 99 + Item 100 100 + { icon = Icons.waves 101 101 + , label = 102 102 + if playlist.collection then 103 103 + "Convert to playlist" 104 104 + 105 105 + else 106 106 + "Convert to collection" 107 107 + , msg = 108 108 + if playlist.collection then 109 109 + ConvertCollectionToPlaylist { name = playlist.name } 110 110 + 111 111 + else 112 112 + ConvertPlaylistToCollection { name = playlist.name } 91 113 92 114 -- 93 115 , active = False

+68

src/Core/UI/Playlists/State.elm

reviewed

··· 179 179 |> (\a -> Alfred.assign a model) 180 180 181 181 182 182 + convertCollectionToPlaylist : { name : String } -> Manager 183 183 + convertCollectionToPlaylist { name } model = 184 184 + case 185 185 + List.findIndex 186 186 + (\p -> Maybe.isNothing p.autoGenerated && p.name == name) 187 187 + model.playlists 188 188 + of 189 189 + Just playlistIndex -> 190 190 + model.playlists 191 191 + |> List.updateAt 192 192 + playlistIndex 193 193 + (\p -> { p | collection = False }) 194 194 + |> (\newInventory -> 195 195 + { model 196 196 + | playlists = newInventory 197 197 + , selectedPlaylist = 198 198 + Maybe.map 199 199 + (\p -> 200 200 + if p.name == name then 201 201 + { p | collection = False } 202 202 + 203 203 + else 204 204 + p 205 205 + ) 206 206 + model.selectedPlaylist 207 207 + } 208 208 + ) 209 209 + |> Return.singleton 210 210 + |> andThen User.savePlaylists 211 211 + 212 212 + Nothing -> 213 213 + Return.singleton model 214 214 + 215 215 + 216 216 + convertPlaylistToCollection : { name : String } -> Manager 217 217 + convertPlaylistToCollection { name } model = 218 218 + case 219 219 + List.findIndex 220 220 + (\p -> Maybe.isNothing p.autoGenerated && p.name == name) 221 221 + model.playlists 222 222 + of 223 223 + Just playlistIndex -> 224 224 + model.playlists 225 225 + |> List.updateAt 226 226 + playlistIndex 227 227 + (\p -> { p | collection = True }) 228 228 + |> (\newInventory -> 229 229 + { model 230 230 + | playlists = newInventory 231 231 + , selectedPlaylist = 232 232 + Maybe.map 233 233 + (\p -> 234 234 + if p.name == name then 235 235 + { p | collection = True } 236 236 + 237 237 + else 238 238 + p 239 239 + ) 240 240 + model.selectedPlaylist 241 241 + } 242 242 + ) 243 243 + |> Return.singleton 244 244 + |> andThen User.savePlaylists 245 245 + 246 246 + Nothing -> 247 247 + Return.singleton model 248 248 + 249 249 + 182 250 create : { collection : Bool } -> Manager 183 251 create { collection } model = 184 252 case model.newPlaylistContext of

+2

src/Core/UI/Types.elm

reviewed

··· 260 260 | AssistWithAddingTracksToCollection (List IdentifiedTrack) 261 261 | AssistWithAddingTracksToPlaylist (List IdentifiedTrack) 262 262 | AssistWithSelectingPlaylist 263 263 + | ConvertCollectionToPlaylist { name : String } 264 264 + | ConvertPlaylistToCollection { name : String } 263 265 | CreateCollection 264 266 | CreatePlaylist 265 267 | DeactivatePlaylist