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

DocBook reader: Support email tag.

Browse source
This commit is contained in:
John MacFarlane 2012-05-05 19:34:39 -07:00
parent 4c825cf045
commit d8dc57d91c
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -114,7 +114,7 @@ List of all DocBook tags, with [x] indicating implemented,
[ ] destructorsynopsis - A syntax summary for a destructor
[ ] edition - The name or number of an edition of a document
[ ] editor - The name of the editor of a document
[ ] email - An email address
[x] email - An email address
[x] emphasis - Emphasized text
[ ] entry - A cell in a table
[ ] entrytbl - A subtable appearing in place of an Entry in a table
@ -675,6 +675,8 @@ parseInline (Elem e) =
"constant" -> return $ codeWith ("",["constant"],[]) $ strContent e
"userinput" -> return $ codeWith ("",["userinput"],[]) $ strContent e
"varargs" -> return $ str "(…)"
"email" -> return $ link ("mailto:" ++ strContent e) ""
$ code $ strContent e
"ulink" -> link (attrValue "url" e) "" <$> innerInlines
"link" -> case findAttr (QName "href" (Just "http://www.w3.org/1999/xlink") Nothing) e of
Just href -> link href "" <$> innerInlines