From 71cf0a11b37000df1bd9996fbdb65d98c1c30584 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Wed, 9 May 2007 00:44:56 +0000
Subject: + Use new alignment parameter in title/author/date,   instead of
 hardcoded \qc. + Adjusted test suite to account for changes in RTF writer.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@594 788f1e2b-df1e-0410-8736-df70ead52e1b
---
 src/Text/Pandoc/Writers/RTF.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/Text/Pandoc/Writers/RTF.hs')

diff --git a/src/Text/Pandoc/Writers/RTF.hs b/src/Text/Pandoc/Writers/RTF.hs
index 865fe0fec..770afa79b 100644
--- a/src/Text/Pandoc/Writers/RTF.hs
+++ b/src/Text/Pandoc/Writers/RTF.hs
@@ -83,10 +83,10 @@ rtfParSpaced :: Int       -- ^ space after (in twips)
              -> String 
 rtfParSpaced spaceAfter indent firstLineIndent alignment content = 
   let alignString = case alignment of
-                           AlignLeft -> "\\ql"
-                           AlignRight -> "\\qr"
-                           AlignCenter -> "\\qc"
-                           AlignDefault -> "\\ql"
+                           AlignLeft -> "\\ql "
+                           AlignRight -> "\\qr "
+                           AlignCenter -> "\\qc "
+                           AlignDefault -> "\\ql "
   in  "{\\pard " ++ alignString ++
       "\\f0 \\sa" ++ (show spaceAfter) ++ " \\li" ++ (show indent) ++ 
       " \\fi" ++ (show firstLineIndent) ++ " " ++ content ++ "\\par}\n"
@@ -131,15 +131,15 @@ rtfHeader :: String    -- ^ header text
 rtfHeader headerText (Meta title authors date) =
     let titletext = if null title
                        then "" 
-                       else rtfPar 0 0 AlignDefault ("\\qc \\b \\fs36 " ++ 
-                                                    inlineListToRTF title)
+                       else rtfPar 0 0 AlignCenter ("\\b \\fs36 " ++ 
+                                                   inlineListToRTF title)
         authorstext = if null authors
                          then "" 
-                         else rtfPar 0 0 AlignDefault ("\\qc " ++ (joinWithSep "\\" 
+                         else rtfPar 0 0 AlignCenter (" " ++ (joinWithSep "\\" 
                                                       (map stringToRTF authors))) 
         datetext = if date == "" 
                       then ""
-                      else rtfPar 0 0 AlignDefault ("\\qc " ++ stringToRTF date) in
+                      else rtfPar 0 0 AlignCenter (" " ++ stringToRTF date) in
     let spacer = if null (titletext ++ authorstext ++ datetext)
                     then ""
                     else rtfPar 0 0 AlignDefault "" in
-- 
cgit v1.2.3