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

DocBook reader: Support uri tag.

Browse source
This commit is contained in:
John MacFarlane 2012-05-11 20:16:39 -07:00
parent 5dfcf004b4
commit d46d2000f4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -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