From 09473903dc473d29526c023cf5018c21b5ac7805 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 29 Oct 2006 08:56:26 +0000 Subject: Changes to RTF writer: + use Helvetica instead of Times New Roman as default font + specify \f0 in every \pard; otherwise font sizes are not registered properly + modify test of RTF writer accordingly git-svn-id: https://pandoc.googlecode.com/svn/trunk@32 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/DefaultHeaders.hs | 2 +- src/Text/Pandoc/Writers/RTF.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/DefaultHeaders.hs b/src/Text/Pandoc/Writers/DefaultHeaders.hs index 87dd7d8ff..31eeadee6 100644 --- a/src/Text/Pandoc/Writers/DefaultHeaders.hs +++ b/src/Text/Pandoc/Writers/DefaultHeaders.hs @@ -23,5 +23,5 @@ defaultS5Header :: String defaultS5Header = "\n\n\n\n\n\n\n\n" ++ s5CSS ++ s5Javascript defaultRTFHeader :: String -defaultRTFHeader = "{\\rtf1\\ansi\\deff0{\\fonttbl{\\f0 Times New Roman;}{\\f1 Courier;}}\n{\\colortbl;\\red255\\green0\\blue0;\\red0\\green0\\blue255;}\n\\widowctrl\\hyphauto\n\n" +defaultRTFHeader = "{\\rtf1\\ansi\\deff0{\\fonttbl{\\f0 \\fswiss Helvetica;}{\\f1 Courier;}}\n{\\colortbl;\\red255\\green0\\blue0;\\red0\\green0\\blue255;}\n\\widowctrl\\hyphauto\n\n" diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs index 64f17cc74..386a5b51b 100644 --- a/src/Text/Pandoc/Writers/RTF.hs +++ b/src/Text/Pandoc/Writers/RTF.hs @@ -56,7 +56,7 @@ rtfParSpaced :: Int -- ^ space after (in twips) -> String -- ^ string with content -> String rtfParSpaced spaceAfter indent firstLineIndent content = - "{\\pard \\sa" ++ (show spaceAfter) ++ " \\li" ++ (show indent) ++ + "{\\pard \\f0 \\sa" ++ (show spaceAfter) ++ " \\li" ++ (show indent) ++ " \\fi" ++ (show firstLineIndent) ++ " " ++ content ++ "\\par}\n" -- | Default paragraph. -- cgit v1.2.3