@@ -192,15 +192,8 @@ writeOpenDocument opts (Pandoc meta blocks) =
192192 listStyles = map listStyle (stListStyles s)
193193 automaticStyles = inTagsIndented "office:automatic-styles" $ vcat $
194194 reverse $ styles ++ listStyles
195− fontFaceDecls = inTagsIndented "office:font-face-decls" $ vcat $
196− [selfClosingTag "style:font-face" [
197− ("style:name", "Courier New")
198− , ("style:font-family-generic", "modern")
199− , ("style:font-pitch", "fixed")
200− , ("svg:font-family", "'Courier New'")]]
201195 context = defField "body" body
202196 $ defField "automatic-styles" (render' automaticStyles)
203− $ defField "font-face-decls" (render' fontFaceDecls)
204197 $ metadata
205198 in if writerStandalone opts
206199 then renderTemplate' (writerTemplate opts) context