Support nocase spansn for csljson output

This commit is contained in:
John MacFarlane
2020-11-06 09:16:24 -08:00
parent e6abf3b8ed
commit 535bd607de
+1
View File
@@ -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