diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-10 09:10:25 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-10 09:10:25 -0700 |
| commit | bff02dd3691f2a68e0a245f20a26ee33b00f41cc (patch) | |
| tree | 5f1de5c9e8a06c1ba706d129205b4aa5a75d99ba /src/Text/Pandoc/Readers/DocBook.hs | |
| parent | cb1096b75f257f5e7e61ac0de0545333f4263778 (diff) | |
DocBook reader: Support 'optional' tag.
Diffstat (limited to 'src/Text/Pandoc/Readers/DocBook.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 00d668120..1e4985978 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -90,7 +90,7 @@ List of all DocBook tags, with [x] indicating implemented, [ ] collabname - The name of a collaborator [ ] colophon - Text at the back of a book describing facts about its production [x] colspec - Specifications for a column in a table -[ ] command - The name of an executable program or other software command +[x] command - The name of an executable program or other software command [x] computeroutput - Data, generally text, displayed or presented by a computer [ ] confdates - The dates of a conference for which a document was written [ ] confgroup - A wrapper for document meta-information about a conference @@ -262,7 +262,7 @@ List of all DocBook tags, with [x] indicating implemented, [ ] ooexception - An exception in an object-oriented programming language [ ] oointerface - An interface in an object-oriented programming language [x] option - An option for a software command -[ ] optional - Optional information +[x] optional - Optional information [x] orderedlist - A list in which each entry is marked with a sequentially incremented label [ ] orgdiv - A division of an organization @@ -781,8 +781,11 @@ parseInline (Elem e) = "filename" -> return $ codeWith ("",["filename"],[]) $ strContent e -- TODO attrs "literal" -> return $ code $ strContent e -- TODO attrs "option" -> return $ codeWith ("",["option"],[]) $ strContent e -- TODO attrs + "optional" -> do x <- getInlines e + return $ str "[" <> x <> str "]" "markup" -> return $ code $ strContent e -- TODO attrs "wordasword" -> emph <$> innerInlines + "command" -> return $ codeWith ("",["command"],[]) $ strContent e "varname" -> return $ codeWith ("",["varname"],[]) $ strContent e "function" -> return $ codeWith ("",["function"],[]) $ strContent e "type" -> return $ codeWith ("",["type"],[]) $ strContent e |