diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-14 17:59:40 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-14 17:59:40 -0700 |
| commit | 3e062b5a2191967132a1ec5718207631c5fc4adf (patch) | |
| tree | e25b9dc33e8bf9c63036235f444fc0d91c3b19aa /src/Text/Pandoc/Readers/DocBook.hs | |
| parent | fe5704bebc91428013cef306f33e7c98e4ac43be (diff) | |
| download | pandoc-3e062b5a2191967132a1ec5718207631c5fc4adf.tar.gz | |
Support superscript, subscript tags in docbook reader.
Diffstat (limited to 'src/Text/Pandoc/Readers/DocBook.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 432daeeea..28867adbe 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -62,6 +62,8 @@ parseInline :: Content -> DB Inlines parseInline (Text (CData _ s _)) = return $ text s parseInline (Elem e) = case qName (elName e) of + "subscript" -> subscript <$> innerInlines + "superscript" -> superscript <$> innerInlines "emphasis" -> case lookupAttrBy (\attr -> qName attr == "role") (elAttribs e) of Just "strong" -> strong <$> innerInlines |