git.iko.soy/typeable/pandoc
on master help sign in
Support nocase spansn for csljson output
535bd60John MacFarlane
src/Text/Pandoc/Writers/CslJson.hs+1
compare with master
unifiedsplit
@@ -77,6 +77,7 @@ fromInline (Image _ ils _) = fromInlines ils
77fromInline (Note _) = CslEmpty
77fromInline (Note _) = CslEmpty
78fromInline (Span (_,[cl],_) ils)
78fromInline (Span (_,[cl],_) ils)
79 | "csl-" `T.isPrefixOf` cl = CslDiv cl (fromInlines ils)
79 | "csl-" `T.isPrefixOf` cl = CslDiv cl (fromInlines ils)
80+ | cl == "nocase" = CslNoCase (fromInlines ils)
80fromInline (Span _ ils) = fromInlines ils
81fromInline (Span _ ils) = fromInlines ils
81
82
82toCslJson :: Locale -> [Reference Inlines] -> ByteString
83toCslJson :: Locale -> [Reference Inlines] -> ByteString