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

fixed xlink namespace

Browse source
This commit is contained in:
mb21 2012-04-22 17:23:49 +02:00
parent 8d2baf35f1
commit 0005a43f14
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -211,7 +211,7 @@ List of all DocBook tags, with [x] indicating implemented:
ancestors
[ ] lineannotation - A comment on a line in a verbatim listing
[x] link - A hypertext link
[ ] listitem - A wrapper for the elements of a list item
[x] listitem - A wrapper for the elements of a list item
[x] literal - Inline text that is some literal value
[ ] literallayout - A block of text in which line breaks and white space are
to be reproduced faithfully
@ -631,7 +631,7 @@ parseInline (Elem e) =
"userinput" -> return $ codeWith ("",["userinput"],[]) $ strContent e
"varargs" -> return $ str "(…)"
"ulink" -> link (attrValue "url" e) "" <$> innerInlines
"link" -> case findAttr (QName "href" Nothing $ Just "xlink") e of
"link" -> case findAttr (QName "href" (Just "http://www.w3.org/1999/xlink") Nothing) e of
Just href -> link href "" <$> innerInlines
_ -> link ('#' : attrValue "linkend" e) ""
<$> innerInlines