@@ -65,17 +65,17 @@ compileInfo :: String
6565compileInfo =
6666 "\nCompiled with citeproc support." ++
6767 "\nCompiled with syntax highlighting support for:\n" ++
68− wrapWords 78 languages
68+ wrapWords 4 78 languages
6969
7070-- | Converts a list of strings into a single string with the items printed as
7171-- comma separated words in lines with a maximum line length.
72−wrapWords :: Int -> [String] -> String
73−wrapWords c = wrap' c c where
74− wrap' _ _ [] = ""
72+wrapWords :: Int -> Int -> [String] -> String
73+wrapWords indent c = wrap' (c - indent) (c - indent)
74+ where wrap' _ _ [] = ""
7575 wrap' cols remaining (x:xs) = if remaining == cols
7676 then x ++ wrap' cols (remaining - length x) xs
7777 else if (length x + 1) > remaining
78− then ",\n" ++ x ++ wrap' cols (cols - length x) xs
78+ then ",\n" ++ replicate indent ' ' ++ x ++ wrap' cols (cols - length x) xs
7979 else ", " ++ x ++ wrap' cols (remaining - (length x + 2)) xs
8080
8181isNonTextOutput :: String -> Bool
@@ -620,8 +620,8 @@ options =
620620usageMessage :: String -> [OptDescr (Opt -> IO Opt)] -> String
621621usageMessage programName = usageInfo
622622 (programName ++ " [OPTIONS] [FILES]" ++ "\nInput formats: " ++
623− (intercalate ", " $ map fst readers) ++ "\nOutput formats: " ++
624− (intercalate ", " $ map fst writers ++ ["odt","epub"]) ++ "\nOptions:")
623+ (wrapWords 16 78 $ map fst readers) ++ "\nOutput formats: " ++
624+ (wrapWords 16 78 $ map fst writers ++ ["odt","epub"]) ++ "\nOptions:")
625625
626626-- Determine default reader based on source file extensions
627627defaultReaderName :: String -> [FilePath] -> String