doerg/src/net/deertopia/doerg/tex/temml.clj

@@ -17,13 +17,17 @@
 
 (def ^:dynamic *worker*)
 
-(def ^:private prelude-file
-  (fs/create-temp-file {:prefix "doerg-prelude-"
-                        :suffix ".tex"}))
+;; 외부의 브로그램이 JVM resource를 사용 위해서 파일 시스템에서 써야
+;; 합니다.
+(defonce ^:private prelude-file
+  (-> (fs/create-temp-file {:prefix "doerg-prelude-"
+                            :suffix ".tex"})
+      fs/file))
 
 (defn 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"
           io/resource
           io/input-stream