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

Changes to --version.

Browse source 
Print default user data directory.
Put language names in lowercase and omit 'alert' and 'alert_indent'.
This commit is contained in:
John MacFarlane 2013-02-07 19:58:28 -08:00
parent 7f6eff3b3b
commit 7f4e1075be
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
pandoc.hs
View file

@ -69,7 +69,8 @@ compileInfo =
"\nCompiled with citeproc-hs " ++ VERSION_citeproc_hs ++ ", texmath " ++ "\nCompiled with citeproc-hs " ++ VERSION_citeproc_hs ++ ", texmath " ++
VERSION_texmath ++ ", highlighting-kate " ++ VERSION_highlighting_kate ++ VERSION_texmath ++ ", highlighting-kate " ++ VERSION_highlighting_kate ++
".\nSyntax highlighting is supported for the following languages:\n " ++ ".\nSyntax highlighting is supported for the following languages:\n " ++
wrapWords 4 78 languages wrapWords 4 78
[map toLower l | l <- languages, l /= "Alert" && l /= "Alert_indent"]
-- | Converts a list of strings into a single string with the items printed as -- | Converts a list of strings into a single string with the items printed as
-- comma separated words in lines with a maximum line length. -- comma separated words in lines with a maximum line length.
@ -704,8 +705,10 @@ options =
(NoArg (NoArg
(\_ -> do (\_ -> do
prg <- getProgName prg <- getProgName
UTF8.hPutStrLn stdout (prg ++ " " ++ pandocVersion ++ compileInfo ++ defaultDatadir <- getAppUserDataDirectory "pandoc"
copyrightMessage) UTF8.hPutStrLn stdout (prg ++ " " ++ pandocVersion ++
compileInfo ++ "\nDefault data directory: " ++
defaultDatadir ++ copyrightMessage)
exitWith ExitSuccess )) exitWith ExitSuccess ))
"" -- "Print version" "" -- "Print version"