diff options
author | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-15 23:26:06 +0000 |
---|---|---|
committer | fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> | 2008-07-15 23:26:06 +0000 |
commit | dbdd37acaa8ecacfae7925dbc7018f4cf444f41f (patch) | |
tree | d56f08a6e7cf99055595e1a75f7804a30c0713e6 /Text/Pandoc/Writers/Docbook.hs | |
parent | 2637e3595afef05cbd67a69b8d79682ebc7a716a (diff) | |
download | pandoc-dbdd37acaa8ecacfae7925dbc7018f4cf444f41f.tar.gz |
More work on smallcaps support.
+ Added to refsMatch in Shared.
+ Supported all writers to the extent possible.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1328 788f1e2b-df1e-0410-8736-df70ead52e1b
Diffstat (limited to 'Text/Pandoc/Writers/Docbook.hs')
-rw-r--r-- | Text/Pandoc/Writers/Docbook.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Text/Pandoc/Writers/Docbook.hs b/Text/Pandoc/Writers/Docbook.hs index 6621c3d1d..bd261caf0 100644 --- a/Text/Pandoc/Writers/Docbook.hs +++ b/Text/Pandoc/Writers/Docbook.hs @@ -223,9 +223,11 @@ inlineToDocbook opts (Superscript lst) = inTagsSimple "superscript" $ inlinesToDocbook opts lst inlineToDocbook opts (Subscript lst) = inTagsSimple "subscript" $ inlinesToDocbook opts lst +inlineToDocbook opts (SmallCaps lst) = + inTags False "emphasis" [("role", "smallcaps")] $ + inlinesToDocbook opts lst inlineToDocbook opts (Quoted _ lst) = inTagsSimple "quote" $ inlinesToDocbook opts lst -inlineToDocbook opts (SmallCaps lst) = inlinesToDocbook opts lst inlineToDocbook _ Apostrophe = char '\'' inlineToDocbook _ Ellipses = text "…" inlineToDocbook _ EmDash = text "—" |