git.iko.soy/typeable/pandoc
on master help sign in
Added Strikeout, Superscript, and Subscript to

refsMatch function in Pandoc.Shared. git-svn-id: https://pandoc.googlecode.com/svn/trunk@742 788f1e2b-df1e-0410-8736-df70ead52e1b

commitec0445de0afcf3b6eacb7826646bd1aa55dd507d authorfiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b> dateSat 21 Jul 2007, 19:09 (19 years ago) parenta009a4b
1 file changed+12−8
compare with master
unifiedsplit
src/Text/Pandoc/Shared.hs+12−8
src/Text/Pandoc/Shared.hs+12−8
@@ -458,20 +458,24 @@ lookupKeySrc table key = case table of
458458refsMatch :: [Inline] -> [Inline] -> Bool
459459refsMatch ((Str x):restx) ((Str y):resty) =
460460 ((map toLower x) == (map toLower y)) && refsMatch restx resty
461−refsMatch ((Code x):restx) ((Code y):resty) =
462− ((map toLower x) == (map toLower y)) && refsMatch restx resty
463−refsMatch ((TeX x):restx) ((TeX y):resty) =
464− ((map toLower x) == (map toLower y)) && refsMatch restx resty
465−refsMatch ((HtmlInline x):restx) ((HtmlInline y):resty) =
466− ((map toLower x) == (map toLower y)) && refsMatch restx resty
467461refsMatch ((Emph x):restx) ((Emph y):resty) =
468462 refsMatch x y && refsMatch restx resty
469463refsMatch ((Strong x):restx) ((Strong y):resty) =
470464 refsMatch x y && refsMatch restx resty
465+refsMatch ((Strikeout x):restx) ((Strikeout y):resty) =
466+ refsMatch x y && refsMatch restx resty
467+refsMatch ((Superscript x):restx) ((Superscript y):resty) =
468+ refsMatch x y && refsMatch restx resty
469+refsMatch ((Subscript x):restx) ((Subscript y):resty) =
470+ refsMatch x y && refsMatch restx resty
471471refsMatch ((Quoted t x):restx) ((Quoted u y):resty) =
472472 t == u && refsMatch x y && refsMatch restx resty
473+refsMatch ((Code x):restx) ((Code y):resty) =
474+ ((map toLower x) == (map toLower y)) && refsMatch restx resty
475+refsMatch ((TeX x):restx) ((TeX y):resty) =
476+ ((map toLower x) == (map toLower y)) && refsMatch restx resty
477+refsMatch ((HtmlInline x):restx) ((HtmlInline y):resty) =
478+ ((map toLower x) == (map toLower y)) && refsMatch restx resty
473479refsMatch (x:restx) (y:resty) = (x == y) && refsMatch restx resty
474480refsMatch [] x = null x
475481refsMatch x [] = null x
476−
477−