feature to write source code to txt file

Author: cl-roberts

_extensions/code-appendix/code-appendix.lua

@@ -15,6 +15,7 @@ function CodeBlock(el)
 end
 
 -- reads yaml to obtain desired header for code appendix
+-- writes appendix to txt file if desired
 function Meta(m)
 
   if m["code-appendix-title"] ~= nil then
@@ -29,6 +30,21 @@ function Meta(m)
     codeAppendixHeaderLevel = 1
   end
 
+  -- write appendix to text file
+  if m["code-appendix-write"] ~= nil then
+
+    codeAppendixWrite = pandoc.utils.stringify(m["code-appendix-write"])
+
+    if codeAppendixWrite == "true" then
+      local f = io.open(pandoc.system.get_working_directory() .. '/code-appendix.txt', 'w')
+      for index, value in ipairs(pandoc.List(appendix)) do
+        f:write(pandoc.List(appendix)[index].text .. "\n\n")
+      end
+      f:close()
+    end
+  
+  end
+
   return m
 
 end

example.qmd

@@ -5,6 +5,7 @@ filters:
   - code-appendix
 code-appendix-title: "Source Code:"
 code-appendix-header-level: 2
+code-appendix-write: false
 ---
 
 This filter moves the source code generating the following text
@@ -25,6 +26,7 @@ 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. Note that 
 you can change the appendix header using the `code-appendix-title` and 
-`code-appendix-header-level` options in the document YAML.
+`code-appendix-header-level` options in the document YAML. Set 
+`code-appendix-write: true` to print source code to a `txt` file.
 
 {{< pagebreak >}}