msyds/net-deertopia
1
0
Fork 0
Code Issues 13 Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-02-25 16:45:58 -07:00
parent 02bbe0a8b8
commit bd3e6016ed
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
doerg/src/net/deertopia/doerg/tex.clj
View File

@@ -69,10 +69,16 @@
(if-some [[_ snippet-ix] (re-find m-start)] (if-some [[_ snippet-ix] (re-find m-start)]
(let [r (re-find m-end) (let [r (re-find m-end)
[_ snippet-ix* _ _ _] r [_ 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*)) (assert (= snippet-ix snippet-ix*))
(recur (conj acc (merge (snippet-dimensions (recur (conj acc (-> (snippet-dimensions
tightpage-info dimensional-info))))) tightpage-info dimensional-info)
(assoc :errors (if (empty? errors)
nil
errors))))))
acc)))) acc))))
(defn- invoke-xelatex [& {:keys [file output-dir]}] (defn- invoke-xelatex [& {:keys [file output-dir]}]