module Flickr.Tags where
import Flickr.Monad
import Flickr.Types
import Flickr.Types.Import
getClusterPhotos :: TagID -> ClusterID -> FM (PhotoContext, [Photo])
getClusterPhotos t c =
flickTranslate toPhotoList $
flickrCall "flickr.tags.getClusterPhotos"
[ ("tag", t)
, ("cluster_id", c)
]
getClusters :: Tag -> FM [Cluster]
getClusters t =
flickTranslate toClusterList $
flickrCall "flickr.tags.getClusters"
[ ("tag", t) ]
getHotList :: Maybe DayWeek -> Maybe Int -> FM [TagDetails]
getHotList period count =
flickTranslate toTagDetailsList $
flickrCall "flickr.tags.getHotList"
(mbArg "period" (fmap (\ x -> if x then "day" else "week") period) $
mbArg "count" (fmap show count) [])
getListPhoto :: PhotoID -> FM [TagDetails]
getListPhoto pid =
flickTranslate toTagDetailsList $
flickrCall "flickr.tags.getListPhoto"
[ ("photo_id", pid) ]
getListUser :: Maybe UserID -> FM [TagDetails]
getListUser mbid =
flickTranslate toTagDetailsList $
flickrCall "flickr.tags.getListUser"
(mbArg "user_id" mbid [])
getListUserPopular :: Maybe UserID -> Maybe Int -> FM [TagDetails]
getListUserPopular uid c =
flickTranslate toTagDetailsList $
flickrCall "flickr.tags.getListUserPopular"
(mbArg "user_id" uid $
mbArg "count" (fmap show c) [])
getListUserRaw :: Maybe Tag -> FM [TagDetails]
getListUserRaw t =
flickTranslate toTagDetailsList $
flickrCall "flickr.tags.getListUserRaw"
(mbArg "tag" t [])
getRelated :: Tag -> FM [TagDetails]
getRelated t =
flickTranslate toTagDetailsList $
flickrCall "flickr.tags.getRelated"
[ ("tag", t) ]