From 535bd607ded20c9f598b7f68dc894c230bdeef1a Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Fri, 6 Nov 2020 09:16:24 -0800 Subject: Support nocase spansn for csljson output --- src/Text/Pandoc/Writers/CslJson.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Writers/CslJson.hs b/src/Text/Pandoc/Writers/CslJson.hs index 02495799d..68cdb19fb 100644 --- a/src/Text/Pandoc/Writers/CslJson.hs +++ b/src/Text/Pandoc/Writers/CslJson.hs @@ -77,6 +77,7 @@ fromInline (Image _ ils _) = fromInlines ils fromInline (Note _) = CslEmpty fromInline (Span (_,[cl],_) ils) | "csl-" `T.isPrefixOf` cl = CslDiv cl (fromInlines ils) + | cl == "nocase" = CslNoCase (fromInlines ils) fromInline (Span _ ils) = fromInlines ils toCslJson :: Locale -> [Reference Inlines] -> ByteString -- cgit v1.2.3