git.iko.soy/typeable/pandoc
on master help sign in
Native writer: format Div properly, with blocks separated.
60dcaa3John MacFarlane
src/Text/Pandoc/Writers/Native.hs+2
compare with master
unifiedsplit
@@ -63,6 +63,8 @@ prettyBlock (Table caption aligns widths header rows) =
63 prettyRow header $$
63 prettyRow header $$
64 prettyList (map prettyRow rows)
64 prettyList (map prettyRow rows)
65 where prettyRow cols = prettyList (map (prettyList . map prettyBlock) cols)
65 where prettyRow cols = prettyList (map (prettyList . map prettyBlock) cols)
66+prettyBlock (Div attr blocks) =
67+ text ("Div " <> show attr) $$ prettyList (map prettyBlock blocks)
66prettyBlock block = text $ show block
68prettyBlock block = text $ show block
67
69
68-- | Prettyprint Pandoc document.
70-- | Prettyprint Pandoc document.