diff options
author | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-29 09:43:52 -0700 |
---|---|---|
committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-04-29 09:43:52 -0700 |
commit | 835e79f3e8e13bf19df7e6e91a48422a6e8c5356 (patch) | |
tree | 561f4c7b5c3d271d668e3c77f76ba208cd8662e5 /src | |
parent | 9820a78b1543f39735c13bf5fa330d1eca63d433 (diff) | |
download | pandoc-835e79f3e8e13bf19df7e6e91a48422a6e8c5356.tar.gz |
DocBook reader: Implemented wordasword and markup tags.
Diffstat (limited to 'src')
-rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 54827de68..91caee631 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -220,7 +220,7 @@ List of all DocBook tags, with [x] indicating implemented: a document [ ] lotentry - An entry in a list of titles [ ] manvolnum - A reference volume number -[ ] markup - A string of formatting markup in text that is to be +[x] markup - A string of formatting markup in text that is to be represented literally [ ] mathphrase - A mathematical phrase, an expression that can be represented with ordinary text and a small amount of markup @@ -482,7 +482,7 @@ List of all DocBook tags, with [x] indicating implemented: [ ] volumenum - The volume number of a document in a set (as of books in a set or articles in a journal) [ ] warning - An admonition set off from the text -[ ] wordasword - A word meant specifically as a word and not representing +[x] wordasword - A word meant specifically as a word and not representing anything else [ ] xref - A cross reference to another part of the document [ ] year - The year of publication of a document @@ -634,6 +634,8 @@ parseInline (Elem e) = else doubleQuoted contents "code" -> return $ code $ strContent e -- TODO attrs "literal" -> return $ code $ strContent e -- TODO attrs + "markup" -> return $ code $ strContent e -- TODO attrs + "wordasword" -> emph <$> innerInlines "varname" -> return $ codeWith ("",["varname"],[]) $ strContent e "function" -> return $ codeWith ("",["function"],[]) $ strContent e "type" -> return $ codeWith ("",["type"],[]) $ strContent e |