appendix header customizability

Author: cl-roberts

_extensions/code-appendix/code-appendix.lua

@@ -6,26 +6,40 @@ appendix = {}
 function CodeBlock(el)
 
   if el.classes[2] == "cell-code" then 
-
     table.insert(appendix, el)
     return {}
-
   else 
-
     return el
+  end
+
+end
 
+-- reads yaml to obtain desired header for code appendix
+function Meta(m)
+
+  if m["code-appendix-title"] ~= nil then
+    codeAppendixTitle = pandoc.utils.stringify(m["code-appendix-title"])
+  else
+    codeAppendixTitle = pandoc.Str("Code")
+  end
+
+  if m["code-appendix-header-level"] ~= nil then
+    codeAppendixHeaderLevel = tonumber(pandoc.utils.stringify(m["code-appendix-header-level"]))
+  else
+    codeAppendixHeaderLevel = 1
   end
 
+  return m
+
 end
 
 -- append pandoc document with source code
-function Pandoc(el)
+function Pandoc(doc)
 
-  appendixHeader = pandoc.Header(1, pandoc.Str "test")
-  el.blocks:extend(pandoc.List({appendixHeader}))
-  el.blocks:extend(pandoc.List(appendix))
+  appendixHeader = pandoc.Header(codeAppendixHeaderLevel, codeAppendixTitle)
+  doc.blocks:extend(pandoc.List({appendixHeader}))
+  doc.blocks:extend(pandoc.List(appendix))
 
-  return el
+  return doc
 
 end
-

example.qmd

@@ -1,8 +1,10 @@
 ---
 title: "Code-appendix Example"
-format: pdf
+format: typst
 filters:
   - code-appendix
+code-appendix-title: "Source Code:"
+code-appendix-header-level: 2
 ---
 
 This filter moves the source code generating the following text
@@ -21,6 +23,8 @@ plot(mtcars[,c("mpg", "cyl")])
 
 
 to an appendix at the end of the document, (but keeps the output in its usual place).
-Force a page break in the `.qmd` to display appendix on separate page.
+Force a page break in the `.qmd` to display appendix on separate page. Note that 
+you can change the appendix header using the `code-appendix-title` and 
+`code-appendix-header-level` options in the document YAML.
 
 {{< pagebreak >}}