From d46d2000f4c30da7eca29459ffd3fde29117500e Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 11 May 2012 20:16:39 -0700
Subject: [PATCH] DocBook reader: Support uri tag.

---
 src/Text/Pandoc/Readers/DocBook.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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