diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-10 09:12:40 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-10 09:12:40 -0700 |
| commit | d63bfb4bc53d9a7e8271cb3e1dcadc6982c7973b (patch) | |
| tree | 21adbd1831931592c242c79f07313dc85bf70a88 | |
| parent | bff02dd3691f2a68e0a245f20a26ee33b00f41cc (diff) | |
DocBook reader: Support prompt, parameter.
| -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 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 "]" |