diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-11 20:16:39 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2012-05-11 20:16:39 -0700 |
| commit | d46d2000f4c30da7eca29459ffd3fde29117500e (patch) | |
| tree | 1aed84b711f30c9781d298144bb2f033de83428c /src/Text/Pandoc/Readers/DocBook.hs | |
| parent | 5dfcf004b414098a91e42eeedd17a6565a8112a1 (diff) | |
DocBook reader: Support uri tag.
Diffstat (limited to 'src/Text/Pandoc/Readers/DocBook.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs index a74dced6b..bb7a7eeed 100644 --- a/src/Text/Pandoc/Readers/DocBook.hs +++ b/src/Text/Pandoc/Readers/DocBook.hs @@ -470,7 +470,7 @@ List of all DocBook tags, with [x] indicating implemented, [ ] type - The classification of a value [x] ulink - A link that addresses its target by means of a URL (Uniform Resource Locator) -[ ] uri - A Uniform Resource Identifier +[x] uri - A Uniform Resource Identifier [x] userinput - Data entered by the user [x] varargs - An empty element in a function synopsis indicating a variable number of arguments @@ -858,6 +858,7 @@ parseInline (Elem e) = "varargs" -> return $ code "(...)" "email" -> return $ link ("mailto:" ++ strContent e) "" $ code $ strContent e + "uri" -> return $ link (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 |