From bd3e6016edbdd15a60e90fd77e693e1ff4f38810 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= Date: Wed, 25 Feb 2026 16:45:58 -0700 Subject: [PATCH] --- doerg/src/net/deertopia/doerg/tex.clj | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/doerg/src/net/deertopia/doerg/tex.clj b/doerg/src/net/deertopia/doerg/tex.clj index 749ff2d..63d37ec 100644 --- a/doerg/src/net/deertopia/doerg/tex.clj +++ b/doerg/src/net/deertopia/doerg/tex.clj @@ -69,10 +69,16 @@ (if-some [[_ snippet-ix] (re-find m-start)] (let [r (re-find m-end) [_ snippet-ix* _ _ _] r - dimensional-info (->> r (drop 2) (map parse-long))] + dimensional-info (->> r (drop 2) (map parse-long)) + errors (-> out + (subs (.end m-start) (.start m-end)) + (str/replace-first #"[^!]*" ""))] (assert (= snippet-ix snippet-ix*)) - (recur (conj acc (merge (snippet-dimensions - tightpage-info dimensional-info))))) + (recur (conj acc (-> (snippet-dimensions + tightpage-info dimensional-info) + (assoc :errors (if (empty? errors) + nil + errors)))))) acc)))) (defn- invoke-xelatex [& {:keys [file output-dir]}]