multiple-bibliographies: add csl-bib-body class to ref divs

Pandoc's LaTeX and ConTeXt writers check for the existence of divs with
class `csl-bib-body` when deciding whether CSL specific code has to be
loaded.

Fixes: #158

Author: tarleb

multiple-bibliographies/expected.native

@@ -1,13 +1,13 @@
 Pandoc (Meta {unMeta = fromList [("bibliography_recommended_reading",MetaInlines [Str "secondary.bib"]),("bibliography_sources",MetaInlines [Str "primary.bib"]),("nocite",MetaInlines [Cite [Citation {citationId = "Knu86", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 1, citationHash = 0}] [Str "@Knu86"],Str ",",Space,Cite [Citation {citationId = "Bae", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 2, citationHash = 0}] [Str "@Bae"]]),("title",MetaInlines [Str "Multiple",Space,Str "Bibliographies",Space,Str "Demo"])]})
 [Para [Cite [Citation {citationId = "Nie72", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 3, citationHash = 0}] [Str "Nietzsche",Space,Str "(1872)"],Str ",",Space,Cite [Citation {citationId = "Bel", citationPrefix = [], citationSuffix = [], citationMode = AuthorInText, citationNoteNum = 4, citationHash = 0}] [Str "Bellori",Space,Str "(1672)"]]
 ,Header 1 ("references",[],[]) [Str "References"]
-,Div ("refs_sources",[],[])
+,Div ("refs_sources",["csl-bib-body"],[])
  [Div ("ref-Bel",["csl-entry"],[])
   [Para [Str "Bellori.",Space,Str "1672.",Space,Emph [Str "Le",Space,Str "Vite",Space,Str "de\8217",Space,Str "Pittori,",Space,Str "Scultori",Space,Str "e",Space,Str "Architetti",Space,Str "Moderni"],Str "."]]
  ,Div ("ref-Nie72",["csl-entry"],[])
   [Para [Str "Nietzsche,",Space,Str "Friedrich.",Space,Str "1872.",Space,Emph [Str "Die",Space,Str "Geburt",Space,Str "Der",Space,Str "Trag\246die",Space,Str "Aus",Space,Str "Dem",Space,Str "Geiste",Space,Str "Der",Space,Str "Musik"],Str "."]]]
 ,Header 1 ("recommended-reading",[],[]) [Str "Recommended",Space,Str "Reading"]
-,Div ("refs_recommended_reading",[],[])
+,Div ("refs_recommended_reading",["csl-bib-body"],[])
  [Div ("ref-Bae",["csl-entry"],[])
   [Para [Str "B\228tschmann,",Space,Str "Oskar.",Space,Str "1985.",Space,Emph [Str "Pygmalion",Space,Str "Als",Space,Str "Betrachter"],Str "."]]
  ,Div ("ref-Knu86",["csl-entry"],[])

multiple-bibliographies/multiple-bibliographies.lua

@@ -118,6 +118,11 @@ local function create_topic_bibliography (div)
   -- First block of the result contains the dummy paragraph, second is
   -- the refs Div filled by pandoc-citeproc.
   div.content = res.blocks[2].content
+  -- ensure that the div has class 'csl-bib-body'. The LaTeX writer expects it
+  -- as a marker for reference divs.
+  div.classes = div.classes:includes 'csl-bib-body'
+    and div.classes
+    or div.classes .. {'csl-bib-body'}
   return div
 end