@@ -85,8 +85,9 @@ writeDocbook opts (Pandoc meta blocks) =
85 auths' = map (authorToDocbook opts) $ docAuthors meta
85 auths' = map (authorToDocbook opts) $ docAuthors meta
86 meta' = B.setMeta "author" auths' meta
86 meta' = B.setMeta "author" auths' meta
87 Just metadata = metaToJSON opts
87 Just metadata = metaToJSON opts
88− (Just . render colwidth . blocksToDocbook opts)
88+ (Just . render colwidth . (vcat .
89+ (map (elementToDocbook opts' startLvl)) . hierarchicalize))
89− (Just . render colwidth . inlinesToDocbook opts)
90+ (Just . render colwidth . inlinesToDocbook opts')
91 main = render' $ vcat (map (elementToDocbook opts' startLvl) elements)
92 main = render' $ vcat (map (elementToDocbook opts' startLvl) elements)
92 context = defField "body" main
93 context = defField "body" main