f973110 · typeable/pandoc

git.iko.soy/typeable/pandoc

Improved prettyprinting of definition lists.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@596 788f1e2b-df1e-0410-8736-df70ead52e1b

commitf9731108e82bac5fdfe527440013fb9a91a65dd1 authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateThu 10 May 2007, 18:50 (19 years ago) parent5454c84

1 file changed+3−3

compare with master

unifiedsplit

src/Text/Pandoc/Shared.hs+3−3

src/Text/Pandoc/Shared.hs+3−3

@@ -217,9 +217,9 @@ prettyBlock (BulletList blockLists) = "BulletList\n" ++

217217 indentBy 2 0 ("[ " ++ (joinWithSep ", "

218218 (map (\blocks -> prettyBlockList 2 blocks) blockLists))) ++ " ]"

219219prettyBlock (DefinitionList blockLists) = "DefinitionList\n" ++

220− indentBy 2 0 ("[ " ++ (joinWithSep ", "

221− (map (\(term, blocks) -> "(" ++ show term ++ ",\n" ++

222− indentBy 1 2 (prettyBlockList 2 blocks) ++ ")") blockLists))) ++ " ]"

220+ indentBy 2 0 ("[" ++ (joinWithSep ",\n"

221+ (map (\(term, blocks) -> " (" ++ show term ++ ",\n" ++

222+ indentBy 1 2 (prettyBlockList 2 blocks) ++ " )") blockLists))) ++ " ]"

223223prettyBlock (Table caption aligns widths header rows) =

224224 "Table " ++ show caption ++ " " ++ show aligns ++ " " ++

225225 show widths ++ "\n" ++ prettyRow header ++ " [\n" ++