Changes to --version.
Print default user data directory. Put language names in lowercase and omit 'alert' and 'alert_indent'.
This commit is contained in:
parent
7f6eff3b3b
commit
7f4e1075be
1 changed files with 6 additions and 3 deletions
|
@ -69,7 +69,8 @@ compileInfo =
|
|||
"\nCompiled with citeproc-hs " ++ VERSION_citeproc_hs ++ ", texmath " ++
|
||||
VERSION_texmath ++ ", highlighting-kate " ++ VERSION_highlighting_kate ++
|
||||
".\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
|
||||
-- comma separated words in lines with a maximum line length.
|
||||
|
@ -704,8 +705,10 @@ options =
|
|||
(NoArg
|
||||
(\_ -> do
|
||||
prg <- getProgName
|
||||
UTF8.hPutStrLn stdout (prg ++ " " ++ pandocVersion ++ compileInfo ++
|
||||
copyrightMessage)
|
||||
defaultDatadir <- getAppUserDataDirectory "pandoc"
|
||||
UTF8.hPutStrLn stdout (prg ++ " " ++ pandocVersion ++
|
||||
compileInfo ++ "\nDefault data directory: " ++
|
||||
defaultDatadir ++ copyrightMessage)
|
||||
exitWith ExitSuccess ))
|
||||
"" -- "Print version"
|
||||
|
||||
|
|
Loading…
Reference in a new issue