module FriendFeed.User where
import FriendFeed.Types
import FriendFeed.Types.Import ()
import FriendFeed.Monad
import Data.List ( intercalate )
getUserProfile :: UserName -> FFm User
getUserProfile uname = authCall $
ffeedTranslate $
ffeedCall ["user",uname,"profile"] []
getUserPicture :: UserName -> String -> FFm URLString
getUserPicture uname sz = withBase ffeed_base $
ffeedTranslate $
ffeedCall [uname,"picture"]
[("size",sz)]
getPublicEntries :: FFm [Entry]
getPublicEntries = authCall $
ffeedTranslateLs "entries" $
ffeedCall ["feed", "public"] []
getUserEntries :: UserName -> FFm [Entry]
getUserEntries u = authCall $
ffeedTranslateLs "entries" $
ffeedCall ["feed","user",u] []
getUserComments :: UserName -> FFm [Entry]
getUserComments u = authCall $
ffeedTranslateLs "entries" $
ffeedCall ["feed","user",u, "comments"] []
getUserLikes :: UserName -> FFm [Entry]
getUserLikes u = authCall $
ffeedTranslateLs "entries" $
ffeedCall ["feed","user",u, "likes"] []
getUserDiscussion :: UserName -> FFm [Entry]
getUserDiscussion u = authCall $
ffeedTranslateLs "entries" $
ffeedCall ["feed","user",u, "discussion"] []
getFriendEntries :: UserName -> FFm [Entry]
getFriendEntries u = authCall $
ffeedTranslateLs "entries" $
ffeedCall ["feed","user",u, "friends"] []
getUsersEntries :: [UserName] -> FFm [Entry]
getUsersEntries us =
ffeedTranslateLs "entries" $
ffeedCall ["feed","user"]
[("nickname", intercalate "," us)]
validateUserKey :: FFm Bool
validateUserKey = onSuccess $ authCall $
ffeedCall_ ["validate"] []