Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

DocBook reader: Support subtitle, simpara.

Browse source
This commit is contained in:
John MacFarlane 2012-05-10 09:01:38 -07:00
parent a408ce5fd7
commit cb1096b75f
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Text/Pandoc/Readers/DocBook.hs
View file

@ -394,7 +394,7 @@ List of all DocBook tags, with [x] indicating implemented,
[ ] sidebar - A portion of a document that is isolated from the main
narrative flow
[ ] sidebarinfo - Meta-information for a Sidebar
[ ] simpara - A paragraph that contains only text and inline markup, no block
[x] simpara - A paragraph that contains only text and inline markup, no block
elements
[ ] simplelist - An undecorated list of single words or short phrases
[ ] simplemsgentry - A wrapper for a simpler entry in a message set
@ -413,7 +413,7 @@ List of all DocBook tags, with [x] indicating implemented,
a document
[x] subscript - A subscript (as in H2O, the molecular formula for water)
[ ] substeps - A wrapper for steps that occur within steps in a procedure
[ ] subtitle - The subtitle of a document
[x] subtitle - The subtitle of a document
[x] superscript - A superscript (as in x2, the mathematical notation for x
multiplied by itself)
[ ] surname - A family name; in western cultures the last name
@ -585,6 +585,7 @@ parseBlock (CRef _) = return mempty -- TODO need something better here
parseBlock (Elem e) =
case qName (elName e) of
"para" -> para <$> getInlines e
"simpara" -> para <$> getInlines e
"ackno" -> para <$> getInlines e
"epigraph" -> parseBlockquote
"blockquote" -> parseBlockquote
@ -675,7 +676,11 @@ parseBlock (Elem e) =
getTitle = case filterChild (named "title") e of
Just t -> do
tit <- getInlines t
modify $ \st -> st{dbDocTitle = tit}
subtit <- case filterChild (named "subtitle") e of
Just s -> (text ": " <>) <$>
getInlines s
Nothing -> return mempty
modify $ \st -> st{dbDocTitle = tit <> subtit}
Nothing -> return ()
getAuthors = do
auths <- mapM getInlines