doerg/resources/net/deertopia/doerg/default-config.edn

@@ -4,10 +4,8 @@
  :latex "xelatex"
  :dvisvgm "dvisvgm"
  :doerg-temml-worker
- #profile {:dev-publisher "../doerg/doerg-temml-worker/index.js"
-           :dev-doerg "./doerg-temml-worker/index.js"
+ #profile {:dev #file "../../../../doerg-temml-worker/index.js"
            :default "doerg-temml-worker"}
  :doerg-parser
- #profile {:dev-publisher "../doerg/doerg-parser/index.js"
-           :dev-doerg "./doerg-parser/index.js"
+ #profile {:dev #file "../../../../doerg-parser/index.js"
            :default "doerg-parser"}}

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

@@ -45,29 +45,32 @@
            (and (fs/exists? x) x))
         (fs/split-paths (System/getenv "XDG_DATA_DIRS"))))
 
-(defn make-read-config [spec]
-  (fn [& files]
-    (let [r (->> files
-                 (filter identity)
-                 (map aero/read-config)
-                 (apply merge))
-          conformed (s/conform spec r)]
-      (if-not (s/invalid? conformed)
-        conformed
-        (throw (IllegalArgumentException.
-                "bad config"
-                (ex-info "couldn't conform"
-                         (s/explain-data spec r))))))))
+(defmethod aero/reader 'file
+  [{:keys [source]} tag value]
+  "Aero tag to reference a `java.io.File` relative to the config
+  file."
+  (-> (aero/relative-resolver source value)
+      fs/file))
 
-(def read-config (make-read-config ::d/config))
+(defn read-config [spec files & {:as opts}]
+  (let [r (->> files
+               (filter identity)
+               (map #(aero/read-config % opts))
+               (apply merge))
+        conformed (s/conform spec r)]
+    (if-not (s/invalid? conformed)
+      conformed
+      (throw (ex-info "Failed to conform config"
+                      (s/explain-data spec r))))))
 
-(def default
-  (read-config
-   ;; Default config.
+(def sources
+  [;; Default config.
    (io/resource "net/deertopia/doerg/default-config.edn")
    ;; Defaults set at build time, if any.
    (io/resource "net/deertopia/doerg/extra-config.edn")
    ;; Config set at runtime.
-   (System/getenv "DOERG_CONFIG")))
+   (System/getenv "DOERG_CONFIG")])
+
+(def default (read-config ::d/config sources))
 
 (def ^:dynamic *cfg* default)