{-# LANGUAGE OverloadedStrings #-}
{- |
   Module      : Text.Pandoc.App.FormatHeuristics
   Copyright   : Copyright (C) 2006-2023 John MacFarlane
   License     : GNU GPL, version 2 or above

   Maintainer  : John MacFarlane <jgm@berkeley@edu>
   Stability   : alpha
   Portability : portable

Guess the format of a file from its name.
-}
module Text.Pandoc.App.FormatHeuristics
  ( formatFromFilePaths
  ) where

import Data.Char (toLower)
import Data.Foldable (asum)
import Data.Text (Text)
import System.FilePath (takeExtension)

-- | Determines default format based on file extensions; uses the format
-- of the first extension that's associated with a format.
--
-- Examples:
--
-- > formatFromFilePaths ["text.unknown", "no-extension"]
-- Nothing
--
-- > formatFromFilePaths ["my.md", "other.rst"]
-- Just "markdown"
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

-- | Determines format based on file extension.
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"  -- so we get an "unknown reader" error
    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"  -- so we get an "unknown reader" error
    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