feat: very primitive publisher

doerg/src/net/deertopia/doerg/config.clj

@@ -11,8 +11,7 @@
                 ::doerg-parser]))
 
 (s/def ::file
-  #(or (instance? java.io.File %)
-       (string? %)))
+  (s/conformer (comp fs/file fs/absolutize fs/expand-home)))
 
 (s/def ::executable #(or (fs/executable? %)
                          (and (fs/relative? %)

doerg/src/net/deertopia/doerg/element.clj

@@ -38,7 +38,7 @@
                {:in in :out :string}
                (::cfg/doerg-parser cfg/*cfg*))
               (common/deref-with-timeout *uniorg-timeout-duration*))]
-    (if (zero? (:exit r))
+    (when (zero? (:exit r))
       (-> r :out (json/parse-string (comp keyword camel->kebab))))))
 
 (declare gather-first-section gather-latex-paragraphs element-types)

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

@@ -16,14 +16,22 @@
 
 (def ^:dynamic *worker*)
 
-(defn worker [& {:keys [preamble]}]
+(def ^:private prelude-file
+  (fs/create-temp-file {:prefix "doerg-prelude-"
+                        :suffix ".tex"}))
+
+(defn worker []
   (let [doerg-temml-worker (::cfg/doerg-temml-worker cfg/*cfg*)]
+    (when-not (fs/exists? prelude-file)
+      (-> "net/deertopia/doerg/prelude.tex"
+          io/resource
+          io/input-stream
+          (io/copy prelude-file)))
     (p/process
      {:shutdown p/destroy-tree
       :err (l/log-stream :info "temml/err")}
      doerg-temml-worker
-     "--preamble"
-     "resources/net/deertopia/doerg/prelude.tex")))
+     "--preamble" prelude-file)))
 
 (defn close-worker [tw]
   (.close (:in tw)))