diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-12 13:21:13 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-12 13:21:13 -0700 |
| commit | 6dfaf43f3e17ffbb36ed08a20adf26bf3af09b88 (patch) | |
| tree | 74d452ffa7b17fd6ad320e64416ddfd571d103d6 /src/Text/Pandoc/Readers/DocBook.hs | |
| parent | 0d3c7b5204232ca412c11b28c18d86e20f689e21 (diff) | |
DocBook reader: Support simplelist, member.
Diffstat (limited to 'src/Text/Pandoc/Readers/DocBook.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index 08419430e..30f814ea4 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -232,7 +232,7 @@ List of all DocBook tags, with [x] indicating implemented, information resides [x] mediaobject - A displayed media object (video, audio, image, etc.) [ ] mediaobjectco - A media object that contains callouts -[ ] member - An element of a simple list +[x] member - An element of a simple list [ ] menuchoice - A selection or series of selections from a menu [ ] methodname - The name of a method [ ] methodparam - Parameters to a method @@ -396,7 +396,7 @@ List of all DocBook tags, with [x] indicating implemented, [ ] sidebarinfo - Meta-information for a Sidebar [x] simpara - A paragraph that contains only text and inline markup, no block elements -[ ] simplelist - An undecorated list of single words or short phrases +[x] simplelist - An undecorated list of single words or short phrases [ ] simplemsgentry - A wrapper for a simpler entry in a message set [ ] simplesect - A section of a document with no subdivisions [ ] spanspec - Formatting information for a spanned column in a table @@ -839,6 +839,7 @@ parseInline (Elem e) = return $ if qt == SingleQuote then singleQuoted contents else doubleQuoted contents + "simplelist" -> simpleList "code" -> codeWithLang "filename" -> codeWithLang "literal" -> codeWithLang @@ -885,4 +886,5 @@ parseInline (Elem e) = "" -> [] l -> [l] return $ codeWith (attrValue "id" e,classes',[]) $ strContent e - + simpleList = (mconcat . intersperse (str "," <> space)) <$> mapM getInlines + (filterChildren (named "member") e) |