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

feat: warning message on timeout
All checks were successful
build / build (push) Successful in 40s
Details

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-03-05 09:52:08 -07:00
parent d946c57bff
commit 9ec8bca383
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -146,9 +146,12 @@
(defn- timeout-snippet-promises [snippet-promises fut] (defn- timeout-snippet-promises [snippet-promises fut]
;; Time out after twenty seconds. With all the LaTeX and IPC, there ;; Time out after twenty 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 (* 20 1000) ::timed-out)] (let [ms (* 20 1000)
fut-res (deref fut ms ::timed-out)]
(if (= fut-res ::timed-out) (if (= fut-res ::timed-out)
(do (future-cancel fut) (do (l/warnf "Giving up on rendering TeX snippets after %.3f seconds."
(* ms 1000))
(future-cancel fut)
(doseq [[_snippet p] snippet-promises] (doseq [[_snippet p] snippet-promises]
(deliver p ::timed-out))) (deliver p ::timed-out)))
fut-res))) fut-res)))