module HBooru.Parsers.Gelbooru where
import Data.List
import qualified HBooru.Parsers.GenericBooru as G
import HBooru.Parsers.GenericBooru.TH (makePost)
import HBooru.Types
import Language.Haskell.TH (mkName)
import Text.XML.HXT.Core hiding (mkName)
$(makePost (mkName "GelbooruPost"))
data Gelbooru = Gelbooru
instance Postable Gelbooru XML where
postUrl _ _ ts =
let tags = intercalate "+" ts
in "http://gelbooru.com/index.php?page=dapi&s=post&q=index&limit=100&tags="
++ tags ++ "&pid=0"
hardLimit _ = Limit 100
instance Site Gelbooru where
instance PostParser Gelbooru XML where
type ImageTy Gelbooru XML = GelbooruPost
parseResponse _ = map (`betweenPosts` GelbooruPost)
. runLA (xreadDoc /> G.parsePost) . getResponse
instance Counted Gelbooru XML where
parseCount _ = read . head . runLA (xreadDoc >>> hasName "posts"
>>> getAttrValue "count") . getResponse