Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Allow --list-extensions to take an optional FORMAT argument.

Browse source 
This lists the extensions set by default for the selected
FORMAT.
This commit is contained in:
John MacFarlane 2017-12-27 12:25:48 -08:00
parent ab9b9cf95b
commit cc9e3a9172
2 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
MANUAL.txt
View file

@ -387,11 +387,11 @@ General options
: List supported output formats, one per line. : List supported output formats, one per line.
`--list-extensions` `--list-extensions`[`=`*FORMAT*]
: List supported Markdown extensions, one per line, followed : List supported Markdown extensions, one per line, followed
by a `+` or `-` indicating whether it is enabled by default by a `+` or `-` indicating whether it is enabled by default
in pandoc's Markdown. in *FORMAT* (defaulting to pandoc's Markdown).
`--list-highlight-languages` `--list-highlight-languages`

10
src/Text/Pandoc/App.hs
View file

@ -1589,15 +1589,17 @@ options =
"" ""
, Option "" ["list-extensions"] , Option "" ["list-extensions"]
(NoArg (OptArg
(\_ -> do (\arg _ -> do
let exts = getDefaultExtensions (fromMaybe "markdown" arg)
let showExt x = drop 4 (show x) ++ let showExt x = drop 4 (show x) ++
if extensionEnabled x pandocExtensions if extensionEnabled x exts
then " +" then " +"
else " -" else " -"
mapM_ (UTF8.hPutStrLn stdout . showExt) mapM_ (UTF8.hPutStrLn stdout . showExt)
([minBound..maxBound] :: [Extension]) ([minBound..maxBound] :: [Extension])
exitSuccess )) exitSuccess )
"FORMAT")
"" ""
, Option "" ["list-highlight-languages"] , Option "" ["list-highlight-languages"]