aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-04-29 09:43:52 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-04-29 09:43:52 -0700
commit835e79f3e8e13bf19df7e6e91a48422a6e8c5356 (patch)
tree561f4c7b5c3d271d668e3c77f76ba208cd8662e5 /src/Text/Pandoc
parent9820a78b1543f39735c13bf5fa330d1eca63d433 (diff)
downloadpandoc-835e79f3e8e13bf19df7e6e91a48422a6e8c5356.tar.gz
DocBook reader: Implemented wordasword and markup tags.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs6
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