From dbdd37acaa8ecacfae7925dbc7018f4cf444f41f Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Tue, 15 Jul 2008 23:26:06 +0000 Subject: More work on smallcaps support. + Added to refsMatch in Shared. + Supported all writers to the extent possible. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1328 788f1e2b-df1e-0410-8736-df70ead52e1b --- Text/Pandoc/Shared.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Text/Pandoc/Shared.hs') diff --git a/Text/Pandoc/Shared.hs b/Text/Pandoc/Shared.hs index fa3d86770..05289d6a6 100644 --- a/Text/Pandoc/Shared.hs +++ b/Text/Pandoc/Shared.hs @@ -690,6 +690,8 @@ refsMatch ((Superscript x):restx) ((Superscript y):resty) = refsMatch x y && refsMatch restx resty refsMatch ((Subscript x):restx) ((Subscript y):resty) = refsMatch x y && refsMatch restx resty +refsMatch ((SmallCaps x):restx) ((SmallCaps y):resty) = + refsMatch x y && refsMatch restx resty refsMatch ((Quoted t x):restx) ((Quoted u y):resty) = t == u && refsMatch x y && refsMatch restx resty refsMatch ((Code x):restx) ((Code y):resty) = -- cgit v1.2.3