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]}]