module Parser.Resume
  ( parseResumes
  ) where

import Data.Maybe (catMaybes)

import Text.HTML.TagSoup

import Model.Resume

import Parser.Utils

parseResumes :: String -> [Resume]
parseResumes page =
  case sections (~== "<div class=list-lbc>") (parseTags page) of
    [] ->
      []
    sectionTags : _ ->
      let lbcTags = takeWhile (~/= "<div id=alertesCartouche>") sectionTags
      in  catMaybes . fmap parseResume $ partitions (~== "<a>") lbcTags

parseResume :: [Tag String] -> Maybe Resume
parseResume item = do
  name <- getTagText "<h2 class=title>" item
  let price = getTagText "<div class=price>" item
  url <- getTagAttribute "<a>" "href" item
  return Resume { name = name, price = price, url = url }