Allow code blocks to customize their font size. (#224)

Author: bluegate010

filter/divide-code-blocks.lua

@@ -1,12 +1,32 @@
 -- draw horizontal rules above and below code blocks to separate them nicely
 
+code_classes =
+{
+    ["normal"] = {
+        ["font"] = "\\small",
+    },
+    ["small"] = {
+        ["font"] = "\\scriptsize",
+    },
+    ["tiny"] = {
+        ["font"] = "\\tiny",
+    },
+}
+
 function CodeBlock(block)
+    local class = block.classes[1]
+    local class_spec = code_classes[string.lower(class or "")]
+    if not class_spec then
+        class_spec = code_classes["normal"]
+    end
+    font = class_spec["font"]
     return {
-        pandoc.RawInline('latex', [[
-            \vskip 3pt%
+        pandoc.RawInline('latex', string.format([[
+            \vskip 3pt
             \begin{customcodeblock}
             \textbf{\textit{\textcolor{codeblock-header}{\small \BeginDemarcated{Code}}}}
-        ]]),
+            %s
+        ]], font)),
         block,
         pandoc.RawInline('latex', [[
             \textbf{\textit{\textcolor{codeblock-header}{\small \EndDemarcated{Code}}}}

guide.tcg

@@ -428,6 +428,49 @@ The result looks like this:
 int i = 42;
 ```
 
+You can customize the font size, in case code runs off the edge of the page and can't be word-wrapped:
+
+````md
+``` {.small}
+{
+  "Foo": {
+    "Bar": {
+      "Baz":
+        "/some/very/long/string/that/can't/be/word/wrapped/e.g./because/it's/encoded/in/json",
+    }
+  }
+}
+```
+````
+
+The result looks like this:
+
+``` {.small}
+{
+  "Foo": {
+    "Bar": {
+      "Baz":
+        "/some/very/long/string/that/can't/be/word/wrapped/e.g./because/it's/encoded/in/json",
+    }
+  }
+}
+```
+
+You can use `.normal`, `.small`, or `.tiny` (illustrated below):
+
+``` {.tiny}
+{
+  "Foo": {
+    "Bar": {
+      "Baz":
+        "/some/very/long/string/that/can't/be/word/wrapped/e.g./because/it's/encoded/in/json",
+    }
+  }
+}
+```
+
+The default case is `.normal`.
+
 ## Footnotes {#sec:footnotes}
 
 ```md

template/tcg.tex

@@ -164,15 +164,6 @@
 % }
 % \makeatother
 
-% Make all verbatim environments use \small font.
-\usepackage{etoolbox}
-\makeatletter
-\patchcmd{\@verbatim}
-  {\verbatim@font}
-  {\verbatim@font\small}
-  {}{}
-\makeatother
-
 % Left-justify the document.
 \usepackage[document]{ragged2e}
 \RaggedRight{}