lee/pandoc
1
0
Fork 0
mirror of https://github.com/jgm/pandoc.git synced 2026-09-12 10:35:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

Stylistic changes to DocBook reader.

Browse Source
This commit is contained in:
John MacFarlane
2012-04-20 10:40:44 -07:00
parent b6d530d876
commit 2ebfa88947
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Text/Pandoc/Readers/DocBook.hs
+5 -4
View File
@@ -599,10 +599,11 @@ parseInline (Elem e) =
(fromMaybe "" (lookupAttrBy (\attr -> qName attr == "url")
(elAttribs e))) "" <$> innerInlines
"link" -> case findAttr (QName "href" Nothing $ Just "xlink") e of
Just href -> link href "" <$> innerInlines
_ -> link ("#"++(fromMaybe "" (lookupAttrBy
(\attr -> qName attr == "linkend")
(elAttribs e)))) "" <$> innerInlines
Just href -> link href "" <$> innerInlines
_ -> link ('#':anchor) "" <$> innerInlines
where anchor = fromMaybe "" $ lookupAttrBy
(\attr -> qName attr == "linkend")
(elAttribs e)
"emphasis" -> case lookupAttrBy (\attr -> qName attr == "role")
(elAttribs e) of
Just "strong" -> strong <$> innerInlines