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