diff options
Diffstat (limited to 'src/Text/Pandoc/App.hs')
-rw-r--r-- | src/Text/Pandoc/App.hs | 58 |
1 files changed, 1 insertions, 57 deletions
diff --git a/src/Text/Pandoc/App.hs b/src/Text/Pandoc/App.hs index 809165c2e..a14e4e017 100644 --- a/src/Text/Pandoc/App.hs +++ b/src/Text/Pandoc/App.hs @@ -62,6 +62,7 @@ import System.FilePath import System.IO (nativeNewline, stdout) import qualified System.IO as IO (Newline (..)) import Text.Pandoc +import Text.Pandoc.App.FormatHeuristics (formatFromFilePaths) import Text.Pandoc.App.Opt (Opt (..), LineEnding (..), defaultOpts) import Text.Pandoc.App.CommandLineOptions (parseOptions, options) import Text.Pandoc.App.OutputSettings (OutputSettings (..), optToOutputSettings) @@ -337,63 +338,6 @@ readMetaValue s = case YAML.decodeStrict (UTF8.fromString s) of -> MetaBool b _ -> MetaString s --- Determine default reader based on source file extensions. -formatFromFilePaths :: String -> [FilePath] -> String -formatFromFilePaths fallback [] = fallback -formatFromFilePaths fallback (x:xs) = - case formatFromFilePath x of - Just f -> f - Nothing -> formatFromFilePaths fallback xs - --- Determine format based on file extension -formatFromFilePath :: FilePath -> Maybe String -formatFromFilePath x = - case takeExtension (map toLower x) of - ".adoc" -> Just "asciidoc" - ".asciidoc" -> Just "asciidoc" - ".context" -> Just "context" - ".ctx" -> Just "context" - ".db" -> Just "docbook" - ".doc" -> Just "doc" -- so we get an "unknown reader" error - ".docx" -> Just "docx" - ".dokuwiki" -> Just "dokuwiki" - ".epub" -> Just "epub" - ".fb2" -> Just "fb2" - ".htm" -> Just "html" - ".html" -> Just "html" - ".icml" -> Just "icml" - ".json" -> Just "json" - ".latex" -> Just "latex" - ".lhs" -> Just "markdown+lhs" - ".ltx" -> Just "latex" - ".markdown" -> Just "markdown" - ".md" -> Just "markdown" - ".ms" -> Just "ms" - ".muse" -> Just "muse" - ".native" -> Just "native" - ".odt" -> Just "odt" - ".opml" -> Just "opml" - ".org" -> Just "org" - ".pdf" -> Just "pdf" -- so we get an "unknown reader" error - ".pptx" -> Just "pptx" - ".roff" -> Just "ms" - ".rst" -> Just "rst" - ".rtf" -> Just "rtf" - ".s5" -> Just "s5" - ".t2t" -> Just "t2t" - ".tei" -> Just "tei" - ".tei.xml" -> Just "tei" - ".tex" -> Just "latex" - ".texi" -> Just "texinfo" - ".texinfo" -> Just "texinfo" - ".text" -> Just "markdown" - ".textile" -> Just "textile" - ".txt" -> Just "markdown" - ".wiki" -> Just "mediawiki" - ".xhtml" -> Just "html" - ['.',y] | y `elem` ['1'..'9'] -> Just "man" - _ -> Nothing - -- Transformations of a Pandoc document post-parsing: applyTransforms :: Monad m => [Transform] -> Pandoc -> m Pandoc |