module HBooru.Parsers.Konachan where
import Data.List
import HBooru.Parsers.FieldParsers
import HBooru.Types
import Text.XML.HXT.Core hiding (mkName)
data Konachan = Konachan deriving (Show, Eq)
type KonachanPost = PR
'[ "actual_preview_height"
, "actual_preview_width"
, "author"
, "change"
, "created_at"
, "file_size"
, "file_url"
, "frames"
, "frames_pending"
, "frames_pending_string"
, "frames_string"
, "has_children"
, "height"
, "id"
, "is_held"
, "is_shown_in_index"
, "jpeg_file_size"
, "jpeg_height"
, "jpeg_url"
, "jpeg_width"
, "md5"
, "preview_height"
, "preview_url"
, "preview_width"
, "rating"
, "sample_file_size"
, "sample_height"
, "sample_url"
, "sample_width"
, "score"
, "source"
, "status"
, "tags"
, "width"
]
parsePost ∷ (Functor (cat XmlTree), ArrowXml cat) ⇒ cat XmlTree KonachanPost
parsePost = hasName "post"
>>> actual_preview_heightA <:+> actual_preview_widthA <:+> authorA
<:+> changeA <:+> created_atA <:+> file_sizeA <:+> file_urlA
<:+> framesA <:+> frames_pendingA <:+> frames_pending_stringA
<:+> frames_stringA <:+> has_childrenA
<:+> heightA <:+> idA <:+> is_heldA <:+> is_shown_in_indexA
<:+> jpeg_file_sizeA <:+> jpeg_heightA <:+> jpeg_urlA <:+> jpeg_widthA
<:+> md5A <:+> preview_heightA <:+> preview_urlA <:+> preview_widthA
<:+> ratingA <:+> sample_file_sizeA <:+> sample_heightA <:+> sample_urlA
<:+> sample_widthA <:+> scoreA <:+> sourceA <:+> statusA <:+> tagsA
<:+> widthA
instance Postable Konachan XML where
postUrl _ _ ts =
let tags' = intercalate "+" ts
in "https://konachan.com/post/index.xml?tags=" ++ tags' ++ "&limit=1000"
hardLimit _ _ = Limit 100
instance PostablePaged Konachan XML where
postUrlPaged s r ts i = postUrl s r ts ++ "&page=" ++ show (i + 1)
instance Site Konachan where
instance PostParser Konachan XML where
type ImageTy Konachan XML = KonachanPost
parseResponse _ = runLA (xreadDoc /> parsePost) . getResponse
instance Counted Konachan XML where
parseCount _ = read . head . runLA (xreadDoc >>> hasName "posts"
>>> getAttrValue "count") . getResponse