diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-26 23:55:37 -0800 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-01-26 23:55:37 -0800 |
commit | 5fc6669be6823f19dd515f699c90101e919e2803 (patch) | |
tree | 41a68f7b9248af4bc91114cc53668944a7725374 /src/pandoc.hs | |
parent | 1ce7c38bc415630c5e84e44d69fbdcf92873f8df (diff) |
Added --atx-headers option.
Diffstat (limited to 'src/pandoc.hs')
-rw-r--r-- | src/pandoc.hs | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/pandoc.hs b/src/pandoc.hs index a8f134e44..ecebe18f6 100644 --- a/src/pandoc.hs +++ b/src/pandoc.hs @@ -132,6 +132,7 @@ data Opt = Opt , optLaTeXEngine :: String -- ^ Program to use for latex -> pdf , optBeamer :: Bool -- ^ Produce latex output for beamer class , optSlideLevel :: Maybe Int -- ^ Header level that creates slides + , optSetextHeaders :: Bool -- ^ Use atx headers for markdown level 1-2 } -- | Defaults for command-line options. @@ -182,6 +183,7 @@ defaultOpts = Opt , optLaTeXEngine = "pdflatex" , optBeamer = False , optSlideLevel = Nothing + , optSetextHeaders = True } -- | A list of functions, each transforming the options data structure @@ -414,6 +416,11 @@ options = (\opt -> return opt { optReferenceLinks = True } )) "" -- "Use reference links in parsing HTML" + , Option "" ["atx-headers"] + (NoArg + (\opt -> return opt { optSetextHeaders = False } )) + "" -- "Use atx-style headers for markdown" + , Option "" ["chapters"] (NoArg (\opt -> return opt { optChapters = True })) @@ -810,6 +817,7 @@ main = do , optLaTeXEngine = latexEngine , optBeamer = beamer , optSlideLevel = slideLevel + , optSetextHeaders = setextHeaders } = opts when dumpArgs $ @@ -960,7 +968,9 @@ main = do writerBeamer = beamer, writerSlideLevel = slideLevel, writerHighlight = highlight, - writerHighlightStyle = highlightStyle } + writerHighlightStyle = highlightStyle, + writerSetextHeaders = setextHeaders + } when (writerName' `elem` nonTextFormats&& outputFile == "-") $ err 5 $ "Cannot write " ++ writerName' ++ " output to stdout.\n" ++ |