@@ -191,8 +191,7 @@ writeOpenDocument opts (Pandoc meta blocks) =
191191 listStyle (n,l) = inTags True "text:list-style"
192192 [("style:name", "L" ++ show n)] (vcat l)
193193 listStyles = map listStyle (stListStyles s)
194− automaticStyles = inTagsIndented "office:automatic-styles" $ vcat $
195− reverse $ styles ++ listStyles
194+ automaticStyles = vcat $ reverse $ styles ++ listStyles
196195 context = defField "body" body
197196 $ defField "automatic-styles" (render' automaticStyles)
198197 $ metadata