@@ -49,9 +49,18 @@ copyrightMessage = "\nCopyright (C) 2006-7 John MacFarlane\n\
4949 \warranty, not even for merchantability or fitness for a particular purpose."
5050
5151compileOptions :: String
52−compileOptions = if null languages
53− then " [compiled without syntax highlighting support]"
54− else " [compiled with syntax highlighting support]"
52+compileOptions =
53+ if null languages
54+ then "\nCompiled without syntax highlighting support."
55+ else "\nCompiled with syntax highlighting support for the following languages:\n" ++
56+ (unlines $ map unwords $ chunk 5 $
57+ map (\s -> s ++ replicate (15 - length s) ' ') languages)
58+
59+-- | Splits a list into groups of at most n.
60+chunk :: Int -> [a] -> [[a]]
61+chunk size lst =
62+ let (next, rest) = splitAt size lst
63+ in if null rest then [next] else next : chunk size rest
5564
5665-- | Association list of formats and readers.
5766readers :: [(String, ParserState -> String -> Pandoc)]