0ce965f · typeable/pandoc

git.iko.soy/typeable/pandoc

Modified prettyPandoc to handle DefinitionList elements.

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

commit0ce965f34c0caf70e9a6a7b88508beec1e617fbb authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateSat 10 Mar 2007, 17:45 (20 years ago) parent68cd976

1 file changed+4

compare with master

unifiedsplit

src/Text/Pandoc/Shared.hs+4

src/Text/Pandoc/Shared.hs+4

@@ -190,6 +190,10 @@ prettyBlock (OrderedList blockLists) =

190190prettyBlock (BulletList blockLists) = "BulletList\n" ++

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

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

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

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

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

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

193197prettyBlock block = show block

194198

195199-- | Prettyprint Pandoc document.