module HsBlog
  ( convertSingle
  , convertDirectory
  , process
  )
  where

import qualified HsBlog.Html as Html
import qualified HsBlog.Markup as Markup

import HsBlog.Convert (convert)
import System.IO

process :: Html.Title -> String -> String
process title = Html.render . convert title . Markup.parse

convertSingle :: Html.Title -> Handle -> Handle -> IO ()
convertSingle title input output = do
  content <- hGetContents input
  hPutStrLn output (process title content)

convertDirectory :: FilePath -> FilePath -> IO ()
convertDirectory = error "Not emplemented"