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

refactor: more.
Some checks failed
build / build (push) Failing after 3h13m17s
Details

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-03-02 15:17:37 -07:00
parent 98c106b3cf
commit a92b387e63
4 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
doerg/resources/net/deertopia/doerg/preview-template.tex
View File

@@ -4,6 +4,8 @@
\usepackage{fontspec} \usepackage{fontspec}
\usepackage{ifxetex} \usepackage{ifxetex}
\usepackage{syd-plex} \usepackage{syd-plex}
\usepackage{quiver}
\usepackage{tikz-cd}
\begin{document} \begin{document}
\setlength\abovedisplayskip{0pt} \setlength\abovedisplayskip{0pt}

5
doerg/src/net/deertopia/doerg/render.clj
View File

@@ -143,7 +143,7 @@
#(element/of-keyword-type? % "LATEX_HEADER") #(element/of-keyword-type? % "LATEX_HEADER")
(sp/view :value)]))) (sp/view :value)])))
(defn timeout-snippet-promises [snippet-promises fut] (defn- timeout-snippet-promises [snippet-promises fut]
;; Time out after eight seconds. With all the LaTeX and IPC, there ;; Time out after eight seconds. With all the LaTeX and IPC, there
;; are so many opportunities for things to go wrong </3. ;; are so many opportunities for things to go wrong </3.
(let [fut-res (deref fut (* 10 1000) ::timed-out)] (let [fut-res (deref fut (* 10 1000) ::timed-out)]
@@ -172,9 +172,6 @@
(timeout-snippet-promises sp fut) (timeout-snippet-promises sp fut)
r)) r))
(comment
(render-tex-snippets doc))
(defn- render-pprint (defn- render-pprint

7
doerg/src/net/deertopia/doerg/repl.clj
View File

@@ -14,11 +14,14 @@
"/home/msyds/org/20250919114912-homepage.org" "/home/msyds/org/20250919114912-homepage.org"
#_ #_
"/home/msyds/org/20251111182118-path_induction.org" "/home/msyds/org/20251111182118-path_induction.org"
#_ ;; #_
"/home/msyds/org/20250512144715-natural_transformation_category_theory.org" "/home/msyds/org/20250512144715-natural_transformation_category_theory.org"
#_ #_
"/home/msyds/org/20251021155921-path_action.org" "/home/msyds/org/20251021155921-path_action.org"
"test/net/deertopia/doerg/render_test/fallbacks.org") #_
"test/net/deertopia/doerg/render_test/fallbacks.org"
#_
"/home/msyds/org/20250910115311-men_who_would_make_stunning_dykes.org")
(defn- force-create-sym-link [path target] (defn- force-create-sym-link [path target]
(fs/delete-if-exists path) (fs/delete-if-exists path)

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

@@ -38,15 +38,13 @@
(apply native/render svg-dir)))] (apply native/render svg-dir)))]
(doseq [[snippet p] snippet-promises] (doseq [[snippet p] snippet-promises]
(try (let [temml (temml/render snippet)] (try (let [temml (temml/render snippet)]
(if (temml/erroneous-output? temml) (->> (if (temml/erroneous-output? temml)
(let [tex (get @rendered-snippets snippet)] (let [tex (get @rendered-snippets snippet)]
(if (:errors tex) (if (:errors tex)
(deliver p (hiccup/raw temml)) temml
(->> tex (read-and-patch-generated-svg tex)))
read-and-patch-generated-svg temml)
hiccup/raw hiccup/raw (deliver p)))
(deliver p))))
(deliver p (hiccup/raw temml))))
(catch Exception e (catch Exception e
(l/error e "Error in TeX thread") (l/error e "Error in TeX thread")
(throw e))))))) (throw e)))))))