git.iko.soy/typeable/pandoc
on master help sign in
Added Strikeout, Superscript, and Subscript to
ec0445dfiddlosopher
src/Text/Pandoc/Shared.hs+12−8
compare with master
unifiedsplit
@@ -458,20 +458,24 @@ lookupKeySrc table key = case table of
458refsMatch :: [Inline] -> [Inline] -> Bool
458refsMatch :: [Inline] -> [Inline] -> Bool
459refsMatch ((Str x):restx) ((Str y):resty) =
459refsMatch ((Str x):restx) ((Str y):resty) =
460 ((map toLower x) == (map toLower y)) && refsMatch restx resty
460 ((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
467refsMatch ((Emph x):restx) ((Emph y):resty) =
461refsMatch ((Emph x):restx) ((Emph y):resty) =
468 refsMatch x y && refsMatch restx resty
462 refsMatch x y && refsMatch restx resty
469refsMatch ((Strong x):restx) ((Strong y):resty) =
463refsMatch ((Strong x):restx) ((Strong y):resty) =
470 refsMatch x y && refsMatch restx resty
464 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
471refsMatch ((Quoted t x):restx) ((Quoted u y):resty) =
471refsMatch ((Quoted t x):restx) ((Quoted u y):resty) =
472 t == u && refsMatch x y && refsMatch restx resty
472 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
473refsMatch (x:restx) (y:resty) = (x == y) && refsMatch restx resty
479refsMatch (x:restx) (y:resty) = (x == y) && refsMatch restx resty
474refsMatch [] x = null x
480refsMatch [] x = null x
475refsMatch x [] = null x
481refsMatch x [] = null x
476−
477−