fix: native latex prelude

doerg/src/net/deertopia/doerg/tex/native.clj

@@ -107,13 +107,21 @@
                (format "%09d.svg" i))]
     (zipmap (reverse snippets) svgs)))
 
+(defn- read-prelude []
+  (str (-> "net/deertopia/doerg/prelude.tex" io/resource slurp)
+       \newline
+       (-> "net/deertopia/doerg/native-prelude.tex" io/resource slurp)))
+
 (defn- instantiate-preview-template [snippets]
   (let [contents (->> (for [s snippets]
                         (format "\\begin{preview}\n%s\n\\end{preview}" s))
                       (str/join "\n"))]
     (-> (io/resource "net/deertopia/doerg/preview-template.tex")
         slurp
-        (str/replace-first "% {{contents}}" contents))))
+        (str/replace #"% \{\{(contents|preamble)}}"
+                     #(case (second %)
+                        "contents" contents
+                        "preamble" (read-prelude))))))
 
 (defn render
   "Render a collection of `snippets` to SVGs in `output-dir` using a