fix: temml prelude
All checks were successful
build / build (push) Successful in 4s

This commit was merged in pull request #26.
This commit is contained in:
2026-03-24 16:10:50 -06:00
parent c74e36d8af
commit e02b77e1e4

View File

@@ -17,13 +17,17 @@
(def ^:dynamic *worker*) (def ^:dynamic *worker*)
(def ^:private prelude-file ;; 외부의 브로그램이 JVM resource를 사용 위해서 파일 시스템에서 써야
(fs/create-temp-file {:prefix "doerg-prelude-" ;; 합니다.
:suffix ".tex"})) (defonce ^:private prelude-file
(-> (fs/create-temp-file {:prefix "doerg-prelude-"
:suffix ".tex"})
fs/file))
(defn worker [] (defn worker []
(let [doerg-temml-worker (-> cfg/*cfg* ::doerg/doerg-temml-worker)] (let [doerg-temml-worker (-> cfg/*cfg* ::doerg/doerg-temml-worker)]
(when-not (fs/exists? prelude-file) (when (or (not (fs/exists? prelude-file))
(zero? (fs/size prelude-file)))
(-> "net/deertopia/doerg/prelude.tex" (-> "net/deertopia/doerg/prelude.tex"
io/resource io/resource
io/input-stream io/input-stream