module Hakyll.Web.Pandoc.FileType
( FileType (..)
, fileType
, getFileType
) where
import System.FilePath (takeExtension)
import Control.Arrow ((>>^))
import Hakyll.Core.Identifier
import Hakyll.Core.Compiler
data FileType
= Binary
| Css
| Html
| LaTeX
| LiterateHaskell FileType
| Markdown
| OrgMode
| PlainText
| Rst
| Textile
deriving (Eq, Ord, Show, Read)
fileType :: FilePath -> FileType
fileType = fileType' . takeExtension
where
fileType' ".css" = Css
fileType' ".htm" = Html
fileType' ".html" = Html
fileType' ".lhs" = LiterateHaskell Markdown
fileType' ".markdown" = Markdown
fileType' ".md" = Markdown
fileType' ".mdn" = Markdown
fileType' ".mdown" = Markdown
fileType' ".mdwn" = Markdown
fileType' ".mkd" = Markdown
fileType' ".mkdwn" = Markdown
fileType' ".org" = OrgMode
fileType' ".page" = Markdown
fileType' ".rst" = Rst
fileType' ".tex" = LaTeX
fileType' ".text" = PlainText
fileType' ".textile" = Textile
fileType' ".txt" = PlainText
fileType' _ = Binary
getFileType :: Compiler a FileType
getFileType = getIdentifier >>^ fileType . toFilePath