From d76a6e23720f4acb292d3384ee020dfb072a120c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Tue, 24 Sep 2013 18:41:19 -0700
Subject: OpenDocument writer:  don't use font-face-decls variable.

---
 src/Text/Pandoc/Writers/OpenDocument.hs | 7 -------
 1 file changed, 7 deletions(-)

(limited to 'src/Text/Pandoc')

diff --git a/src/Text/Pandoc/Writers/OpenDocument.hs b/src/Text/Pandoc/Writers/OpenDocument.hs
index 0f9044601..206be7133 100644
--- a/src/Text/Pandoc/Writers/OpenDocument.hs
+++ b/src/Text/Pandoc/Writers/OpenDocument.hs
@@ -192,15 +192,8 @@ writeOpenDocument opts (Pandoc meta blocks) =
       listStyles  = map listStyle (stListStyles s)
       automaticStyles = inTagsIndented "office:automatic-styles" $ vcat $
                           reverse $ styles ++ listStyles
-      fontFaceDecls = inTagsIndented "office:font-face-decls" $ vcat $
-                      [selfClosingTag "style:font-face" [
-                          ("style:name", "Courier New")
-                          , ("style:font-family-generic", "modern")
-                          , ("style:font-pitch", "fixed")
-                          , ("svg:font-family", "'Courier New'")]]
       context = defField "body" body
               $ defField "automatic-styles" (render' automaticStyles)
-              $ defField "font-face-decls" (render' fontFaceDecls)
               $ metadata
   in  if writerStandalone opts
          then renderTemplate' (writerTemplate opts) context
-- 
cgit v1.2.3