T.P.Citeproc.BibTeX: Protect case in periodical titles.

Thus, for example, `{npj} Quantum Information` should translate as
`[npj]{.nocase} Quantum Information`.

Closes #11048.

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Text/Pandoc/Citeproc/BibTeX.hs b/src/Text/Pandoc/Citeproc/BibTeX.hs
index a5c0e8da3..ba380da3d 100644
--- a/src/Text/Pandoc/Citeproc/BibTeX.hs
+++ b/src/Text/Pandoc/Citeproc/BibTeX.hs
@@ -57,6 +57,7 @@ import           Safe                   (readMay)
 import           Text.Printf            (printf)
 import           Text.DocLayout         (literal, hsep, nest, hang, Doc(..),
                                          braces, ($$), cr)
+
 data Variant = Bibtex | Biblatex
   deriving (Show, Eq, Ord)
 
@@ -967,7 +968,7 @@ getField f = do
 getPeriodicalTitle :: Text -> Bib Inlines
 getPeriodicalTitle f = do
   ils <- getField f
-  return ils
+  return $ protectCase id ils
 
 protectCase :: (Inlines -> Inlines) -> (Inlines -> Inlines)
 protectCase f = Walk.walk unprotect . f . Walk.walk protect