aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-05-10 09:12:40 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-05-10 09:12:40 -0700
commitd63bfb4bc53d9a7e8271cb3e1dcadc6982c7973b (patch)
tree21adbd1831931592c242c79f07313dc85bf70a88 /src
parentbff02dd3691f2a68e0a245f20a26ee33b00f41cc (diff)
downloadpandoc-d63bfb4bc53d9a7e8271cb3e1dcadc6982c7973b.tar.gz
DocBook reader: Support prompt, parameter.
Diffstat (limited to 'src')
-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 1e4985978..e3116bc6f 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -277,7 +277,7 @@ List of all DocBook tags, with [x] indicating implemented,
entry
[x] para - A paragraph
[ ] paramdef - Information about a function parameter in a programming language
-[ ] parameter - A value or a symbolic reference to a value
+[x] parameter - A value or a symbolic reference to a value
[ ] part - A division in a book
[ ] partinfo - Meta-information for a Part
[ ] partintro - An introduction to the contents of a part
@@ -301,7 +301,7 @@ List of all DocBook tags, with [x] indicating implemented,
[ ] productnumber - A number assigned to a product
[x] programlisting - A literal listing of all or part of a program
[ ] programlistingco - A program listing with associated areas used in callouts
-[ ] prompt - A character or string indicating the start of an input field in
+[x] prompt - A character or string indicating the start of an input field in
a computer display
[ ] property - A unit of data associated with some part of a computer system
[ ] pubdate - The date of publication of a document
@@ -780,6 +780,8 @@ parseInline (Elem e) =
"code" -> return $ code $ strContent e -- TODO attrs
"filename" -> return $ codeWith ("",["filename"],[]) $ strContent e -- TODO attrs
"literal" -> return $ code $ strContent e -- TODO attrs
+ "prompt" -> return $ codeWith ("",["prompt"],[]) $ strContent e -- TODO attrs
+ "parameter" -> return $ codeWith ("",["parameter"],[]) $ strContent e -- TODO attrs
"option" -> return $ codeWith ("",["option"],[]) $ strContent e -- TODO attrs
"optional" -> do x <- getInlines e
return $ str "[" <> x <> str "]"