diff options
| -rw-r--r-- | Text/Pandoc/Writers/OpenDocument.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/Text/Pandoc/Writers/OpenDocument.hs b/Text/Pandoc/Writers/OpenDocument.hs index 827aa30e6..f956c1fb8 100644 --- a/Text/Pandoc/Writers/OpenDocument.hs +++ b/Text/Pandoc/Writers/OpenDocument.hs @@ -94,6 +94,10 @@ inHeaderTags :: Int -> Doc -> Doc inHeaderTags i = inTags False "text:h" [ ("text:style-name", "Heading_20_" ++ show i) , ("text:outline-level", show i)] +inQuotes :: QuoteType -> Doc -> Doc +inQuotes SingleQuote s = text "‘" <> s <> text "’" +inQuotes DoubleQuote s = text "“" <> s <> text "”" + -- | Convert list of authors to a docbook <author> section authorToOpenDocument :: [Char] -> Doc authorToOpenDocument name = @@ -297,7 +301,7 @@ inlineToOpenDocument o ils | Ellipses <- ils = return $ text "…" | EmDash <- ils = return $ text "—" | EnDash <- ils = return $ text "–" - | Apostrophe <- ils = return $ char '\'' + | Apostrophe <- ils = return $ text "’" | Space <- ils = return $ char ' ' | LineBreak <- ils = return $ selfClosingTag "text:line-break" [] | Str s <- ils = return $ text $ escapeStringForXML s @@ -306,7 +310,7 @@ inlineToOpenDocument o ils | Strikeout l <- ils = inSpanTags "Strikeout" <$> inlinesToOpenDocument o l | Superscript l <- ils = inSpanTags "Superscript" <$> inlinesToOpenDocument o l | Subscript l <- ils = inSpanTags "Subscript" <$> inlinesToOpenDocument o l - | Quoted _ l <- ils = inSpanTags "Citation" <$> inlinesToOpenDocument o l + | Quoted t l <- ils = inQuotes t <$> inlinesToOpenDocument o l | Code s <- ils = preformatted s | Math s <- ils = inlinesToOpenDocument o (readTeXMath s) | TeX s <- ils = preformatted s |