Support nocase spansn for csljson output
commit535bd607ded20c9f598b7f68dc894c230bdeef1a
authorJohn MacFarlane <jgm@berkeley.edu>
dateFri 6 Nov 2020, 09:16 (6 years ago)
parente6abf3b
src/Text/Pandoc/Writers/CslJson.hs+1
@@ -77,6 +77,7 @@ fromInline (Image _ ils _) = fromInlines ils
7777fromInline (Note _) = CslEmpty
7878fromInline (Span (_,[cl],_) ils)
7979 | "csl-" `T.isPrefixOf` cl = CslDiv cl (fromInlines ils)
80+ | cl == "nocase" = CslNoCase (fromInlines ils)
8081fromInline (Span _ ils) = fromInlines ils
8182
8283toCslJson :: Locale -> [Reference Inlines] -> ByteString