{-# LANGUAGE OverloadedStrings #-}
module Text.Pandoc.App.FormatHeuristics
( formatFromFilePaths
) where
import Data.Char (toLower)
import Data.Foldable (asum)
import Data.Text (Text)
import System.FilePath (takeExtension)
formatFromFilePaths :: [FilePath] -> Maybe Text
formatFromFilePaths :: [String] -> Maybe Text
formatFromFilePaths = [Maybe Text] -> Maybe Text
forall (t :: * -> *) (f :: * -> *) a.
(Foldable t, Alternative f) =>
t (f a) -> f a
asum ([Maybe Text] -> Maybe Text)
-> ([String] -> [Maybe Text]) -> [String] -> Maybe Text
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (String -> Maybe Text) -> [String] -> [Maybe Text]
forall a b. (a -> b) -> [a] -> [b]
map String -> Maybe Text
formatFromFilePath
formatFromFilePath :: FilePath -> Maybe Text
formatFromFilePath :: String -> Maybe Text
formatFromFilePath String
x =
case String -> String
takeExtension ((Char -> Char) -> String -> String
forall a b. (a -> b) -> [a] -> [b]
map Char -> Char
toLower String
x) of
String
".adoc" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"asciidoc"
String
".asciidoc" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"asciidoc"
String
".context" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"context"
String
".ctx" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"context"
String
".db" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"docbook"
String
".doc" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"doc"
String
".docx" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"docx"
String
".dokuwiki" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"dokuwiki"
String
".epub" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"epub"
String
".fb2" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"fb2"
String
".htm" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"html"
String
".html" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"html"
String
".icml" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"icml"
String
".json" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"json"
String
".latex" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"latex"
String
".lhs" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown+lhs"
String
".ltx" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"latex"
String
".markdown" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown"
String
".markua" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markua"
String
".mkdn" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown"
String
".mkd" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown"
String
".mdwn" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown"
String
".mdown" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown"
String
".Rmd" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown"
String
".md" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown"
String
".ms" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"ms"
String
".muse" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"muse"
String
".native" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"native"
String
".odt" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"odt"
String
".opml" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"opml"
String
".org" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"org"
String
".pdf" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"pdf"
String
".pptx" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"pptx"
String
".ris" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"ris"
String
".roff" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"ms"
String
".rst" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"rst"
String
".rtf" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"rtf"
String
".s5" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"s5"
String
".t2t" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"t2t"
String
".tei" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"tei"
String
".tex" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"latex"
String
".texi" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"texinfo"
String
".texinfo" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"texinfo"
String
".text" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown"
String
".textile" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"textile"
String
".txt" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"markdown"
String
".wiki" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"mediawiki"
String
".xhtml" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"html"
String
".ipynb" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"ipynb"
String
".csv" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"csv"
String
".tsv" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"tsv"
String
".bib" -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"biblatex"
[Char
'.',Char
y] | Char
y Char -> String -> Bool
forall a. Eq a => a -> [a] -> Bool
forall (t :: * -> *) a. (Foldable t, Eq a) => a -> t a -> Bool
`elem` [Char
'1'..Char
'9'] -> Text -> Maybe Text
forall a. a -> Maybe a
Just Text
"man"
String
_ -> Maybe Text
forall a. Maybe a
Nothing