diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-05 19:34:39 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-05 19:34:39 -0700 |
| commit | d8dc57d91c14f819a896a005f92ee41aaeaa935e (patch) | |
| tree | 435a41fbac4c91d910ab97b13f6ae5cf4091e722 /src/Text/Pandoc/Readers | |
| parent | 4c825cf0453a45ddc524fa27b3741ff0015ae115 (diff) | |
DocBook reader: Support email tag.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index cfc7fb8ff..c6169551d 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -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 |