module Web.Last.Playlist where

import Control.Applicative
import Control.Arrow

import Web.Last.Types
import Web.Last.Request
import qualified Web.Last.Parsing as P
import Text.JSON.Combinators

-- addTrack needs auth

-- create needs auth

fetch :: String -> Last Playlist
fetch url = anonRequest "playlist.fetch" [("playlistURL",url)] [] pa
    where pa = objOf $ ll "playlist" P.playlist

-- Functions for building playlist urls

albumPlaylistUrl albumId = "lastfm://playlist/album/" ++ albumId
userPlaylistUrl playlistId = "lastfm://playlist/" ++ playlistId
tagPlaylistUrl tagName = "lastfm://playlist/tag/" ++ tagName ++ "/freetracks"