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

DocBook reader: Use ALLCAPS for unknown entities.

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

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

@ -525,17 +525,16 @@ normalizeTree = everywhere (mkT go)
go (Text (CData CDataText s1 z):Text (CData CDataText s2 _):xs) =
Text (CData CDataText (s1 ++ s2) z):xs
go (Text (CData CDataText s1 z):CRef r:xs) =
Text (CData CDataText (s1 ++ [c]) z):xs
where c = maybe '?' id (lookupEntity r)
Text (CData CDataText (s1 ++ convertEntity r) z):xs
go (CRef r:Text (CData CDataText s1 z):xs) =
Text (CData CDataText ([c] ++ s1) z):xs
where c = maybe '?' id (lookupEntity r)
Text (CData CDataText (convertEntity r ++ s1) z):xs
go (CRef r1:CRef r2:xs) =
Text (CData CDataText [c1,c2] Nothing):xs
where c1 = maybe '?' id (lookupEntity r1)
c2 = maybe '?' id (lookupEntity r2)
Text (CData CDataText (convertEntity r1 ++ convertEntity r2) Nothing):xs
go xs = xs
convertEntity :: String -> String
convertEntity e = maybe (map toUpper e) (:[]) (lookupEntity e)
-- convenience function to get an attribute value, defaulting to ""
attrValue :: String -> Element -> String
attrValue attr elt =