@@ -94,6 +94,10 @@ inHeaderTags :: Int -> Doc -> Doc
9494inHeaderTags i = inTags False "text:h" [ ("text:style-name", "Heading_20_" ++ show i)
9595 , ("text:outline-level", show i)]
9696
97+inQuotes :: QuoteType -> Doc -> Doc
98+inQuotes SingleQuote s = text "‘" <> s <> text "’"
99+inQuotes DoubleQuote s = text "“" <> s <> text "”"
100+
97101-- | Convert list of authors to a docbook <author> section
98102authorToOpenDocument :: [Char] -> Doc
99103authorToOpenDocument name =
@@ -297,7 +301,7 @@ inlineToOpenDocument o ils
297301 | Ellipses <- ils = return $ text "…"
298302 | EmDash <- ils = return $ text "—"
299303 | EnDash <- ils = return $ text "–"
300− | Apostrophe <- ils = return $ char '\''
304+ | Apostrophe <- ils = return $ text "’"
301305 | Space <- ils = return $ char ' '
302306 | LineBreak <- ils = return $ selfClosingTag "text:line-break" []
303307 | Str s <- ils = return $ text $ escapeStringForXML s
@@ -306,7 +310,7 @@ inlineToOpenDocument o ils
306310 | Strikeout l <- ils = inSpanTags "Strikeout" <$> inlinesToOpenDocument o l
307311 | Superscript l <- ils = inSpanTags "Superscript" <$> inlinesToOpenDocument o l
308312 | Subscript l <- ils = inSpanTags "Subscript" <$> inlinesToOpenDocument o l
309− | Quoted _ l <- ils = inSpanTags "Citation" <$> inlinesToOpenDocument o l
313+ | Quoted t l <- ils = inQuotes t <$> inlinesToOpenDocument o l
310314 | Code s <- ils = preformatted s
311315 | Math s <- ils = inlinesToOpenDocument o (readTeXMath s)
312316 | TeX s <- ils = preformatted s