feat: 서버는 기초의 테스트 더함

fix: config에서 포트를 읽음
fix: fix elisp shadowing clojure.core warnings
2026-03-24 15:44:17 -06:00 · 2026-03-23 09:08:32 -06:00 · 2026-03-23 08:48:34 -06:00 · 2026-03-23 08:43:33 -06:00 · 2026-03-23 08:40:50 -06:00 · 2026-03-21 20:37:16 -06:00
43 changed files with 1742 additions and 347 deletions
--- a/.gitea/workflows/build.yaml
+++ b/.gitea/workflows/build.yaml
@@ -9,3 +9,5 @@ jobs:
        uses: actions/checkout@v4
      - name: build doerg
        run: nix build -L .#doerg
+      - name: build publisher
+        run: nix build -L .#publisher
--- a/bb.edn
+++ b/bb.edn
@@ -3,6 +3,6 @@
  lock
  {:doc "Update the clj-nix lockfile"
   :task (-> (p/sh {:out :inherit :err :inherit}
-                    "nix run github:jlesquembre/clj-nix#deps-lock")
+                   "nix run github:jlesquembre/clj-nix#deps-lock")
             :exit
             System/exit)}}}
--- a/deps-lock.json
+++ b/deps-lock.json
@@ -40,6 +40,26 @@
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-4bSR/Z0g4rXVwv2u6e9rkoL8d1nV5b9iNIs/U2o8l8Y="
    },
+    {
+      "mvn-path": "borkdude/dynaload/0.3.5/dynaload-0.3.5.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-CIfAzbmvzs18SW6iWKMuQ6py52bz8GMuG9D1JFyowkw="
+    },
+    {
+      "mvn-path": "borkdude/dynaload/0.3.5/dynaload-0.3.5.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-XBwijxopsG0KfQNJD15k+vcTo8YWcpi6Fxz/wzz57Rg="
+    },
+    {
+      "mvn-path": "borkdude/edamame/1.5.37/edamame-1.5.37.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-TuYGDVJS0LlKcIOdvQy699fMToHZwnfSs1UvKAuXxag="
+    },
+    {
+      "mvn-path": "borkdude/edamame/1.5.37/edamame-1.5.37.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-ALbGpZQfZ2CIRW5VUez5OLBhJ+lSDPY7oxb1UwPhyG4="
+    },
    {
      "mvn-path": "camel-snake-kebab/camel-snake-kebab/0.4.3/camel-snake-kebab-0.4.3.jar",
      "mvn-repo": "https://repo.clojars.org/",
@@ -86,14 +106,44 @@
      "hash": "sha256-KKpi9U7eZ2YjAyQI14sMgqv91IiMfFagshIrg+Pad+M="
    },
    {
-      "mvn-path": "clout/clout/2.2.1/clout-2.2.1.jar",
+      "mvn-path": "com/bhauman/spell-spec/0.1.2/spell-spec-0.1.2.jar",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-nzdGxROb7zUJmjOuuDMQCnWOJXKv1CM+ynAM3XLWhws="
+      "hash": "sha256-ux1waVVJJ2hH61sgWNwXc5LWharNvgky+dWnM+J7/eM="
    },
    {
-      "mvn-path": "clout/clout/2.2.1/clout-2.2.1.pom",
+      "mvn-path": "com/bhauman/spell-spec/0.1.2/spell-spec-0.1.2.pom",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-BNzQl/YWeodReE3AkISRm68YmBfPQcvt4sQs7gSMh6c="
+      "hash": "sha256-CHzQYPxRUXL5tdXVJbSIzE8VJaslGlo3UCtVQV44fP4="
+    },
+    {
+      "mvn-path": "com/cognitect/transit-clj/1.0.333/transit-clj-1.0.333.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-jgNSoALPld3rUncLlQweteqWtzUfzjng/uk+Icpjvvs="
+    },
+    {
+      "mvn-path": "com/cognitect/transit-clj/1.0.333/transit-clj-1.0.333.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-h2ulOH2EfKM1RH6jSt9UKxfRsHdI7L3JAahwv8x3qDM="
+    },
+    {
+      "mvn-path": "com/cognitect/transit-java/1.0.371/transit-java-1.0.371.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-kmeszqpryOidXL9l+EeDhkeHbXIa8ggyTjjNAECyNpY="
+    },
+    {
+      "mvn-path": "com/cognitect/transit-java/1.0.371/transit-java-1.0.371.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-Bz9V9PAfwqd7K1G5QD7FYJtLC/CuHbzrxI4iN0TJe78="
+    },
+    {
+      "mvn-path": "com/fasterxml/jackson/core/jackson-annotations/2.21/jackson-annotations-2.21.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-U8oIX0oVD3A/SeGqvZNb0DtD4eo9VdE1Q4KSryLO9Ws="
+    },
+    {
+      "mvn-path": "com/fasterxml/jackson/core/jackson-annotations/2.21/jackson-annotations-2.21.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-ccrFOSFR4qUozJoJF58KM0F58FxS+OWWz1jd8Suyfys="
    },
    {
      "mvn-path": "com/fasterxml/jackson/core/jackson-core/2.20.0/jackson-core-2.20.0.jar",
@@ -105,6 +155,26 @@
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-XxZVisIjBzpvJHRA8wX1nwXv9QqvHurguq1BKAABb2g="
    },
+    {
+      "mvn-path": "com/fasterxml/jackson/core/jackson-core/2.21.1/jackson-core-2.21.1.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-Ht1fLkncpfjkUZlXwkt7MFC9HH7og5INozz/Ax/x98A="
+    },
+    {
+      "mvn-path": "com/fasterxml/jackson/core/jackson-core/2.21.1/jackson-core-2.21.1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-Dz+1656JcESawMuY4vjntRPS1OxbGk8C4id45Pe6uNc="
+    },
+    {
+      "mvn-path": "com/fasterxml/jackson/core/jackson-databind/2.21.1/jackson-databind-2.21.1.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-sBHrUgLZ7IieJ/HcvfbGPwanbnoWwKGzDGBI1VbJoo4="
+    },
+    {
+      "mvn-path": "com/fasterxml/jackson/core/jackson-databind/2.21.1/jackson-databind-2.21.1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-vUgX0LkXlK/29LEWtXa/7ckne+LWxlHJVm9VIiLGpVA="
+    },
    {
      "mvn-path": "com/fasterxml/jackson/dataformat/jackson-dataformat-cbor/2.20.0/jackson-dataformat-cbor-2.20.0.jar",
      "mvn-repo": "https://repo1.maven.org/maven2/",
@@ -130,26 +200,61 @@
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-ZJ/OQKV9Qhx82erCP919XPbzwdG5NAbuJ3xFw1Mm5Yg="
    },
+    {
+      "mvn-path": "com/fasterxml/jackson/datatype/jackson-datatype-jsr310/2.21.1/jackson-datatype-jsr310-2.21.1.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-TWM3iwprU3M/CG69MBAjuiEbk4fkF71YSlQAMgzQi40="
+    },
+    {
+      "mvn-path": "com/fasterxml/jackson/datatype/jackson-datatype-jsr310/2.21.1/jackson-datatype-jsr310-2.21.1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-dMXOjKDqCO8xnVps5iQk39nLk9rcAe+YF4c/t/Zpm64="
+    },
    {
      "mvn-path": "com/fasterxml/jackson/jackson-base/2.20.0/jackson-base-2.20.0.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-/IgCjRnuqjftpZbmuY03SfIs/IrdGeoZdFq+g2iDzmY="
    },
+    {
+      "mvn-path": "com/fasterxml/jackson/jackson-base/2.21.1/jackson-base-2.21.1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-YNTrZqAAoz+jfny1HiVQ2r50Z6C4rGCAbX07qXKMzWQ="
+    },
    {
      "mvn-path": "com/fasterxml/jackson/jackson-bom/2.20.0/jackson-bom-2.20.0.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-9ig2R+cB/aHNMS3MIcsTKkD3mPGejkL6/D/jR8WlG7s="
    },
+    {
+      "mvn-path": "com/fasterxml/jackson/jackson-bom/2.21.1/jackson-bom-2.21.1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-jXx43eEPTQjnKWzvCEzzC3etzqejbiPRUgeT/exj/yg="
+    },
    {
      "mvn-path": "com/fasterxml/jackson/jackson-parent/2.20/jackson-parent-2.20.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-tDt/XGLoaxZPrnCuF9aRHF22B5mvAQVzYK/aguSEW+U="
    },
+    {
+      "mvn-path": "com/fasterxml/jackson/jackson-parent/2.21/jackson-parent-2.21.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-OFHfYn+utGiHuVYQRjC3Sou7X33iLpdM8VmC4g4Dc94="
+    },
+    {
+      "mvn-path": "com/fasterxml/jackson/module/jackson-modules-java8/2.21.1/jackson-modules-java8-2.21.1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-gN/cby92+kwGXhHcdFMaAkRyRfFBWzoScCgf/NjJK1o="
+    },
    {
      "mvn-path": "com/fasterxml/oss-parent/70/oss-parent-70.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-JsqO1vgsnS7XzTIpgQW7ZcD52JnbYXV6CXQVhvqTpjk="
    },
+    {
+      "mvn-path": "com/fasterxml/oss-parent/75/oss-parent-75.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-/LvxwYyQR+aRfThPIGTiG0Klj8hfsFI6ni4BXv98YZ0="
+    },
    {
      "mvn-path": "com/github/seancorfield/next.jdbc/1.3.1070/next.jdbc-1.3.1070.jar",
      "mvn-repo": "https://repo.clojars.org/",
@@ -160,6 +265,16 @@
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-dXkdZHooK97QEyeXodFSC942EiB9B8MlHUNZlbH8nvI="
    },
+    {
+      "mvn-path": "com/googlecode/json-simple/json-simple/1.1.1/json-simple-1.1.1.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-TmlpaJK4i0HFXUmrL9zCHurZK/VKzFiMAFBZbDt1GZw="
+    },
+    {
+      "mvn-path": "com/googlecode/json-simple/json-simple/1.1.1/json-simple-1.1.1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-Zl9jWQ3vtj1irdIdNSU2LPk3z2ocBeSwFFuujailf4M="
+    },
    {
      "mvn-path": "com/nextjournal/beholder/1.0.2/beholder-1.0.2.jar",
      "mvn-repo": "https://repo.clojars.org/",
@@ -180,6 +295,11 @@
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-2Fv7Xf/j/e+vS9pjGOyCkOyQEqA+0rzjZzo3p4T2WmU="
    },
+    {
+      "mvn-path": "com/sun/activation/all/1.2.0/all-1.2.0.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-HYUY46x1MqEE5Pe+d97zfJguUwcjxr2z1ncIzOKwwsQ="
+    },
    {
      "mvn-path": "com/unboundid/unboundid-ldapsdk/5.1.1/unboundid-ldapsdk-5.1.1.jar",
      "mvn-repo": "https://repo1.maven.org/maven2/",
@@ -201,24 +321,14 @@
      "hash": "sha256-yG7hmKNaNxVIeGD0Gcv2Qufk2ehxR3eUfb5qTjogq1g="
    },
    {
-      "mvn-path": "commons-io/commons-io/2.17.0/commons-io-2.17.0.jar",
+      "mvn-path": "commons-io/commons-io/2.20.0/commons-io-2.20.0.jar",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-SqTKSPPf0wt4Igt4gdjLk+rECT7JQ2G2vvqUh5mKVQs="
+      "hash": "sha256-35C7oP48tYa38WTnj+j49No/LdXCf6ZF+IgQDMwl3XI="
    },
    {
-      "mvn-path": "commons-io/commons-io/2.17.0/commons-io-2.17.0.pom",
+      "mvn-path": "commons-io/commons-io/2.20.0/commons-io-2.20.0.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-SEqTn/9TELjLXGuQKcLc8VXT+TuLjWKF8/VrsroJ/Ek="
-    },
-    {
-      "mvn-path": "compojure/compojure/1.7.1/compojure-1.7.1.jar",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-CtYPv//W9VUqS0NpBWYADP2bbXq9g22e05zVgm4Ifyk="
-    },
-    {
-      "mvn-path": "compojure/compojure/1.7.1/compojure-1.7.1.pom",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-wJXfgk0wVcbec4QiDLsCvzmpdc8wE9hGub5Shmi/7wc="
+      "hash": "sha256-vb34EHLBkO6aixgaXFj1vZF6dQ+xOiVt679T9dvTOio="
    },
    {
      "mvn-path": "crypto-equality/crypto-equality/1.0.1/crypto-equality-1.0.1.jar",
@@ -251,14 +361,34 @@
      "hash": "sha256-kJSODD3MvE8aCvaABWue2JizAcvtLd4/9CR5eWmXxdk="
    },
    {
-      "mvn-path": "fipp/fipp/0.6.27/fipp-0.6.27.jar",
+      "mvn-path": "fi/metosin/reitit-openapi/0.10.1/reitit-openapi-0.10.1.jar",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-qK1dAlan2r+90UOm6QvnZXURhA/is4MMp9tnK20RDPc="
+      "hash": "sha256-mdWhP6mKwiTjUyah++5keAqxQfDbokB0H7b96pvtXTo="
    },
    {
-      "mvn-path": "fipp/fipp/0.6.27/fipp-0.6.27.pom",
+      "mvn-path": "fi/metosin/reitit-openapi/0.10.1/reitit-openapi-0.10.1.pom",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-ugagpDW5XBNQMTr+1z3s6r5TXwbF/pw6Ffrcc4Tzlvk="
+      "hash": "sha256-OaawIvv0GgkuZwK6MAFtmuyw3zNcYiZVd66K/IipB2A="
+    },
+    {
+      "mvn-path": "fipp/fipp/0.6.26/fipp-0.6.26.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-98tpbM5Vr9dMg41UQUGcfl9tSRrxhajlY9+nl5aFcoM="
+    },
+    {
+      "mvn-path": "fipp/fipp/0.6.26/fipp-0.6.26.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-p+xjV7gTIRMv0HwvV+/rAhFEFVlDY9g6FDE6GU9fVTU="
+    },
+    {
+      "mvn-path": "fipp/fipp/0.6.29/fipp-0.6.29.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-22eJoDXAE84RqZHrOBiILWjUf6ap7uRiey4NnhvvBfI="
+    },
+    {
+      "mvn-path": "fipp/fipp/0.6.29/fipp-0.6.29.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-OqX0rRj77alJ4fa8hN3RHgnc6rR/JUwJCJY6o4LwCcU="
    },
    {
      "mvn-path": "hawk/hawk/0.2.11/hawk-0.2.11.jar",
@@ -310,6 +440,31 @@
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-Y/C4zR1No0m2Dfk4kdHgDF0/0sm9M9jlvu0HWijNiFQ="
    },
+    {
+      "mvn-path": "javax/activation/javax.activation-api/1.2.0/javax.activation-api-1.2.0.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-Q/3vC1ts6zGwQksgi5MMdKtY+sLO63s/b9OuuLXKQ5M="
+    },
+    {
+      "mvn-path": "javax/activation/javax.activation-api/1.2.0/javax.activation-api-1.2.0.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-2ikm88i+iYZDzBCs3sbeCwNRpX+yc1dw+gF3sGrecbk="
+    },
+    {
+      "mvn-path": "javax/xml/bind/jaxb-api-parent/2.4.0-b180830.0359/jaxb-api-parent-2.4.0-b180830.0359.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-ctEy4shY0iMPFdBI8ek6J5xAxOnshLxW+fLz61r0tLg="
+    },
+    {
+      "mvn-path": "javax/xml/bind/jaxb-api/2.4.0-b180830.0359/jaxb-api-2.4.0-b180830.0359.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-VrnpcCdTdjAHQ1Fi6niAVe/P78hquSDwMsBBHcVHuDY="
+    },
+    {
+      "mvn-path": "javax/xml/bind/jaxb-api/2.4.0-b180830.0359/jaxb-api-2.4.0-b180830.0359.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-sck/wwHX9f5M3hPRlTKZJR2jfv/8kfUjg1UEw/+HNwc="
+    },
    {
      "mvn-path": "lambdaisland/clj-diff/1.4.78/clj-diff-1.4.78.jar",
      "mvn-repo": "https://repo.clojars.org/",
@@ -321,14 +476,24 @@
      "hash": "sha256-2QZ6mFjx7+UGI232PUr3CzsQenqd+xcRsbqEpxs32w0="
    },
    {
-      "mvn-path": "lambdaisland/deep-diff2/2.12.219/deep-diff2-2.12.219.jar",
+      "mvn-path": "lambdaisland/deep-diff/0.0-47/deep-diff-0.0-47.jar",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-BkOq5C/7omo09wyTTg7nkBi6GWBmlayVsPa9mrDvCyU="
+      "hash": "sha256-falL4yyvcE4PHTuanJq/7G2nS1u4BwuU0d+R/Ns9h54="
    },
    {
-      "mvn-path": "lambdaisland/deep-diff2/2.12.219/deep-diff2-2.12.219.pom",
+      "mvn-path": "lambdaisland/deep-diff/0.0-47/deep-diff-0.0-47.pom",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-rW/85js2hSWVc36e2BcTRmkahJHc2TjGIEfvForuToY="
+      "hash": "sha256-1PXzUUHstr5hI/+oPIQUGogO744bynAw2Zoo5HSjTbE="
+    },
+    {
+      "mvn-path": "lambdaisland/deep-diff2/2.11.216/deep-diff2-2.11.216.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-U2zJZmPIO66EtkgwwfyY41uRyu2DRmXH0ogNfluw5Rg="
+    },
+    {
+      "mvn-path": "lambdaisland/deep-diff2/2.11.216/deep-diff2-2.11.216.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-ok3nYS+8XCcCTPJIkqaO1SQH6v2ENwK2GZJdH0c4D20="
    },
    {
      "mvn-path": "lambdaisland/kaocha/1.91.1392/kaocha-1.91.1392.jar",
@@ -350,16 +515,6 @@
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-n+46BXjy57A8898EXgyplEyyqf/S5qocf140ZbglV64="
    },
-    {
-      "mvn-path": "medley/medley/1.4.0/medley-1.4.0.jar",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-TPIRabvctGuZ531Am+63v9GqNmCIUodXQky5l9SW81U="
-    },
-    {
-      "mvn-path": "medley/medley/1.4.0/medley-1.4.0.pom",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-JhEgB4cMXujVcrvDw4n8a9bMZG1cUAdfbolYQMWGEMA="
-    },
    {
      "mvn-path": "meta-merge/meta-merge/1.0.0/meta-merge-1.0.0.jar",
      "mvn-repo": "https://repo.clojars.org/",
@@ -370,6 +525,216 @@
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-sAogZY/OzCvRNBAx85T1LWjFP7SAxEVBNMyqwgTqWTE="
    },
+    {
+      "mvn-path": "metosin/jsonista/0.3.14/jsonista-0.3.14.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-X2Q8enVPRd4MZ2e+RWmybKP8RimgPq9CaqhCDAGSusc="
+    },
+    {
+      "mvn-path": "metosin/jsonista/0.3.14/jsonista-0.3.14.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-O7ct/9mXDlQyA15IKaKIpd3OONz8EXjiCx76OX3jL10="
+    },
+    {
+      "mvn-path": "metosin/malli/0.20.1/malli-0.20.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-RaaMI4tsXRl2KXUPGmPMWqbQRUVrCpRcjJ1ayAZ9gd4="
+    },
+    {
+      "mvn-path": "metosin/malli/0.20.1/malli-0.20.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-B+fEOtVMMuJa8MZjN10cdiwuZE/4Lbb9nCn6LYIaa8g="
+    },
+    {
+      "mvn-path": "metosin/muuntaja/0.6.11/muuntaja-0.6.11.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-ESyKKT/YetFeFhDVaDaBDGXLzV/9A5xJOAjs6SHQCZI="
+    },
+    {
+      "mvn-path": "metosin/muuntaja/0.6.11/muuntaja-0.6.11.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-fEq6j197KE2x1YOr+2EnuOzvgD4nM2KBK1G3GsmSv2E="
+    },
+    {
+      "mvn-path": "metosin/reitit-core/0.10.1/reitit-core-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-7gBhQkwe2ZlzVO//GWsSNeq1O9ydlm9aA3l183eqrrU="
+    },
+    {
+      "mvn-path": "metosin/reitit-core/0.10.1/reitit-core-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-sXrrlJWKnQFn7pKvBRPz3yuqWBpdN2TzhML3hOMioGY="
+    },
+    {
+      "mvn-path": "metosin/reitit-dev/0.10.1/reitit-dev-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-jfnIj4oC09La0M+oA96yPqt60Jx5XxAAw21/dpFTgmk="
+    },
+    {
+      "mvn-path": "metosin/reitit-dev/0.10.1/reitit-dev-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-LxsZ5EiqWPvmbSdMSlPbEFQrWCUuynZihnk0PUe7E5w="
+    },
+    {
+      "mvn-path": "metosin/reitit-frontend/0.10.1/reitit-frontend-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-SLNS7KASzrAXoTPljH4AAJK4vKVnpfJxjFDFzM9OTVo="
+    },
+    {
+      "mvn-path": "metosin/reitit-frontend/0.10.1/reitit-frontend-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-lKSwm77Jj4iUKIQD5uOJBOFZbcMtmvPwfpRM4JrdspE="
+    },
+    {
+      "mvn-path": "metosin/reitit-http/0.10.1/reitit-http-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-5IbNDHtNHe8PRs1m5EKe28V9N+bPdi991OQgkZQN6As="
+    },
+    {
+      "mvn-path": "metosin/reitit-http/0.10.1/reitit-http-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-TgdsRodZjIIALEf6/nPUvhUT9reeaYQOWHpJlxG5Ze8="
+    },
+    {
+      "mvn-path": "metosin/reitit-interceptors/0.10.1/reitit-interceptors-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-9ET465F/wmbc/1KzbxsiNa/MscQ3HjP6RsQGPtTdlVk="
+    },
+    {
+      "mvn-path": "metosin/reitit-interceptors/0.10.1/reitit-interceptors-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-IE/2mrKYaGe8oXkhuivDQVbnXpyV85DCHQczcC+mxNM="
+    },
+    {
+      "mvn-path": "metosin/reitit-malli/0.10.1/reitit-malli-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-TN815aCf2t/vP6PbamBXLHq3jsBmLxg6cz0a5L16CFQ="
+    },
+    {
+      "mvn-path": "metosin/reitit-malli/0.10.1/reitit-malli-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-7MEtlqJTDa9m1Qc4sno8lPgMJvH7WKW7giiuP33S484="
+    },
+    {
+      "mvn-path": "metosin/reitit-middleware/0.10.1/reitit-middleware-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-L0lA3bGz2yVGoSgqvbK0UabAYA5DwEz4LIbcu8IN2mo="
+    },
+    {
+      "mvn-path": "metosin/reitit-middleware/0.10.1/reitit-middleware-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-YmrCRAZJtq0kKhbTVDH8190wNCCaSmcWz+3axCV78dU="
+    },
+    {
+      "mvn-path": "metosin/reitit-ring/0.10.1/reitit-ring-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-u4SZ3GXuPI8+9YjQpzDTASebKD0XxfNE8TnDZD/7TMQ="
+    },
+    {
+      "mvn-path": "metosin/reitit-ring/0.10.1/reitit-ring-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-TadxOEr0yVP1udbCT6/qso2lKldYgJ9xDFN2HfZiF4Y="
+    },
+    {
+      "mvn-path": "metosin/reitit-schema/0.10.1/reitit-schema-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-LYEChqfzN7Ut9uOWy+vqPghd+T110hF/nAUTJkY1iT4="
+    },
+    {
+      "mvn-path": "metosin/reitit-schema/0.10.1/reitit-schema-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-3G0NVZR5Ufmq5pZcC0CcUC296EKZ9FlwtTu+O4vDX+I="
+    },
+    {
+      "mvn-path": "metosin/reitit-sieppari/0.10.1/reitit-sieppari-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-7mdIxfmr6QgeRfFnPKW+dlXnqMeEP+idfqoaR4IfBiA="
+    },
+    {
+      "mvn-path": "metosin/reitit-sieppari/0.10.1/reitit-sieppari-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-mwE5HM9GFIyVXIkt9k/fDQ/T47fNNctRZW4nvrNiZtc="
+    },
+    {
+      "mvn-path": "metosin/reitit-spec/0.10.1/reitit-spec-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-RNpOMJ9qA+FxQhArd9ZMewvkYLtte3KCuaphmtsCtQY="
+    },
+    {
+      "mvn-path": "metosin/reitit-spec/0.10.1/reitit-spec-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-Un79w9ZiucZXQOhiQt3Y4vuXT0aAyhk53OoVptrFZfo="
+    },
+    {
+      "mvn-path": "metosin/reitit-swagger-ui/0.10.1/reitit-swagger-ui-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-zxTK2IBTB8ImucHXzLDALU4OrChKL4XbAw3xnau3jI4="
+    },
+    {
+      "mvn-path": "metosin/reitit-swagger-ui/0.10.1/reitit-swagger-ui-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-UJWoNe/PZ+ZfbmphCtly5DRDFTZBAQX3HTHxC6pj0KU="
+    },
+    {
+      "mvn-path": "metosin/reitit-swagger/0.10.1/reitit-swagger-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-RodPXcikvKTcUzssb6rCydYwqHg+bFDvoIsmAdjMgyA="
+    },
+    {
+      "mvn-path": "metosin/reitit-swagger/0.10.1/reitit-swagger-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-UZ1aNIMMdOXM7UVfipabpE5o/tEUgYeTuSPcuvVCOUY="
+    },
+    {
+      "mvn-path": "metosin/reitit/0.10.1/reitit-0.10.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-vWARTpMbF9O9c/k6lLuJMZLr4Jxe7LpjmjRAHh52oHo="
+    },
+    {
+      "mvn-path": "metosin/reitit/0.10.1/reitit-0.10.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-K9Rj53e3toJSqoH77T3QP3AczGNEfQOhRE3bWe6fqww="
+    },
+    {
+      "mvn-path": "metosin/ring-swagger-ui/5.31.0/ring-swagger-ui-5.31.0.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-52/nNM6fyGWQ0sZuarTrQBe7yF8NOX92DqDVJlmPQx0="
+    },
+    {
+      "mvn-path": "metosin/ring-swagger-ui/5.31.0/ring-swagger-ui-5.31.0.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-P5s2MdIbtEk50xAgeBajaswZBIC18mdZxiDUJIogt+U="
+    },
+    {
+      "mvn-path": "metosin/schema-tools/0.13.1/schema-tools-0.13.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-fGQBvcjQyDRqz64GQ2hKTovprY4lb2JFH/Z4aH8jumI="
+    },
+    {
+      "mvn-path": "metosin/schema-tools/0.13.1/schema-tools-0.13.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-J/pYO3QRubM3IBvnGHiIfhcaB41df1LkuLf9CZHwvpA="
+    },
+    {
+      "mvn-path": "metosin/sieppari/0.0.0-alpha13/sieppari-0.0.0-alpha13.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-LTLkMBx8NyTQNAgrG4nwuNbbil/amMYF/rT6TtBvZTc="
+    },
+    {
+      "mvn-path": "metosin/sieppari/0.0.0-alpha13/sieppari-0.0.0-alpha13.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-KtIhqq/oyvTwjLfZ7xmcN77k88lPsfdIrLvgImiXj6Q="
+    },
+    {
+      "mvn-path": "metosin/spec-tools/0.10.8/spec-tools-0.10.8.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-2UvmSY29d8pk/drnLDWJLW8Fc669T3NHHRjqtT/m/9E="
+    },
+    {
+      "mvn-path": "metosin/spec-tools/0.10.8/spec-tools-0.10.8.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-NXedlytjHNeGLD+iNGFdjY1qPanzk3VpiLeT7EDCLbY="
+    },
    {
      "mvn-path": "mvxcvi/arrangement/2.1.0/arrangement-2.1.0.jar",
      "mvn-repo": "https://repo.clojars.org/",
@@ -390,6 +755,16 @@
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-SzmvI+F2QOnCPH5H6OKH124pbohIazXgPG3PhqH0VZA="
    },
+    {
+      "mvn-path": "mvxcvi/puget/1.1.2/puget-1.1.2.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-7i5fjiJhNogHcc2ZaD1NsjU70gSF++gh9re+jOZmRRU="
+    },
+    {
+      "mvn-path": "mvxcvi/puget/1.1.2/puget-1.1.2.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-LjYHVXDmCU2iBMeOwiacuvmPvMJ8uOS4n973O47Br7s="
+    },
    {
      "mvn-path": "net/incongru/watchservice/barbary-watchservice/1.0/barbary-watchservice-1.0.jar",
      "mvn-repo": "https://repo1.maven.org/maven2/",
@@ -410,35 +785,45 @@
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-Zf8lhJuthZVUtQMXeS9Wia20UprkAx6aUkYxnLK4U1Y="
    },
+    {
+      "mvn-path": "net/java/jvnet-parent/1/jvnet-parent-1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-KBRAgRJo5l2eJms8yJgpfiFOBPCXQNA4bO60qJI9Y78="
+    },
+    {
+      "mvn-path": "net/java/jvnet-parent/5/jvnet-parent-5.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-GvaZ+Nndq2f5oNIC+9eRXrA2Klpt/V/8VMr6NGXJywo="
+    },
    {
      "mvn-path": "org/apache/apache/23/apache-23.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-vBBiTgYj82V3+sVjnKKTbTJA7RUvttjVM6tNJwVDSRw="
    },
    {
-      "mvn-path": "org/apache/apache/29/apache-29.pom",
+      "mvn-path": "org/apache/apache/34/apache-34.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-PkkDcXSCC70N9jQgqXclWIY5iVTCoGKR+mH3J6w1s3c="
+      "hash": "sha256-NnGunU0GKuO7mFcxx2CIuy9vfXJU4tME7p9pC5dlEyg="
    },
    {
-      "mvn-path": "org/apache/apache/33/apache-33.pom",
+      "mvn-path": "org/apache/apache/35/apache-35.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-14vYUkxfg4ChkKZSVoZimpXf5RLfIRETg6bYwJI6RBU="
+      "hash": "sha256-6il9zRFBNui46LYwIw1Sp2wvxp9sXbJdZysYVwAHKLg="
    },
    {
-      "mvn-path": "org/apache/commons/commons-fileupload2-core/2.0.0-M1/commons-fileupload2-core-2.0.0-M1.jar",
+      "mvn-path": "org/apache/commons/commons-fileupload2-core/2.0.0-M4/commons-fileupload2-core-2.0.0-M4.jar",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-aPumFRznTMztKyudp8asY5gDFDFmVzBSudlcyURbgh8="
+      "hash": "sha256-0oXNjN3j2UZiCLN8d1BFSwsoDqdzsZsFCuHi3bCeaZE="
    },
    {
-      "mvn-path": "org/apache/commons/commons-fileupload2-core/2.0.0-M1/commons-fileupload2-core-2.0.0-M1.pom",
+      "mvn-path": "org/apache/commons/commons-fileupload2-core/2.0.0-M4/commons-fileupload2-core-2.0.0-M4.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-P238Oe+/9c1XC1Luqb27XH8VCbCnOzUnB7REXwdWnko="
+      "hash": "sha256-nVr4glJx8ilRBfsNqBBjCO0oCevs9QMIecG2dIXqjc8="
    },
    {
-      "mvn-path": "org/apache/commons/commons-fileupload2/2.0.0-M1/commons-fileupload2-2.0.0-M1.pom",
+      "mvn-path": "org/apache/commons/commons-fileupload2/2.0.0-M4/commons-fileupload2-2.0.0-M4.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-KVM5MYJNx4Iu09XWp0fCeEcYoxZVo/Ifx9gkWcFvtq8="
+      "hash": "sha256-1OvVB1KVvvXrUL7AnQ6iN8VXDbZd5dfVfGMoJBxNoYY="
    },
    {
      "mvn-path": "org/apache/commons/commons-parent/52/commons-parent-52.pom",
@@ -446,14 +831,14 @@
      "hash": "sha256-ddvo806Y5MP/QtquSi+etMvNO18QR9VEYKzpBtu0UC4="
    },
    {
-      "mvn-path": "org/apache/commons/commons-parent/58/commons-parent-58.pom",
+      "mvn-path": "org/apache/commons/commons-parent/84/commons-parent-84.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-LUsS4YiZBjq9fHUni1+pejcp2Ah4zuy2pA2UbpwNVZA="
+      "hash": "sha256-kjn7lxAdsnBw5Jg9ENM6DpHPZ2ytkb9TgVQiw1Ye+bE="
    },
    {
-      "mvn-path": "org/apache/commons/commons-parent/74/commons-parent-74.pom",
+      "mvn-path": "org/apache/commons/commons-parent/85/commons-parent-85.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-gOthsMh/3YJqBpMTsotnLaPxiFgy2kR7Uebophl+fss="
+      "hash": "sha256-0Yn/LAAn6Wu2XTHm8iftKvlmFps2rx6XPdW6CJJtx7U="
    },
    {
      "mvn-path": "org/clojars/pntblnk/clj-ldap/0.0.17/clj-ldap-0.0.17.jar",
@@ -586,14 +971,24 @@
      "hash": "sha256-NnHYN2UlIwq6Ah8fYmx54g86ELYrXfgXIiWJDsSv4EU="
    },
    {
-      "mvn-path": "org/clojure/core.rrb-vector/0.2.0/core.rrb-vector-0.2.0.jar",
+      "mvn-path": "org/clojure/core.rrb-vector/0.1.2/core.rrb-vector-0.1.2.jar",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-ftqNXGlaxVNp3NTHN4YUMhdXuBAoG//KMMss02PRZZQ="
+      "hash": "sha256-UfmOunss1C7jDzgmkl3N6HkRZ/dvcSMprlG4gkToE44="
    },
    {
-      "mvn-path": "org/clojure/core.rrb-vector/0.2.0/core.rrb-vector-0.2.0.pom",
+      "mvn-path": "org/clojure/core.rrb-vector/0.1.2/core.rrb-vector-0.1.2.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-t+0/8ZfxrdZOHvJS2zRY8wlhPcZXdejY4OkTlx4CRY4="
+      "hash": "sha256-juK6yvw4QzWMznZRDXMyQhK7NRn61XgE7Oq9w3rFCR8="
+    },
+    {
+      "mvn-path": "org/clojure/core.rrb-vector/0.2.1/core.rrb-vector-0.2.1.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-8E3BkBQZq+xGiL0YD1/881QHMXAvDTLk1/L74IRBmQo="
+    },
+    {
+      "mvn-path": "org/clojure/core.rrb-vector/0.2.1/core.rrb-vector-0.2.1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-HS8j0IAGN08JpOXyX+qxQ/sA5uw4oJhiPCkKtHPUjUo="
    },
    {
      "mvn-path": "org/clojure/core.specs.alpha/0.2.56/core.specs.alpha-0.2.56.jar",
@@ -645,11 +1040,6 @@
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-EMRQ3qBnbiNW9J5FhBXH6cNrP5AWlnxlBMErOKQp3rc="
    },
-    {
-      "mvn-path": "org/clojure/pom.contrib/0.1.2/pom.contrib-0.1.2.pom",
-      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-RoC9g43MuowXwlgXE0fxb1uq5rXft4Grc4K8Y4X/gAY="
-    },
    {
      "mvn-path": "org/clojure/pom.contrib/0.2.2/pom.contrib-0.2.2.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
@@ -671,9 +1061,9 @@
      "hash": "sha256-CRbXpBVYuVAKQnyIb6KYJ6zlJZIGvjrTPmTilvwaYRE="
    },
    {
-      "mvn-path": "org/clojure/pom.contrib/1.3.0/pom.contrib-1.3.0.pom",
+      "mvn-path": "org/clojure/pom.contrib/1.4.0/pom.contrib-1.4.0.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-g5qUXfrO6lvVB5+CSPM0bdIULesJFGyj9dG/riYxCWc="
+      "hash": "sha256-CZNnaHYIH0kbpa+C+mtaA3o77joSWgLW1eJ6op81Z4c="
    },
    {
      "mvn-path": "org/clojure/spec.alpha/0.2.194/spec.alpha-0.2.194.jar",
@@ -706,14 +1096,14 @@
      "hash": "sha256-PLp+DcwIXEzpLd3/6iJhJP+sF4vnm9A3m1suMKlpy+o="
    },
    {
-      "mvn-path": "org/clojure/test.check/1.1.2/test.check-1.1.2.jar",
+      "mvn-path": "org/clojure/test.check/1.1.3/test.check-1.1.3.jar",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-93r5qZJ67LZqNoa282s1Al8kvOZr8/AF3UTcQEvIdgE="
+      "hash": "sha256-iwY3sTmCc0dC+z9NEp8KnZ49dSsa7AxvZc7UVV9ytkk="
    },
    {
-      "mvn-path": "org/clojure/test.check/1.1.2/test.check-1.1.2.pom",
+      "mvn-path": "org/clojure/test.check/1.1.3/test.check-1.1.3.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-UZ45jnJMYvCsnWsZ15+P8QAdqYWD/eAb1wUrB+Ga1ow="
+      "hash": "sha256-pPIf6yOG+/zUKlIgDRTA94u+9omfdIzO/LCkSZ4P3sU="
    },
    {
      "mvn-path": "org/clojure/tools.cli/1.1.230/tools.cli-1.1.230.jar",
@@ -735,16 +1125,6 @@
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-E15H98p5wKoYG2kJPML50aYyKt1qgli2aXxQCNIwv00="
    },
-    {
-      "mvn-path": "org/clojure/tools.macro/0.1.5/tools.macro-0.1.5.jar",
-      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-JxTXKUyQ+SaO7vNyj+TZjr+q7fJAoCN02u8rhVhEgkg="
-    },
-    {
-      "mvn-path": "org/clojure/tools.macro/0.1.5/tools.macro-0.1.5.pom",
-      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-cGCU9H2ljugXofq5uAwxLs0nZHK85uHVRCOfFAcR2zE="
-    },
    {
      "mvn-path": "org/clojure/tools.reader/1.3.6/tools.reader-1.3.6.jar",
      "mvn-repo": "https://repo1.maven.org/maven2/",
@@ -756,9 +1136,34 @@
      "hash": "sha256-rvXugot8sUocWPRbn4oQ/zQMV2mSXqDvXDXR5J2SC+o="
    },
    {
-      "mvn-path": "org/junit/junit-bom/5.11.0/junit-bom-5.11.0.pom",
+      "mvn-path": "org/clojure/tools.reader/1.5.2/tools.reader-1.5.2.jar",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-5nRZ1IgkJKxjdPQNscj0ouiJRrNAugcsgL6TKivkZE0="
+      "hash": "sha256-y5btDv3wuLw2JjLLdAZ+8iX2sD8/R4yLpEGC9qF6N7Y="
+    },
+    {
+      "mvn-path": "org/clojure/tools.reader/1.5.2/tools.reader-1.5.2.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-uZlvXJtX4jSGPzlfzmT5fTBQtPWFMKYhWllpsILSFOc="
+    },
+    {
+      "mvn-path": "org/javassist/javassist/3.18.1-GA/javassist-3.18.1-GA.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-P7cSMa/QmLsPk/Xrl6qCkcjQVWN5El5Zb5Lsj5RMYWI="
+    },
+    {
+      "mvn-path": "org/javassist/javassist/3.18.1-GA/javassist-3.18.1-GA.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-WrGVb+jEXzXUal5H8yB0TZ/E9YV82pMRs3GJxdNT2g8="
+    },
+    {
+      "mvn-path": "org/junit/junit-bom/5.12.2/junit-bom-5.12.2.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-zvgP7IZFT2gGv7DfJGabXG8y4styhTnqhZ9H39ybvBc="
+    },
+    {
+      "mvn-path": "org/junit/junit-bom/5.13.1/junit-bom-5.13.1.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-+mhFHqgwVy7UP/5R11tqBfel5mWmAqUfSda+AgY6ZfM="
    },
    {
      "mvn-path": "org/junit/junit-bom/5.13.4/junit-bom-5.13.4.pom",
@@ -766,39 +1171,39 @@
      "hash": "sha256-16CKmbJQLwu2jNTh+YTwv2kySqogi9D3M2bAP8NUikI="
    },
    {
-      "mvn-path": "org/junit/junit-bom/5.9.3/junit-bom-5.9.3.pom",
+      "mvn-path": "org/junit/junit-bom/5.14.1/junit-bom-5.14.1.pom",
      "mvn-repo": "https://repo1.maven.org/maven2/",
-      "hash": "sha256-TQMpzZ5y8kIOXKFXJMv+b/puX9KIg2FRYnEZD9w0Ltc="
+      "hash": "sha256-AbAd+jZlULQKxXYFSKfXKLYQnRfEUeg4ZNHl4M6GLJQ="
    },
    {
-      "mvn-path": "org/ring-clojure/ring-core-protocols/1.13.0/ring-core-protocols-1.13.0.jar",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-CuDZ5U9cQ2xn7/4P09pwsH2DrvoPmZ3AYcdTLk7E61w="
+      "mvn-path": "org/msgpack/msgpack/0.6.12/msgpack-0.6.12.jar",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-4JymXYUgSI6ApdxCaEior8z9QPSi6zuWRgQlldO9m14="
    },
    {
-      "mvn-path": "org/ring-clojure/ring-core-protocols/1.13.0/ring-core-protocols-1.13.0.pom",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-Yk/LF6pMW5Tw5Dp0wTIrr6/Ale2o1QCqqsTYwwlKpKY="
+      "mvn-path": "org/msgpack/msgpack/0.6.12/msgpack-0.6.12.pom",
+      "mvn-repo": "https://repo1.maven.org/maven2/",
+      "hash": "sha256-lEl9jwL43oFZpbfVE24BD1f12axliGES7O2GlcUFbe4="
    },
    {
-      "mvn-path": "org/ring-clojure/ring-websocket-middleware/0.2.1/ring-websocket-middleware-0.2.1.jar",
+      "mvn-path": "org/ring-clojure/ring-core-protocols/1.15.3/ring-core-protocols-1.15.3.jar",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-2d3B369xBMuJr8imgnRrzIbG/oKZ9DgulVzHf+QD/4c="
+      "hash": "sha256-les1EK5xBCc4p2eSaymVSGXgEtqI8Tu/roI7+9d9Avw="
    },
    {
-      "mvn-path": "org/ring-clojure/ring-websocket-middleware/0.2.1/ring-websocket-middleware-0.2.1.pom",
+      "mvn-path": "org/ring-clojure/ring-core-protocols/1.15.3/ring-core-protocols-1.15.3.pom",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-geZT2NZSl92xlKe1VGL9vLrWBJZ9EDfxx5ANVN9SHvM="
+      "hash": "sha256-5AT9lCnTs+9UKPXPgw8HlY79V6hVp8nsaAmwPzwvG1M="
    },
    {
-      "mvn-path": "org/ring-clojure/ring-websocket-protocols/1.13.0/ring-websocket-protocols-1.13.0.jar",
+      "mvn-path": "org/ring-clojure/ring-websocket-protocols/1.15.3/ring-websocket-protocols-1.15.3.jar",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-lzsFA+cR8mxTjJzRYK2XY43z9l08Do9whdKKJhD5l8g="
+      "hash": "sha256-aE4bRgOaRFIp5+kA13+WJ+QK6WUUlbE3PHCEVVoRAeQ="
    },
    {
-      "mvn-path": "org/ring-clojure/ring-websocket-protocols/1.13.0/ring-websocket-protocols-1.13.0.pom",
+      "mvn-path": "org/ring-clojure/ring-websocket-protocols/1.15.3/ring-websocket-protocols-1.15.3.pom",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-oLLU3iXdPWNptThQLeay5UJcKxyOM6GQKZgIS4o4EWs="
+      "hash": "sha256-SK+Ln7xwzgCgM5lFhckR5IND3PkmILZ7Ji9iT6UDm5g="
    },
    {
      "mvn-path": "org/slf4j/slf4j-api/1.7.36/slf4j-api-1.7.36.jar",
@@ -855,6 +1260,16 @@
      "mvn-repo": "https://repo1.maven.org/maven2/",
      "hash": "sha256-Z3XeNvNR9MdFCL/+qtZAIceVhx/ZRIXsdsPhduUwU7g="
    },
+    {
+      "mvn-path": "prismatic/schema/1.1.12/schema-1.1.12.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-t/uQ9AKwdu5wKracrzn0SiGq+i4TOZFiWLgsiaeXHbg="
+    },
+    {
+      "mvn-path": "prismatic/schema/1.1.12/schema-1.1.12.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-bUkp9AkJtNLYxBjJekPaQnvJQSp5zz61OPFbpxTCJSo="
+    },
    {
      "mvn-path": "progrock/progrock/0.1.2/progrock-0.1.2.jar",
      "mvn-repo": "https://repo.clojars.org/",
@@ -875,70 +1290,30 @@
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-At+3ryDvgcJTZQVfYCjoscwpBdCyaLuJzEKM2nIwo2U="
    },
-    {
-      "mvn-path": "ring/ring-anti-forgery/1.4.0/ring-anti-forgery-1.4.0.jar",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-Z0itZOlIfEQ4HwhHU4WoyPzkO3hXWbY/kCygSSaXOz8="
-    },
-    {
-      "mvn-path": "ring/ring-anti-forgery/1.4.0/ring-anti-forgery-1.4.0.pom",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-guNEM3RUHq9/pMc/GBjrEzTJpVhtWKCXl7uD7ye+g2A="
-    },
-    {
-      "mvn-path": "ring/ring-codec/1.2.0/ring-codec-1.2.0.jar",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-b9itBQBiBVtXtzgRBnH2j0NXdEQ9GCbmL07GTSxFZcI="
-    },
    {
      "mvn-path": "ring/ring-codec/1.2.0/ring-codec-1.2.0.pom",
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-de3pMoKzj49m+yTFILdNGDfQsbtdpUIW+AOglmzp2s4="
    },
    {
-      "mvn-path": "ring/ring-core/1.11.0/ring-core-1.11.0.pom",
+      "mvn-path": "ring/ring-codec/1.3.0/ring-codec-1.3.0.jar",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-4AnoLJdSIHaEyCMqqLHgDAGRG1VLpHTUwiSLGEr47kA="
+      "hash": "sha256-oxdtWPK54uTixsdcBtHfKxYiR+4JupjVJVR+nlnIgO8="
    },
    {
-      "mvn-path": "ring/ring-core/1.13.0/ring-core-1.13.0.jar",
+      "mvn-path": "ring/ring-codec/1.3.0/ring-codec-1.3.0.pom",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-qyDIz0gvmRO2Ech8xmnwsONQB+t2fDCLpYRAl06LgR0="
+      "hash": "sha256-7NTqazbyzHjn3jGoUIS5rmFdWLihb9Gj4GuVT9HVxxQ="
    },
    {
-      "mvn-path": "ring/ring-core/1.13.0/ring-core-1.13.0.pom",
+      "mvn-path": "ring/ring-core/1.15.3/ring-core-1.15.3.jar",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-QXfegvVoaQ2rDDWprFQFW4tYFjxxm933D/t+VAiJt98="
+      "hash": "sha256-TY2XCYiY4z6Lt40/DyiwscjO3m2IujpOw17ljpdAB7w="
    },
    {
-      "mvn-path": "ring/ring-defaults/0.6.0/ring-defaults-0.6.0.jar",
+      "mvn-path": "ring/ring-core/1.15.3/ring-core-1.15.3.pom",
      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-HM9l8iRYVXq+segdDDa+Id/C+FmpABE/cqdNvhBc06Y="
-    },
-    {
-      "mvn-path": "ring/ring-defaults/0.6.0/ring-defaults-0.6.0.pom",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-d7DxPmcpVzJf6xjbTHjp5KAS4+UQEEuHFwhDBWAXj1o="
-    },
-    {
-      "mvn-path": "ring/ring-headers/0.4.0/ring-headers-0.4.0.jar",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-d31Q9COKRgl4mrKQsAcNld5/72UPN0EuhQczwXdENJk="
-    },
-    {
-      "mvn-path": "ring/ring-headers/0.4.0/ring-headers-0.4.0.pom",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-XNQNCCBJsKSvYgDzPplpfiRAK0xrGhJ6zjnlzpMGyx8="
-    },
-    {
-      "mvn-path": "ring/ring-ssl/0.4.0/ring-ssl-0.4.0.jar",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-K87le9GjOe01TMt41bkDHlXhly+9jk4DZ/udBls6Mpw="
-    },
-    {
-      "mvn-path": "ring/ring-ssl/0.4.0/ring-ssl-0.4.0.pom",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-HHmMD/cPNu7HwRubeajXYOBDYK1y9x9F9KhRytq2AQw="
+      "hash": "sha256-NPKQlHc3j00ir6LHeUH8RXmAijy6lZsG8euvHtMa1x0="
    },
    {
      "mvn-path": "slingshot/slingshot/0.12.2/slingshot-0.12.2.jar",
@@ -950,6 +1325,16 @@
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-SrxOK5ppxzvTc+gy0/AOWQZ4Q/+DUe/V7rsfOCTbnFE="
    },
+    {
+      "mvn-path": "tech/droit/clj-diff/1.0.1/clj-diff-1.0.1.jar",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-ZnTq41/jMQHEdHLgs6JGuh2aFwvOzOTuSaxkbcdOpLc="
+    },
+    {
+      "mvn-path": "tech/droit/clj-diff/1.0.1/clj-diff-1.0.1.pom",
+      "mvn-repo": "https://repo.clojars.org/",
+      "hash": "sha256-V7Sh1HoKMFlY7HNgBEpuF4nKhGJq4wIRKemo1UJDtgo="
+    },
    {
      "mvn-path": "tigris/tigris/0.1.2/tigris-0.1.2.jar",
      "mvn-repo": "https://repo.clojars.org/",
@@ -959,26 +1344,6 @@
      "mvn-path": "tigris/tigris/0.1.2/tigris-0.1.2.pom",
      "mvn-repo": "https://repo.clojars.org/",
      "hash": "sha256-H9VZA1l1INzUrnbmoz7/XjWmFUIrutKo7ZrDMqr75KA="
-    },
-    {
-      "mvn-path": "vvvvalvalval/scope-capture-nrepl/0.3.1/scope-capture-nrepl-0.3.1.jar",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-M8lO7sWNJpvTomq/N8utgfGghk742Wd5GYfTDeZc9cM="
-    },
-    {
-      "mvn-path": "vvvvalvalval/scope-capture-nrepl/0.3.1/scope-capture-nrepl-0.3.1.pom",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-8Fa6X1vBnqcSa5LUa/NWI3NG58sLk13s96NuSqCSt1Q="
-    },
-    {
-      "mvn-path": "vvvvalvalval/scope-capture/0.3.2/scope-capture-0.3.2.jar",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-w9+kis07e4yX5IrA21Dl0bTffsAoShp1QWvIg5lnfoc="
-    },
-    {
-      "mvn-path": "vvvvalvalval/scope-capture/0.3.2/scope-capture-0.3.2.pom",
-      "mvn-repo": "https://repo.clojars.org/",
-      "hash": "sha256-jhHu+a80ZnzaUTeE+iuQidcK5SF4P2zJQb6fzEpujmQ="
    }
  ]
 }
--- a/doerg/default.nix
+++ b/doerg/default.nix
@@ -7,6 +7,7 @@
 , fake-git
 , our-tex ? callPackage ./our-tex.nix {}
 , makeWrapper
+, writeText
 }:

 let
@@ -23,11 +24,21 @@ let
  plex = ibm-plex-web.override {
    families = [ "math" "serif" "sans" "sans-kr" ];
  };
+
  bin-path = lib.makeBinPath [
    doerg-parser
    our-tex
    doerg-temml-worker
  ];
+
+  doerg-config = writeText "doerg-extra-config.edn" ''
+    #:net.deertopia.doerg
+    {:ibm-plex-web "${ibm-plex-web}"
+     :latex "${lib.getExe' our-tex "xelatex"}"
+     :dvisvgm "${lib.getExe' our-tex "dvisvgm"}"
+     :doerg-temml-worker "${lib.getExe doerg-temml-worker}"
+     :doerg-parser "${lib.getExe doerg-parser}"}
+  '';
 in mkCljBin' {
  name = "net.deertopia/doerg";
  version = "0.1.0";
@@ -50,12 +61,11 @@ in mkCljBin' {
    plex
    our-tex
  ];
+  preBuild = ''
+    cp ${doerg-config} resources/net/deertopia/doerg/extra-config.edn
+  '';
  doCheck = true;
  checkPhase = ''
    clojure -M:test
  '';
-  postInstall = ''
-    wrapProgram $out/bin/doerg \
-      --prefix PATH : ${bin-path}
-  '';
 }
--- a/doerg/deps.edn
+++ b/doerg/deps.edn
@@ -7,10 +7,12 @@
        {:git/sha "531d629b7f05f37232261cf9e8927a4b5915714f"}
        hiccup/hiccup {:mvn/version "2.0.0-RC4"}
        com.rpl/specter {:mvn/version "1.1.6"}
-        lambdaisland/deep-diff2 {:mvn/version "2.12.219"}
        mvxcvi/clj-cbor {:mvn/version "1.1.1"}
-        ch.qos.logback/logback-classic {:mvn/version "1.1.3"}}
- :paths ["src" "resources" "test"]
+        ch.qos.logback/logback-classic {:mvn/version "1.1.3"}
+        org.clojure/test.check {:mvn/version "1.1.3"}
+        aero/aero {:mvn/version "1.1.6"}}
+ :paths ["src" "resources"]
 :aliases
 {:test {:extra-deps {lambdaisland/kaocha {:mvn/version "1.91.1392"}}
+         :extra-paths ["test"]
         :main-opts ["-m" "kaocha.runner"]}}}
--- a/doerg/doerg-parser/default.nix
+++ b/doerg/doerg-parser/default.nix
@@ -10,4 +10,5 @@ buildNpmPackage {
  npmDeps = importNpmLock { npmRoot = ./.; };
  npmConfigHook = importNpmLock.npmConfigHook;
  dontNpmBuild = true;
+  meta.mainProgram = "doerg-parser";
 }
--- a/doerg/doerg-parser/index.js
+++ b/doerg/doerg-parser/index.js
@@ -2,13 +2,17 @@

 const { parse } = require ("uniorg-parse/lib/parser.js");

+const opts = {
+    trackPosition: true
+}
+
 async function main () {
    const chunks = []
    for await (const chunk of process.stdin) {
 	chunks.push (chunk)
    }
    const orgText = Buffer.concat (chunks).toString ("utf8")
-    process.stdout.write (JSON.stringify (parse (orgText)))
+    process.stdout.write (JSON.stringify (parse (orgText, opts)))
 }

 main ()
--- a/doerg/doerg-temml-worker/default.nix
+++ b/doerg/doerg-temml-worker/default.nix
@@ -18,4 +18,5 @@ buildNpmPackage {
  npmDeps = importNpmLock { npmRoot = ./.; };
  npmConfigHook = importNpmLock.npmConfigHook;
  dontNpmBuild = true;
+  meta.mainProgram = "doerg-temml-worker";
 }
--- a/doerg/resources/net/deertopia/doerg/default-config.edn
+++ b/doerg/resources/net/deertopia/doerg/default-config.edn
@@ -0,0 +1,13 @@
+#:net.deertopia.doerg
+{:ibm-plex-web #or [#xdg-data-dir "ibm-plex-web"
+                    #env IBM_PLEX_WEB]
+ :latex "xelatex"
+ :dvisvgm "dvisvgm"
+ :doerg-temml-worker
+ #profile {:dev-publisher "../doerg/doerg-temml-worker/index.js"
+           :dev-doerg "./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"
+           :default "doerg-parser"}}
--- a/doerg/resources/net/deertopia/doerg/native-prelude.tex
+++ b/doerg/resources/net/deertopia/doerg/native-prelude.tex
@@ -0,0 +1,5 @@
+% Default uses arrow glyphs from the active font, which are kinda ugly in the
+% case of Plex.
+\tikzcdset{
+  arrow style=tikz
+}
--- a/doerg/resources/net/deertopia/doerg/preview-template.tex
+++ b/doerg/resources/net/deertopia/doerg/preview-template.tex
@@ -7,50 +7,13 @@
 \usepackage{quiver}
 \usepackage{tikz}
 \usepackage{amscd}
+\usepackage{metalogo}

-\newcommand{\catname}[1]{\textbf{#1}}
-\newcommand{\C}[1]{\catname{#1}}
-
-% Specific categories
-\newcommand{\Set}{\catname{Set}}
-\newcommand{\Cat}{\catname{Cat}}
-\newcommand{\CAT}{\catname{CAT}}
-\newcommand{\Grp}{\catname{Grp}}
-
-% Common objects and functions
-\newcommand{\Ob}{\operatorname{Ob}}
-\newcommand{\op}{\text{op}}
-\newcommand{\opof}[1]{{#1}^{\text{op}}}
-% \id{x} is the identity morphism on x.
-\newcommand{\id}[1]{1_{#1}}
-% \Id{C} is the identity functor on C.
-\newcommand{\Id}[1]{1_{#1}}
-\newcommand{\Mor}{\operatorname{Mor}}
-\newcommand{\homset}[3]{{{#1} \left[ {#2} \to {#3} \right]}}
-
-% Constructions of categories.
-\newcommand{\FunctorCategory}[2]{\left[#1, #2\right]}
-\newcommand{\Funct}[2]{\FunctorCategory{#1}{#2}} % Deprecated.
-\newcommand{\ArrowCategory}[1]{{#1}^\to}
-
-% Semantic aliases
-\newcommand{\monicto}{\rightarrowtail}
-\newcommand{\epicto}{\twoheadrightarrow}
-\newcommand{\naturalto}{\Rightarrow}
-\newcommand{\isoto}{\cong}
-\newcommand{\equivto}{\simeq}
-
-\newcommand{\naturaltrans}[2]{#1 \naturalto #2} % Deprecated.
-\newcommand{\horizontalcompose}{\ast}
-
-% Optics
-\newcommand{\opticname}[1]{\textbf{#1}}
-\newcommand{\optic}[3]{\opticname{#1}^\prime\;#2\;#3}
-\newcommand{\Optic}[5]{\opticname{#1}\;#2\;#3\;#4\;#5}
+% {{preamble}}

 \begin{document}
 \setlength\abovedisplayskip{0pt} % Remove padding before equation environments.
-%% \color[rgb]{0.000,0.000,0.004}\special{dvisvgm:currentcolor on}\setcounter{equation}{0}%

 % {{contents}}
+
 \end{document}
--- a/doerg/resources/net/deertopia/doerg/tuftesque.css
+++ b/doerg/resources/net/deertopia/doerg/tuftesque.css
@@ -104,6 +104,7 @@ section {
 p,
 dl,
 ol,
+.latex-fragment,
 ul {
    font-size: 1.2rem;
    line-height: 1.5rem;
@@ -114,6 +115,7 @@ p {
    margin-bottom: 1.4rem;
    padding-right: 0;
    vertical-align: baseline;
+    hyphens: auto;
 }

 /* Chapter Epigraphs */
@@ -549,10 +551,15 @@ figure.fullwidth figcaption {

 .latex-fragment.display-math
 { display: block
-; width: 55%
 /* Center it — do we want to do that? */
 ; align-items: center
 ; justify-content: center
 ; display: flex
 ; max-width: 55%
+; width: 55%
+}
+
+p > .latex-fragment.display-math
+{ max-width: 100%
+; width: 100%
 }
--- a/doerg/scratch.clj
+++ b/doerg/scratch.clj
@@ -0,0 +1,27 @@
+(ns scratch
+  (:require [clojure.spec.alpha :as s]
+            [spec-dict.main :refer [dict]]
+            [clojure.test.check.generators :as gen]))
+
+
+(defmulti node-spec :type)
+
+(s/def ::node
+  (s/multi-spec node-spec :type))
+
+(s/def ::children (s/coll-of ::node :kind vector?))
+
+(s/def ::value nat-int?)
+
+(defmethod node-spec :branch [_]
+  (dict {:children ::children})
+  #_(s/keys :req-un [::children]))
+
+(defmethod node-spec :leaf [_]
+  (dict {:value ::value})
+  #_
+  (s/keys :req-un [::value]))
+
+(comment
+  (binding [s/*recursion-limit* 1]
+    (gen/generate (s/gen ::node))))
--- a/doerg/src/net/deertopia/doerg/config.clj
+++ b/doerg/src/net/deertopia/doerg/config.clj
@@ -1,43 +1,73 @@
 (ns net.deertopia.doerg.config
  (:require [clojure.spec.alpha :as s]
            [babashka.fs :as fs]
-            [spec-dict.main :refer [dict]]))
+            [spec-dict.main :refer [dict]]
+            [aero.core :as aero]
+            [net.deertopia.doerg :as-alias d]
+            [clojure.java.io :as io]))

-(s/def ::config
-  (s/keys :req [::ibm-plex-web
-                ::latex
-                ::dvisvgm
-                ::doerg-temml-worker
-                ::doerg-parser]))
+(s/def ::d/config
+  (s/keys :req [::d/ibm-plex-web
+                ::d/latex
+                ::d/dvisvgm
+                ::d/doerg-temml-worker
+                ::d/doerg-parser]))

-(s/def ::file
-  #(or (instance? java.io.File %)
-       (string? %)))
+(s/def ::d/directory
+  (s/conformer #(fs/file %)))

-(s/def ::executable #(or (fs/executable? %)
-                         (and (fs/relative? %)
-                              (fs/which %))))
+(s/def ::d/file
+  (s/conformer #(-> % fs/expand-home fs/file)))
+
+(s/def ::d/executable
+  (s/conformer
+   ;; I'd love to use `fs/which` here, but it's fairly problematic to
+   ;; check `fs/executable?` at… build time (which `fs/which` does)?
+   ;; Wait… what?  Do I know how Clojure compilation works?
+   #(or #_(some-> % fs/expand-home fs/which fs/file)
+        (some-> % fs/expand-home fs/file)
+        ::s/invalid)))
+
+(s/def ::d/ibm-plex-web ::d/directory)
+
+(s/def ::d/latex ::d/executable)
+
+(s/def ::d/dvisvgm ::d/executable)
+
+(s/def ::d/doerg-temml-worker ::d/executable)
+
+(s/def ::d/doerg-parser ::d/executable)
+
+(defmethod aero/reader 'xdg-data-dir
+  [_opts tag value]
+  "Aero tag to search for a directory on $XDG_DATA_DIRS."
+  (some #(let [x (fs/path % value)]
+           (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))))))))
+
+(def read-config (make-read-config ::d/config))

 (def default
-  {::ibm-plex-web
-   (fs/file (some #(let [x (fs/path % "ibm-plex-web")]
-                     (and (fs/exists? x) x))
-                  (fs/split-paths (System/getenv "XDG_DATA_DIRS"))))
-   ::latex "xelatex"
-   ::dvisvgm "dvisvgm"
-   ;; TODO: Can we automatically set this to "./doerg-temml-worker/index.js" in
-   ;; a development environment?
-   ::doerg-temml-worker "doerg-temml-worker"
-   ::doerg-parser "doerg-parser"})
+  (read-config
+   ;; 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")))

 (def ^:dynamic *cfg* default)
-
-(s/def ::ibm-plex-web ::file)
-
-(s/def ::latex ::executable)
-
-(s/def ::dvisvgm ::executable)
-
-(s/def ::doerg-temml-worker ::executable)
-
-(s/def ::doerg-parser ::executable)
--- a/doerg/src/net/deertopia/doerg/element.clj
+++ b/doerg/src/net/deertopia/doerg/element.clj
@@ -1,18 +1,26 @@
 (ns net.deertopia.doerg.element
-  (:require [babashka.process :as p]
-            [net.deertopia.doerg.common :as common]
-            [clojure.string :as str]
-            [clojure.zip]
-            [babashka.fs :as fs]
-            [clojure.java.io :as io]
+  (:refer-clojure :exclude [read-string type])
+  (:require [babashka.fs :as fs]
+            [babashka.process :as p]
            [cheshire.core :as json]
+            [clojure.core.match :refer [match]]
+            [net.deertopia.doerg :as-alias doerg]
+            [clojure.java.io :as io]
+            [clojure.set :as set]
            [clojure.spec.alpha :as s]
-            [spec-dict.main :refer [dict]]
-            [net.deertopia.doerg.config :as cfg]
+            [clojure.string :as str]
+            [clojure.test.check.generators :as gen]
+            [clojure.tools.logging.readable :as lr]
+            [clojure.zip :as z]
            [com.rpl.specter :as sp]
-            [clojure.tools.logging.readable :as lr])
-  (:import (java.util UUID))
-  (:refer-clojure :exclude [read-string]))
+            [com.rpl.specter.zipper :as sz]
+            [net.deertopia.doerg.common :as common]
+            [net.deertopia.doerg.config :as cfg]
+            [spec-dict.main :refer [dict]]
+            [clojure.tools.logging :as l])
+  (:import
+   (java.util UUID)))
+


 (def ^:dynamic *uniorg-timeout-duration*
@@ -29,19 +37,21 @@
                 :or {in *in*}}]
  (let [r (-> (p/process
               {:in in :out :string}
-               (::cfg/doerg-parser cfg/*cfg*))
+               (-> cfg/*cfg* ::doerg/doerg-parser str))
              (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)
+(declare gather-first-section gather-latex-paragraphs element-types)

-(defn read-string [s & {:keys [post-processors]
-                        :or {post-processors [gather-first-section]}}]
+(defn read-string
+  [s & {:keys [post-processors]
+        :or {post-processors [gather-first-section
+                              gather-latex-paragraphs]}}]
  (let [apply-post-processors (apply comp (reverse post-processors))]
    (with-in-str s
-     (-> (uniorg :in *in*)
-         apply-post-processors))))
+      (-> (uniorg :in *in*)
+          apply-post-processors))))



@@ -60,6 +70,9 @@
  (and (map? element)
       (contains? element :type)))

+(defn type [element]
+  (:type element))
+
 (defn of-type?
  "Return truthy if the Org node `element` is of type `type`. In the
  vararg case, return truthy if `element` is of any of the types
@@ -196,6 +209,22 @@
     :first-section-nodes of-first-section
     :rest remaining-nodes*}))

+(defn- element-bounds [& nodes]
+  (reduce (fn [acc {:keys [contents-begin contents-end]}]
+            (if (and (nat-int? contents-begin)
+                     (nat-int? contents-end))
+              (-> acc
+                  (update
+                   :contents-begin
+                   #(min (or % Integer/MAX_VALUE) contents-begin))
+                  (update
+                   :contents-end
+                   #(max (or % Integer/MIN_VALUE) contents-end)))
+              acc))
+          {:contents-begin nil
+           :contents-end nil}
+          nodes))
+
 (defn gather-first-section [node]
  (assert (of-type? node "org-data")
          "`gather-doerg-data` should be applied to the document root.")
@@ -203,8 +232,232 @@
        (split-sections (:children node))
        ;; TODO: Construct `:contents-begin` and `:contents-end` data
        ;; by spanning the children.
-        new-children (concat top-level-nodes
-                             (list {:type "section"
-                                    :children first-section-nodes})
-                             rest)]
+        first-section (merge {:type "section"
+                              :children (vec first-section-nodes)}
+                             (apply element-bounds first-section-nodes))
+        new-children (vec (concat top-level-nodes
+                                  (list first-section)
+                                  rest))]
    (assoc node :children new-children)))
+
+(defn- newline-final-paragraph?
+  "Is `e` a paragraph, and does it end with a newline?"
+  [e]
+  (and (of-type? e "paragraph")
+       (some-> (-> e :position :end :column)
+               (= 1))))
+
+(defn consequtive-elements?
+  "Returh truthy if each successive pair of elements is NOT separated
+  by at least one explicit paragraph break; i.e. a blank line."
+  [& elements]
+  (match elements
+    ([(e₁ :guard newline-final-paragraph?) e₂ & es] :seq)
+    (and (= (-> e₁ :position :end :line)
+            (-> e₂ :position :start :line))
+         (recur es))
+    ([e₁ e₂ & es] :seq)
+    (and (= (-> e₁ :position :end :line inc)
+            (-> e₂ :position :start :line))
+         (recur es))
+    ([_] :seq) true
+    ([] :seq) true))
+
+(defn swallow
+  ([predator prey]
+   (assert (greater-element? predator))
+   (-> predator
+       (update :children #(conj % prey))
+       (assoc-in [:position :end] (-> prey :position :end))))
+  ([predator prey & more-prey]
+   (reduce swallow predator (cons prey more-prey))))
+
+(defn- paragraph-followed-by-tex? [children]
+  (match children
+    [(para :guard #(of-type? % "paragraph"))
+     (tex :guard #(of-type? % "latex-environment"))
+     & _]
+    (consequtive-elements? para tex)
+    :else false))
+
+(defn- paragraph-followed-by-paragraph? [children]
+  (match children
+    [(para₁ :guard #(of-type? % "paragraph"))
+     (para₂ :guard #(of-type? % "paragraph"))
+     & _]
+    (consequtive-elements? para₁ para₂)
+    :else false))
+
+(defn gather-latex-paragraphs [node]
+  (->> node
+       (sp/transform
+        [postorder-walker (sp/must :children)]
+        (fn [children]
+          (loop [acc []
+                 cs (vec children)]
+            (match cs
+              ;; CASE: A paragraph followed by a LaTeX environment.
+              ;; If there are no blank lines separating the paragraph
+              ;; from the LaTeX environment, the LaTeX environment
+              ;; shall become a child of the paragraph.
+              ([para tex & rest] :guard paragraph-followed-by-tex?)
+              (recur acc (vec (cons (swallow para tex) rest)))
+              ;; CASE: Similar to the paragraph-followed-by-tex case,
+              ;; but instead of swallowing the entire second element,
+              ;; we swallow the /children/ of the second element,
+              ;; since paragraphs cannot be nested.
+              ([para₁ para₂ & rest]
+               :guard paragraph-followed-by-paragraph?)
+              (recur acc (vec (cons (apply swallow para₁ (:children para₂))
+                                    rest)))
+              ;; CASE: Irrelevant or empty!
+              [c & rest]
+              (recur (conj acc c) rest)
+              [] acc))))))
+
+
+;;; Specs (top-level)
+
+;; Data taken from uniorg/index.d.ts
+
+(comment
+  (defn- typescript-enum->set [s]
+    (as-> s
+        it
+      (str/split it #" \| ")
+      (map camel->kebab it)
+      (into #{} it))))
+
+(def greater-element-types
+  #{"org-data" "section" "property-drawer" "drawer" "plain-list"
+    "list-item" "quote-block" "verse-block" "center-block"
+    "special-block" "footnote-definition" "table"})
+
+(def element-types
+  #{"list-item-tag" "src-block" "comment-block" "latex-environment"
+    "keyword" "paragraph" "node-property" "example-block" "clock"
+    "planning" "diary-sexp" "fixed-width" "export-block"
+    "horizontal-rule" "comment" "table-row" "headline"})
+
+(def recursive-object-types
+  #{"citation" "footnote-reference" "superscript" "table-cell" "link"
+    "italic" "citation-common-prefix" "subscript" "citation-prefix"
+    "citation-common-suffix" "strike-through" "citation-reference"
+    "bold" "underline"})
+
+(def object-types
+  #{"line-break" "citation-suffix" "statistics-cookie" "timestamp"
+    "text" "verbatim" "citation-key" "export-snippet" "latex-fragment"
+    "entity" "code"})
+
+(s/def ::greater-element-type greater-element-types)
+(s/def ::element-type element-types)
+(s/def ::object-type (set/union recursive-object-types object-types))
+(s/def ::recursive-object-type recursive-object-types)
+
+(s/def ::contents-begin nat-int?)
+(s/def ::contents-end nat-int?)
+
+(defmulti node-spec :type)
+
+(defn- unimplemented-spec [x]
+  (lr/warnf "unimplemented method for %s" x)
+  (s/with-gen any?
+    (constantly (gen/return {}))))
+
+(defmethod node-spec :default [x] (unimplemented-spec x))
+
+(def ^:private nfe
+  "NFE — “no further expectations.” Used in sub-specs of `::element`
+  et al. for elements with no additional structure beyond that
+  provided by their parents."
+  (s/with-gen any?
+    (constantly (gen/return {}))))
+
+(s/def ::node
+  (s/multi-spec node-spec :type))
+
+(s/def :object/type ::object-type)
+
+(s/def ::object
+  (s/keys :req-un [:object/type]))
+
+(s/def :element/children (s/coll-of ::object :kind vector?))
+(s/def :element/type ::element-type)
+
+(s/def ::element
+  (s/keys :opt-un [::contents-begin ::contents-end]
+          :req-un [:element/children :element/type]))
+
+(s/def :greater-element/children
+  (s/coll-of (s/merge
+              (dict {:type (set/union greater-element-types
+                                      element-types)})
+              ::node)
+             :kind vector?))
+
+(s/def :greater-element/type ::greater-element-type)
+
+(s/def ::greater-element
+  (s/keys :req-un [::contents-begin ::contents-end
+                   :greater-element/children
+                   :greater-element/type]))
+
+(s/def :recursive-object/children
+  (s/coll-of
+   (s/merge
+    (dict {:type ::object-type})
+    ::node)
+   :kind vector?))
+
+(s/def :recursive-object/type ::object-type)
+
+(s/def ::recursive-object
+  (s/keys :opt-un [::contents-begin ::contents-end]
+          :req-un [:recursive-object/children
+                   :recursive-object/type]))
+
+(comment
+  (use 'net.deertopia.doerg.repl)
+  (def doc (-> "test/net/deertopia/doerg/element_test/paragraph-with-multiple-latex.org"
+               slurp
+               (read-string :post-processors
+                            [gather-first-section])))
+  (s/explain ::node doc)
+  (binding [s/*recursion-limit* 1]
+    (gen/generate (s/gen ::node)))
+  (sp/select [postorder-walker (sp/must :children)
+              (sp/continuous-subseqs)]
+             doc))
+
+(s/def ::todo-keyword string?)
+(s/def ::priority string?)
+(s/def ::commented boolean?)
+(s/def ::level nat-int?)
+(s/def ::tags (s/coll-of string? :kind vector?))
+
+
+;;; Specs (specific elements)
+
+(def ^:private string-value (dict {:value string?}))
+
+(defmethod node-spec "text" [_] (s/merge ::object string-value))
+(defmethod node-spec "verbatim" [_] (s/merge ::object string-value))
+(defmethod node-spec "code" [_] (s/merge ::object string-value))
+(defmethod node-spec "bold" [_] ::recursive-object)
+(defmethod node-spec "italic" [_] ::recursive-object)
+
+(defmethod node-spec "headline" [_]
+  (s/merge ::element
+           (dict {:todo-keyword (s/nilable ::todo-keyword)
+                  :priority (s/nilable ::priority)
+                  :level ::level
+                  :commented ::commented
+                  :raw-value string?
+                  :tags ::tags})))
+
+(defmethod node-spec "org-data" [_]
+  ::greater-element)
+
+(defmethod node-spec "section" [_]
+  ::greater-element)
--- a/doerg/src/net/deertopia/doerg/html.clj
+++ b/doerg/src/net/deertopia/doerg/html.clj
@@ -1,7 +1,6 @@
 (ns net.deertopia.doerg.html
  "Common HTML elements and utilities"
  (:require [clojure.java.io :as io]
-            [net.deertopia.doerg.config :as cfg]
            [babashka.fs :as fs]))

 #_
--- a/doerg/src/net/deertopia/doerg/render.clj
+++ b/doerg/src/net/deertopia/doerg/render.clj
@@ -9,9 +9,7 @@
            [net.deertopia.doerg.html :as doerg-html]
            [hiccup2.core :as hiccup]
            [clojure.pprint]
-            ;; #_
            [net.deertopia.doerg.tex :as tex]
-            ;; [net.deertopia.doerg.tex.native :as tex-native]
            [net.deertopia.doerg.tex.temml :as tex-temml]
            [clojure.zip :as z]
            [babashka.fs :as fs]))
@@ -58,6 +56,10 @@
                 (lr/error e "Error in renderer" {:node node})
                 (render-renderer-error e)))))))

+(def default-language
+  "Default language, used in the lang attribute of the body tag."
+  "en")
+
 (defn org-document
  "Recursively render an Org-mode document to Hiccup."
  [doc]
@@ -68,7 +70,7 @@
       [:head
        [:title "org document"]
        doerg-html/head]
-       [:body
+       [:body {:lang default-language}
        [:article
         rendered]]])))

@@ -341,9 +343,7 @@
 (defmethod org-keyword "TITLE" [{:keys [value]}]
  [:h1 value])

-;; Completely ignore the LATEX_COMPILER keyword.
 (defmethod org-keyword "LATEX_COMPILER" [_] nil)
-
 (defmethod org-keyword "LATEX_HEADER" [_] nil)

 ;; Not sure how to deal with this one yet.
--- a/doerg/src/net/deertopia/doerg/repl.clj
+++ b/doerg/src/net/deertopia/doerg/repl.clj
@@ -5,7 +5,8 @@
            [clojure.java.io :as io]
            [hiccup2.core :as h]
            [clojure.pprint]
-            [babashka.fs :as fs]))
+            [babashka.fs :as fs]
+            [net.deertopia.doerg :as-alias doerg]))

 (def some-org-file
  #_
@@ -27,19 +28,12 @@
  (fs/delete-if-exists path)
  (fs/create-sym-link path target))

-(defn reconfigure-doerg! []
-  (alter-var-root
-   #'cfg/*cfg*
-   #(assoc %
-           ::cfg/doerg-temml-worker "./doerg-temml-worker/index.js"
-           ::cfg/doerg-parser "./doerg-parser/index.js")))
-
 (defn render-html [& {:keys [src dest]
                      :or {src some-org-file
                           dest "/tmp/doerg-test"}}]
  (fs/create-dirs dest)
  (force-create-sym-link (fs/file dest "ibm-plex-web")
-                         (-> cfg/*cfg* ::cfg/ibm-plex-web))
+                         (-> cfg/*cfg* ::doerg/ibm-plex-web))
  (force-create-sym-link (fs/file dest "deerstar.css")
                         (io/resource "net/deertopia/doerg/deerstar.css"))
  (force-create-sym-link (fs/file dest "tuftesque.css")
--- a/doerg/src/net/deertopia/doerg/tex.clj
+++ b/doerg/src/net/deertopia/doerg/tex.clj
@@ -34,33 +34,24 @@
      ;; it doesn't get e.g. TikZ arrows.
      (str/replace #"stroke=['\"]#000['\"]" "stroke=\"currentColor\"")))

-(def ^:dynamic *save-snippets?* false)
-
 (defn render-snippets [snippet-promises]
-  (with-redefs [fs/delete-tree
-                (fn
-                  ([path]
-                   (l/warnf "refusing to delete %s" path))
-                  ([path opts]
-                   (lr/warnf "refusing to delete %s with opts %s"
-                             path opts)))]
-    (fs/with-temp-dir [svg-dir {:prefix "doerg-svg-"}]
-      (let [rendered-snippets
-            (delay (->> snippet-promises
-                        (map first)
-                        (apply native/render svg-dir)))]
-        (doseq [[snippet p] snippet-promises]
-          (try (let [temml (temml/render snippet)]
-                 (->> (if (temml/erroneous-output? temml)
-                        (let [tex (get @rendered-snippets snippet)]
-                          (if (:errors tex)
-                            temml
-                            (read-and-patch-generated-svg tex)))
-                        temml)
-                      hiccup/raw (deliver p)))
-               (catch Exception e
-                 (l/error e "Error in TeX thread")
-                 (throw e))))))))
+  (fs/with-temp-dir [svg-dir {:prefix "doerg-svg-"}]
+    (let [rendered-snippets
+          (delay (->> snippet-promises
+                      (map first)
+                      (apply native/render svg-dir)))]
+      (doseq [[snippet p] snippet-promises]
+        (try (let [temml (temml/render snippet)]
+               (->> (if (temml/erroneous-output? temml)
+                      (let [tex (get @rendered-snippets snippet)]
+                        (if (:errors tex)
+                          temml
+                          (read-and-patch-generated-svg tex)))
+                      temml)
+                    hiccup/raw (deliver p)))
+             (catch Exception e
+               (l/error e "Error in TeX thread")
+               (throw e)))))))

 (comment
  (let [snippets (for [x ["\\(\\ifxetex blah \\fi\\)"
--- a/doerg/src/net/deertopia/doerg/tex/native.clj
+++ b/doerg/src/net/deertopia/doerg/tex/native.clj
@@ -7,7 +7,8 @@
            [clojure.string :as str]
            [clojure.tools.logging :as l]
            [babashka.fs :as fs]
-            [net.deertopia.doerg.config :as cfg])
+            [net.deertopia.doerg.config :as cfg]
+            [net.deertopia.doerg :as-alias doerg])
  (:import (java.io ByteArrayOutputStream)))

 (def ^:private scale-divisor 66873.46948423679)
@@ -82,14 +83,14 @@
        acc))))

 (defn- invoke-latex [& {:keys [file output-dir]}]
-  (let [latex (::cfg/latex cfg/*cfg*)]
+  (let [latex (-> cfg/*cfg* ::doerg/latex)]
    (invoke
     {:dir output-dir}
     latex "-no-pdf" "-interaction" "nonstopmode"
     "-output-directory" output-dir file)))

 (defn- invoke-dvisvgm [& {:keys [file output-dir]}]
-  (let [dvisvgm (::cfg/dvisvgm cfg/*cfg*)]
+  (let [dvisvgm (-> cfg/*cfg* ::doerg/dvisvgm)]
    (invoke
     {:dir output-dir}
     dvisvgm "--page=1-" "--optimize" "--clipjoin"
@@ -107,13 +108,21 @@
               (format "%09d.svg" i))]
    (zipmap (reverse snippets) svgs)))

+(defn- read-prelude []
+  (str (-> "net/deertopia/doerg/prelude.tex" io/resource slurp)
+       \newline
+       (-> "net/deertopia/doerg/native-prelude.tex" io/resource slurp)))
+
 (defn- instantiate-preview-template [snippets]
  (let [contents (->> (for [s snippets]
                        (format "\\begin{preview}\n%s\n\\end{preview}" s))
                      (str/join "\n"))]
    (-> (io/resource "net/deertopia/doerg/preview-template.tex")
        slurp
-        (str/replace-first "% {{contents}}" contents))))
+        (str/replace #"% \{\{(contents|preamble)}}"
+                     #(case (second %)
+                        "contents" contents
+                        "preamble" (read-prelude))))))

 (defn render
  "Render a collection of `snippets` to SVGs in `output-dir` using a
--- a/doerg/src/net/deertopia/doerg/tex/temml.clj
+++ b/doerg/src/net/deertopia/doerg/tex/temml.clj
@@ -6,7 +6,8 @@
            [clojure.java.io :as io]
            [clojure.string :as str]
            [clojure.tools.logging :as l]
-            [babashka.fs :as fs])
+            [babashka.fs :as fs]
+            [net.deertopia.doerg :as-alias doerg])
  (:import (java.io ByteArrayOutputStream)))

 (def ^:dynamic *worker-timeout-duration*
@@ -16,14 +17,22 @@

 (def ^:dynamic *worker*)

-(defn worker [& {:keys [preamble]}]
-  (let [doerg-temml-worker (::cfg/doerg-temml-worker cfg/*cfg*)]
+(def ^:private prelude-file
+  (fs/create-temp-file {:prefix "doerg-prelude-"
+                        :suffix ".tex"}))
+
+(defn worker []
+  (let [doerg-temml-worker (-> cfg/*cfg* ::doerg/doerg-temml-worker)]
+    (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)))
--- a/doerg/test/net/deertopia/doerg/config_test.clj
+++ b/doerg/test/net/deertopia/doerg/config_test.clj
@@ -1,8 +0,0 @@
-(ns net.deertopia.doerg.config-test
-  (:require [net.deertopia.doerg.config :as sut]
-            [clojure.test :as t]
-            [clojure.spec.alpha :as s]))
-
-(t/deftest default-config-is-config
-  (t/testing "default config is valid"
-    (t/is (s/valid? ::sut/config sut/default))))
--- a/doerg/test/net/deertopia/doerg/element_test.clj
+++ b/doerg/test/net/deertopia/doerg/element_test.clj
@@ -11,7 +11,8 @@

 (defn- parse-resource [path]
  (-> (str "net/deertopia/doerg/element_test/" path)
-      io/resource slurp sut/read-string))
+      io/resource slurp
+      (sut/read-string)))

 (t/deftest known-greater-elements
  (t/testing "known greater elements satisfy `greater-element?`"
@@ -44,8 +45,71 @@
      true)))

 (t/deftest first-paragraph-under-first-section
-  (t/testing "first paragraph should belong to a section"
-    (t/is (-> (parse-resource "first-paragraph-under-first-section.org")
-              first-paragraph-belongs-to-first-section?))
-    (t/is (not (-> (parse-resource "first-paragraph-under-heading.org")
-                   first-paragraph-belongs-to-first-section?)))))
+  (t/is (-> (parse-resource "first-paragraph-under-first-section.org")
+            first-paragraph-belongs-to-first-section?)))
+
+(t/deftest first-paragraph-under-heading
+  (t/is (-> (parse-resource "first-paragraph-under-heading.org")
+            first-paragraph-belongs-to-first-section?
+            not)))
+
+(defn- walk-types [type & types]
+  [sut/postorder-walker #(apply sut/of-type? % type types)])
+
+(t/deftest paragraph-ending-with-latex
+  (let [doc (parse-resource "paragraph-ending-with-latex.org")
+        type (-> (sp/select-first [(walk-types "paragraph")
+                                   (sp/must :children)
+                                   sp/LAST]
+                                  doc)
+                 sut/type)]
+    (t/is (= "latex-environment" type))))
+
+(t/deftest paragraph-surrounding-latex
+  (let [doc (parse-resource "paragraph-surrounding-latex.org")
+        children (->> doc
+                      (sp/select-first [(walk-types "paragraph")])
+                      :children
+                      (map sut/type))]
+    (t/is (= ["text" "latex-environment" "text"]
+             children))))
+
+(t/deftest paragraph-ending-in-bold-surrounding-latex
+  (let [doc (parse-resource "paragraph-ending-in-bold-surrounding-latex.org")
+        children (->> doc
+                      (sp/select-first [(walk-types "paragraph")])
+                      :children
+                      (map sut/type))]
+    (t/is (= ["text" "bold" "latex-environment" "text"]
+             children))))
+
+(t/deftest paragraph-with-multiple-latex
+  (let [doc (parse-resource "paragraph-with-multiple-latex.org")
+        paragraphs (sp/select (walk-types "paragraph") doc)]
+    (t/is (= 2 (count paragraphs)))
+    (let [[p₁ p₂] paragraphs]
+      (doseq [[p ts] [[p₁ ["text" "latex-environment"
+                           "text" "latex-environment"]]
+                      [p₂ ["text" "latex-environment"
+                           "text" "latex-environment" "text"]]]]
+        (t/is (= ts (sp/select [(sp/must :children)
+                                sp/ALL (sp/view sut/type)] p)))))))
+
+(t/deftest paragraph-with-separate-latex
+  (let [doc (parse-resource "paragraph-with-separate-latex.org")
+        cs (sp/select [(walk-types "section")
+                       (sp/must :children)
+                       sp/ALL
+                       (sp/view sut/type)]
+                      doc)]
+    (t/is (= ["paragraph" "latex-environment"] cs))))
+
+(t/deftest paragraph-surrounding-separate-latex
+  (let [doc (parse-resource "paragraph-surrounding-separate-latex.org")
+        cs (sp/select [(walk-types "section")
+                       (sp/must :children)
+                       sp/ALL
+                       (sp/view sut/type)]
+                      doc)]
+    (t/is (= ["paragraph" "latex-environment" "paragraph"] cs))))
+
--- a/doerg/test/net/deertopia/doerg/element_test/paragraph-ending-in-bold-surrounding-latex.org
+++ b/doerg/test/net/deertopia/doerg/element_test/paragraph-ending-in-bold-surrounding-latex.org
@@ -0,0 +1,7 @@
+#+title: bold-final paragraph surrounding latex
+
+first part of *paragraph*
+\begin{equation*}
+\text{some \LaTeX \}:)}
+\end{equation*}
+last part of paragraph
--- a/doerg/test/net/deertopia/doerg/element_test/paragraph-ending-with-latex.org
+++ b/doerg/test/net/deertopia/doerg/element_test/paragraph-ending-with-latex.org
@@ -0,0 +1,7 @@
+#+title: paragraph ending with latex
+
+here is the paragraph,
+\begin{align*}
+\text{and here} &
+\\ & \text{is the \LaTeX}
+\end{align*}
--- a/doerg/test/net/deertopia/doerg/element_test/paragraph-surrounding-latex.org
+++ b/doerg/test/net/deertopia/doerg/element_test/paragraph-surrounding-latex.org
@@ -0,0 +1,7 @@
+#+title: paragraph surrounding latex
+
+first part of paragraph
+\begin{equation*}
+\text{some \LaTeX \}:)}
+\end{equation*}
+last part of paragraph
--- a/doerg/test/net/deertopia/doerg/element_test/paragraph-surrounding-separate-latex.org
+++ b/doerg/test/net/deertopia/doerg/element_test/paragraph-surrounding-separate-latex.org
@@ -0,0 +1,9 @@
+#+title: paragraphs surrounding separate latex
+
+a paragraph!
+
+\begin{gather*}
+\text{and now, an unrelated latex fragment}
+\end{gather*}
+
+more unrelated text
--- a/doerg/test/net/deertopia/doerg/element_test/paragraph-with-multiple-latex.org
+++ b/doerg/test/net/deertopia/doerg/element_test/paragraph-with-multiple-latex.org
@@ -0,0 +1,24 @@
+#+title: paragraph with multiple latex environments
+
+* interleaved
+
+first part of paragraph
+\begin{equation*}
+\text{first \LaTeX\ environment}
+\end{equation*}
+second part of paragraph
+\begin{equation*}
+\text{second \LaTeX\ environment}
+\end{equation*}
+
+* fenceposted
+
+first fencepost
+\begin{equation*}
+\text{first fenceposted \LaTeX\ environment}
+\end{equation*}
+second fencepost
+\begin{equation*}
+\text{second fenceposted \LaTeX\ environment}
+\end{equation*}
+third fencepost
--- a/doerg/test/net/deertopia/doerg/element_test/paragraph-with-separate-latex.org
+++ b/doerg/test/net/deertopia/doerg/element_test/paragraph-with-separate-latex.org
@@ -0,0 +1,7 @@
+#+title: paragraph with separate latex
+
+a paragraph!
+
+\begin{gather*}
+\text{and now, an unrelated latex fragment}
+\end{gather*}
--- a/publisher/default.nix
+++ b/publisher/default.nix
@@ -9,7 +9,9 @@ mkCljBin {
  projectSrc = ./.;
  lockfile = ../deps-lock.json;
  main-ns = "net.deertopia.publisher.main";
-  buildInputs = [];
+  buildInputs = [
+    doerg
+  ];
  nativeBuildInputs = [
    babashka
  ];
@@ -18,4 +20,8 @@ mkCljBin {
    bb -cp . -m override-deps < deps.edn.old > deps.edn \
      net.deertopia/doerg '{:local/root "${doerg.lib}/${doerg.name}.jar"}'
  '';
+  doCheck = true;
+  checkPhase = ''
+    clojure -M:test
+  '';
 }
--- a/publisher/deps.edn
+++ b/publisher/deps.edn
@@ -1,23 +1,20 @@
 {:deps {org.clojure/clojure {:mvn/version "1.12.0"}
-        http-kit/http-kit {:mvn/version "2.8.0"}
        org.clojure/tools.logging {:mvn/version "1.3.0"}
        hiccup/hiccup {:mvn/version "2.0.0-RC4"}
-        compojure/compojure {:mvn/version "1.7.1"}
        org.clojars.pntblnk/clj-ldap {:mvn/version "0.0.17"}
-        ring/ring-defaults {:mvn/version "0.6.0"}
        babashka/fs {:mvn/version "0.5.24"}
        org.clojure/core.match {:mvn/version "1.1.0"}
        com.github.seancorfield/next.jdbc {:mvn/version "1.3.1070"}
        org.xerial/sqlite-jdbc {:mvn/version "3.47.1.0"}
        cheshire/cheshire {:mvn/version "6.1.0"}
+        org.clojure/test.check {:mvn/version "1.1.3"}
+        net.deertopia/doerg {:local/root "../doerg"}
+        metosin/reitit {:mvn/version "0.10.1"}
+        http-kit/http-kit {:mvn/version "2.8.0"}
        instaparse/instaparse {:mvn/version "1.5.0"}
-        babashka/process {:mvn/version "0.6.25"}
-        org.clojure/test.check {:mvn/version "1.1.2"}
-        #_#_
-        io.github.msyds/spec-dict
-        {:git/sha "531d629b7f05f37232261cf9e8927a4b5915714f"}
-        net.deertopia/doerg {:local/root "../doerg"}}
- :paths ["src" "resources" "test"]
+        aero/aero {:mvn/version "1.1.6"}}
+ :paths ["src" "resources"]
 :aliases
- {:dev
-  {:extra-deps {vvvvalvalval/scope-capture-nrepl {:mvn/version "0.3.1"}}}}}
+ {:test {:extra-deps {lambdaisland/kaocha {:mvn/version "1.91.1392"}}
+         :extra-paths ["test"]
+         :main-opts ["-m" "kaocha.runner"]}}}
--- a/publisher/override_deps.bb
+++ b/publisher/override_deps.bb
@@ -20,7 +20,10 @@
  (loop [os (seq overrides)
         loc zloc]
    (if-some [[[k v] & xs] os]
-      (recur xs (z/assoc loc k v))
+      (do (binding [*out* *err*]
+            (printf "override dep %s with %s\n"
+                    (pr-str k) (pr-str v)))
+          (recur xs (z/assoc loc k v)))
      loc)))

 (defn args->overrides [args]
--- a/publisher/resources/net/deertopia/publisher/default-config.edn
+++ b/publisher/resources/net/deertopia/publisher/default-config.edn
@@ -0,0 +1,6 @@
+#:net.deertopia.publisher
+{:state-directory #join [#or [#env XDG_STATE_HOME
+                              #envf ["%s/.local/share" HOME]]
+                         "/doerg-publisher"]
+ :org-roam-db-path #join [#env HOME "/.cache/emacs/org-roam.db"]
+ :port 8080}
--- a/publisher/resources/net/deertopia/publisher/elisp/grammar
+++ b/publisher/resources/net/deertopia/publisher/elisp/grammar
@@ -0,0 +1,30 @@
+<file> ::= elements
+
+<elements> ::= ws? element ws? elements
+            |  ws? ε
+
+<element> ::= string
+           |  list
+           |  symbol
+           |  integer
+           |  property-string
+
+string ::= <'"'> #'([^"\\]|\\.|\\\n)*' <'"'>
+
+property-string
+  ::= <'#('> ws? string text-property* ws? <')'>
+
+text-property ::= ws? element ws? element ws? element
+
+list ::= <'('> elements dot-cdr? <')'>
+
+symbol ::= #'([^?#0-9 \n\s\f()\[\]"\'\\.]|\\.)([^ \n\s\f()\[\]"\'\\]|\\.)*'
+        |  #'\.([^ \n\s\f()\[\]"\'\\]|\\.)+'
+
+integer ::= #'[-+]?[0-9]+' <#'.'>?
+
+dot-cdr ::= <'.'> ws? element
+
+<text> ::= ws? (string | property-string) ws?
+
+<ws> ::= <#'(\s||\n)'>+
--- a/publisher/src/net/deertopia/publisher/cached_file.clj
+++ b/publisher/src/net/deertopia/publisher/cached_file.clj
@@ -0,0 +1,24 @@
+(ns net.deertopia.publisher.cached-file
+  (:require [babashka.fs :as fs]))
+
+(defn newer-than?
+  "Return `true` if fs `file₁` was last modified sooner or at the same
+  time as `file₂`, or if `file₂` does not exist."
+  [file₁ file₂]
+  (or (not (fs/exists? file₂))
+      (<= 0 (compare (fs/last-modified-time file₁)
+                     (fs/last-modified-time file₂)))))
+
+(def ^:dynamic *use-cache?*
+  "Bind to `false` to disable caching for debugging purposes."
+  true)
+
+(defn cached-file
+  "Return a file path after potentially regenerating the file by
+  calling `compute` with no arguments only if stale? is logical true."
+  [& {:keys [file stale? compute]}]
+  (when (or (not *use-cache?*) stale?)
+    (let [r (compute)]
+      (assert (string? r))
+      (spit file r)))
+  file)
--- a/publisher/src/net/deertopia/publisher/config.clj
+++ b/publisher/src/net/deertopia/publisher/config.clj
@@ -0,0 +1,28 @@
+(ns net.deertopia.publisher.config
+  (:require [babashka.fs :as fs]
+            [clojure.spec.alpha :as s]
+            [net.deertopia.doerg.config :as doerg-config]
+            [net.deertopia.doerg :as-alias doerg]
+            [net.deertopia.publisher :as-alias p]
+            [aero.core :as aero]
+            [clojure.java.io :as io]))
+
+(s/def ::p/config
+  (s/keys :req [::p/state-directory
+                ::p/org-roam-db-path]))
+
+(s/def ::p/state-directory ::doerg/file)
+(s/def ::p/org-roam-db-path ::doerg/file)
+
+(def read-config (doerg-config/make-read-config ::p/config))
+
+(def default
+  (read-config
+   ;; Default config.
+   (io/resource "net/deertopia/publisher/default-config.edn")
+   ;; Defaults set at build time, if any.
+   (io/resource "net/deertopia/publisher/extra-config.edn")
+   ;; Config set at runtime.
+   (System/getenv "DOERG_PUBLISHER_CONFIG")))
+
+(def ^:dynamic *cfg* default)
--- a/publisher/src/net/deertopia/publisher/elisp.clj
+++ b/publisher/src/net/deertopia/publisher/elisp.clj
@@ -0,0 +1,119 @@
+(ns net.deertopia.publisher.elisp
+  (:require [clojure.core.match :refer [match]]
+            [clojure.java.io :as io]
+            [clojure.spec.alpha :as s]
+            [instaparse.core :as ip])
+  (:refer-clojure :exclude [print read read-string]))
+
+(ip/defparser read*
+  (io/resource "net/deertopia/publisher/elisp/grammar"))
+
+(defn- transform-string [s]
+  (let [s* (loop [s (seq s)
+                  acc ""]
+             (match s
+               ([\\ c & cs] :seq)
+               (recur
+                cs
+                (str acc
+                     (condp = c
+                       \n \newline
+                       \f \formfeed
+                       \\ \\
+                       \" \"
+                       \newline nil
+                       (throw (ex-info "IDK!" {:char c})))))
+               ([c & cs] :seq) (recur cs (str acc c))
+               ([] :seq) acc))]
+    [:string (apply str s*)]))
+
+(defn- transform-integer [s]
+  [:integer (parse-long s)])
+
+(defn- transform-property-string
+  ([[_ text]]
+   [:string text])
+  ([[_ text] & props]
+   [:string text (->> (for [[_ [_ beg] [_ end] prop] props]
+                        {[beg end] prop})
+                      (apply merge))]))
+
+(defn- transform-list [& xs]
+  (match (last xs)
+    [:dot-cdr x] [:cons* (butlast xs) x]
+    _ [:cons* xs]))
+
+(def transforms {:string transform-string
+                 :list transform-list
+                 :integer transform-integer
+                 :property-string transform-property-string})
+
+(defn read [s & args]
+  (->> (apply read* s args)
+       (ip/transform transforms)))
+
+(defn read-string [s]
+  (read s :start :text))
+
+(defn cons? [x]
+  (= (first x) :cons*))
+
+(s/def ::alist
+  (s/tuple #{:list}
+           (s/and ::list
+                  cons?)))
+
+(defn car [x]
+  (match x
+    [:cons* xs y] (first xs)
+    [:cons* xs] (first xs)
+    [:symbol "nil"] nil
+    _ nil))
+
+(defn cdr [x]
+  (match x
+    [:cons* xs y] (if (<= (count xs) 1)
+                    y
+                    [:cons* (rest xs) y])
+    [:cons* xs] [:cons* (rest xs)]
+    [:symbol "nil"] nil
+    _ nil))
+
+(defn emacs-list? [x]
+  (match x
+    [:cons* xs] true
+    _ false))
+
+(defn read-alist [s]
+  (let [r (->> s read*
+               (ip/transform
+                (merge transforms
+                       {:symbol (fn [s] (symbol s))
+                        :string (fn [s] s)}))
+               first)]
+    (match r
+      [:cons* pairs] (->> (for [pair pairs]
+                            (let [x (car pair)
+                                  y (cdr pair)]
+                              {x y}))
+                          (apply merge))
+      _ nil)))
+
+(defn read-string [s]
+  (match (-> s read first)
+    [:string x & props] x
+    :else nil))
+
+(defn print [x]
+  ;; TODO: this is really not how it should be done lol. at the
+  ;; moment, `print` is only used in `net.deertopia.publisher.roam`
+  ;; and only to serialise uuids, so it's not a /massive/ priority.
+  (cond (string? x) (str \" x \")
+        :else (throw (ex-info "`print` is unimplemented lol"
+                              {:x x}))))
+
+(comment
+  (do (ip/defparser parse* (io/resource "elisp-grammar"))
+      (read "#(\"blah\" 0 1 (doge))")
+      (read "\"bla\\nh\"")
+      (read-alist "((x . y))")))
--- a/publisher/src/net/deertopia/publisher/main.clj
+++ b/publisher/src/net/deertopia/publisher/main.clj
@@ -1,7 +1,7 @@
 (ns net.deertopia.publisher.main
-  (:require [net.deertopia.doerg.main :as doerg])
+  (:require [net.deertopia.doerg.main :as doerg]
+            [net.deertopia.publisher.server :as server])
  (:gen-class))

 (defn -main []
-  (doerg/-main)
-  (println "hi from publisher"))
+  (server/start!))
--- a/publisher/src/net/deertopia/publisher/roam.clj
+++ b/publisher/src/net/deertopia/publisher/roam.clj
@@ -0,0 +1,171 @@
+(ns net.deertopia.publisher.roam
+  (:require [babashka.fs :as fs]
+            [net.deertopia.publisher.config :as cfg]
+            [net.deertopia.publisher.elisp :as elisp]
+            [net.deertopia.publisher.slug :as slug]
+            [net.deertopia.publisher :as-alias publisher]
+            [next.jdbc :as sql])
+  (:import (java.util UUID)))
+
+
+;;; Global database
+
+(defonce ^:dynamic *use-db-cache?* true)
+
+(def db-path (-> cfg/*cfg* ::publisher/org-roam-db-path
+                 fs/expand-home str))
+
+(def db {:dbtype "sqlite"
+         :dbname db-path})
+
+(def ds (sql/get-datasource db))
+
+
+;;; Elisp sexp (de)serialisation
+
+(defn id [node]
+  (-> node :id))
+
+(defn slug [node]
+  (-> node :id slug/from-uuid))
+
+(defn- print-id [node]
+  (-> node id print))
+
+
+;;; Node
+
+(defrecord Node [id cache])
+
+(defn make-node [uuid]
+  (->Node uuid (atom {})))
+
+(defn- fetch-with-cache [node field fetch]
+  (if *use-db-cache?*
+    (-> (:cache node)
+        (swap! (fn [cache]
+                 (update cache field #(or % (fetch node)))))
+        (get field))
+    (fetch node)))
+
+(defn org-file [node]
+  (fetch-with-cache
+   node :org-file
+   (fn [node]
+     (when-some [r (sql/execute-one!
+                    ds
+                    ["select file from nodes where id = ?"
+                     (-> node :id str elisp/print)])]
+       (-> r :nodes/file elisp/read-string)))))
+
+(defprotocol GetNode
+  (get-node [this]
+    "Return the node associated with `this` or nil."))
+
+(extend-protocol GetNode
+  String
+  (get-node [this]
+    (or (some-> this slug/from-string get-node)
+        (some-> this parse-uuid get-node)
+        (throw (IllegalArgumentException.
+                "Give `get-node` a UUID or slug string plz. }:)"))))
+  java.util.UUID
+  (get-node [this]
+    (make-node this))
+  net.deertopia.publisher.slug.Slug
+  (get-node [this]
+    (-> this slug/to-uuid make-node))
+  Node
+  (get-node [this]
+    this))
+
+(comment
+  (def node (get-node "68XqhHerTWCbE--RYLEdHw"))
+  (fetch-with-cache
+   node :title
+   #(do (println "fetch")
+        (sql/execute-one! ds ["select title from nodes where id = ?"
+                              (elisp/print (:id %))]))))
+
+
+;;; Node operations
+
+(defn level [node]
+  (fetch-with-cache
+   node :level
+   #(-> (sql/execute-one!
+         ds ["select level from nodes where id = ?"
+             (print-id %)])
+        :nodes/level)))
+
+(defn top-level? [node]
+  (zero? (level node)))
+
+(defn file [node]
+  (fetch-with-cache
+   node :file
+   #(-> (sql/execute-one!
+         ds ["select file from nodes where id = ?"
+             (print-id %)])
+        :nodes/file
+        elisp/read-string)))
+
+(defn properties [node]
+  (fetch-with-cache
+   node :properties
+   #(-> (sql/execute-one!
+         ds ["select properties from nodes where id = ?"
+             (print-id %)])
+        :nodes/properties
+        elisp/read-alist)))
+
+(defn public? [node]
+  (-> node properties (get "DEERTOPIAVISIBILITY") (= "public")))
+
+(defn graph-visible? [node]
+  (#{"public" "graphonly"}
+   (-> node properties (get "DEERTOPIAVISIBILITY"))))
+
+(defn backlinks
+  "Returns a collection of maps {:id …, :title …}."
+  [node]
+  (for [{id :nodes/id, title :nodes/title}
+        (sql/execute! ds ["select distinct nodes.id, nodes.title from links
+                           inner join nodes
+                           on nodes.id = links.source
+                           where links.dest = ?"
+                          (elisp/print (:id node))])
+        :let [id (elisp/read-string id)]
+        :when (graph-visible? (get-node (UUID/fromString id)))]
+    {:id id
+     :title (elisp/read-string title)}))
+
+
+;;; Graph support
+
+(defn- read-string-field [n field]
+  (-> n (get field) elisp/read-string))
+
+(defn- uuid-graph-visible? [uuid]
+  (-> uuid parse-uuid get-node graph-visible?))
+
+(defn get-graph []
+  (let [nodes (sql/execute! ds ["select id, title from nodes"])
+        links (sql/execute!
+               ds
+               ["select n1.id as source, nodes.id as target from
+                   ((nodes as n1) join links on n1.id = links.source)
+                 join (nodes as n2) on links.dest = nodes.id
+                 where links.type = '\"id\"'"])]
+    {:nodes (for [n nodes
+                  :let [id (read-string-field n :nodes/id)]
+                  :when (uuid-graph-visible? id)]
+              {:id id
+               :title (read-string-field n :nodes/title)})
+     :links (for [l links
+                  :let [source (read-string-field l :nodes/source)
+                        target (read-string-field l :nodes/target)]
+                  :when (and (uuid-graph-visible? source)
+                             (uuid-graph-visible? target))]
+              {:source source
+               :target target})}))
--- a/publisher/src/net/deertopia/publisher/server.clj
+++ b/publisher/src/net/deertopia/publisher/server.clj
@@ -0,0 +1,120 @@
+(ns net.deertopia.publisher.server
+  (:require [clojure.pprint :refer [pprint]]
+            [clojure.tools.logging :as l]
+            [hiccup2.core :as hiccup]
+            [net.deertopia.doerg.html :as doerg-html]
+            [net.deertopia.publisher :as-alias publisher]
+            [net.deertopia.publisher.slug :as slug]
+            [net.deertopia.publisher.config :as cfg]
+            [net.deertopia.publisher.roam :as roam]
+            [org.httpkit.server :as http]
+            [reitit.coercion]
+            [reitit.coercion.spec]
+            [reitit.ring.coercion]
+            [reitit.core :as r]
+            [reitit.ring]
+            [reitit.ring.middleware.exception :as reitit-exception]
+            [ring.util.response :as response]
+            [spec-tools.spell]
+            [reitit.spec]
+            [reitit.dev.pretty]
+            [clojure.spec.alpha :as s]
+            [net.deertopia.doerg.render :as doerg-render]
+            [net.deertopia.publisher.cached-file :as cached-file]
+            [babashka.fs :as fs]
+            [aero.core :as aero]))
+
+
+;;; Routes
+
+(defn hello [req]
+  (-> (hiccup/html {}
+        [:html
+         [:head
+          [:title "hello"]
+          doerg-html/charset
+          doerg-html/viewport]
+         [:body
+          [:pre
+           (with-out-str
+             (pprint req))]]])
+      str
+      response/response
+      (response/content-type "text/html")))
+
+(defn node-by-slug [{{{:keys [slug]} :path} :parameters}]
+  (let [html (-> slug slug/from-string roam/get-node
+                 roam/org-file doerg-render/to-html)]
+    (-> html response/response
+        (response/content-type "text/html"))))
+
+(defn node-by-id [req]
+  (hello req))
+
+(def exception-middleware
+  (reitit-exception/create-exception-middleware
+   (merge
+    reitit-exception/default-handlers
+    {::reitit-exception/wrap
+     (fn [handler e request]
+       (l/error e "error in fucking somwhere dude")
+       (handler e request))})))
+
+(def router
+  (reitit.ring/router
+   #{["/" {:get hello}]
+     ["/n/:slug"
+      {:get {:handler #'node-by-slug
+             :parameters
+             {:path {:slug ::slug/slug}}}}]
+     ["/id/:id" {:get #'node-by-id}]}
+   {:validate reitit.spec/validate
+    :exception reitit.dev.pretty/exception
+    :spec (s/merge :reitit.spec/default-data)
+    :data
+    {:coercion reitit.coercion.spec/coercion
+     :middleware [exception-middleware
+                  reitit.ring.coercion/coerce-request-middleware
+                  reitit.ring.coercion/coerce-response-middleware
+                  #_reitit.ring.coercion/coerce-exceptions-middleware]}}))
+
+
+;;; Server API
+
+(def app (reitit.ring/ring-handler router))
+
+(defonce server (atom nil))
+
+(defn stop! []
+  (when @server
+    (http/server-stop! @server {:timeout 100})
+    (reset! server nil)
+    (l/info "Stopped server")))
+
+;; For some reason, the log messages from `stop!` are not flushed
+;; before the JVM shuts dowm.  Nevertheless, the server /does/ come to
+;; a graceful halt.
+(def ^:private shutdown-hook (Thread. stop!))
+
+(defn start! []
+  (if @server
+    (throw (IllegalStateException. "Server already started"))
+    (do (reset! server
+                (http/run-server (bound-fn* #'app)
+                                 {:port (-> cfg/*cfg* ::publisher/port)
+                                  :legacy-return-value? false}))
+        ;; For some reason, the log messages are not flushed before
+        ;; the JVM shuts dowm.  Nevertheless, the server /does/ come
+        ;; to a graceful halt.
+        (try (.addShutdownHook (Runtime/getRuntime) shutdown-hook)
+             (catch IllegalArgumentException e
+               (when (not= "Hook previously registered"
+                           (ex-message e))
+                 (throw e))))
+        (l/infof "Server started on port %d"
+                 (-> cfg/*cfg* ::publisher/port)))))
+
+(defn status []
+  (if @server
+    (http/server-status @server)
+    :stopped))
--- a/publisher/src/net/deertopia/publisher/slug.clj
+++ b/publisher/src/net/deertopia/publisher/slug.clj
@@ -0,0 +1,64 @@
+(ns net.deertopia.publisher.slug
+  (:require [clojure.spec.alpha :as s]
+            [spec-tools.core :as st])
+  (:import (java.nio ByteBuffer)
+           (java.util Base64 UUID)))
+
+(defrecord Slug [slug-string]
+  Object
+  (toString [this]
+    (:slug-string this)))
+
+(defn from-string [s]
+  (try (let [decoder (Base64/getUrlDecoder)]
+         (when (= 16 (count (.decode decoder s)))
+           (Slug. s)))
+       ;; really stupid
+       (catch IllegalArgumentException _
+         nil)))
+
+(defn to-string [s]
+  (str s))
+
+(defn- coerce-to-uuid [string-or-uuid]
+  (cond (string? string-or-uuid) (UUID/fromString string-or-uuid)
+        (uuid? string-or-uuid) string-or-uuid))
+
+(defn- uuid->bytes [string-or-uuid]
+  (let [uuid (coerce-to-uuid string-or-uuid)]
+    (.array (doto (ByteBuffer/wrap (byte-array 16))
+              (.putLong (.getMostSignificantBits uuid))
+              (.putLong (.getLeastSignificantBits uuid))))))
+
+(defn- bytes->uuid [bytes]
+  (when (= (count bytes) 16)
+    (let [bb (ByteBuffer/wrap bytes)
+          high (.getLong bb)
+          low (.getLong bb)]
+      (UUID. high low))))
+
+(defn from-uuid [string-or-uuid]
+  (let [uuid (coerce-to-uuid string-or-uuid)
+        encoder (.withoutPadding (Base64/getUrlEncoder))]
+    (Slug. (.encodeToString encoder (uuid->bytes uuid)))))
+
+(defn to-uuid [slug]
+  (let [decoder (Base64/getUrlDecoder)]
+    (bytes->uuid (.decode decoder (str slug)))))
+
+(comment
+  (let [uuid #uuid "f9eab66e-7773-4b87-b854-0bfc8f563809"
+        slug (from-uuid uuid)
+        round-tripped (to-uuid slug)]
+    {:uuid uuid, :slug slug, :round-tripped round-tripped}))
+
+(defn make-slug [string]
+  (assert (try (to-uuid string)
+               (catch Throwable _
+                 nil))
+          "invalid slug")
+  (->Slug string))
+
+(s/def ::slug
+  (s/conformer #(or (some-> % from-string)
+                    ::s/invalid)))
--- a/publisher/test/net/deertopia/publisher/server_test.clj
+++ b/publisher/test/net/deertopia/publisher/server_test.clj
@@ -0,0 +1,24 @@
+(ns net.deertopia.publisher.server-test
+  (:require [net.deertopia.publisher.server :as sut]
+            [reitit.ring]
+            [clojure.test :as t]
+            [clojure.set :as set]
+            [net.deertopia.publisher.server :as server]
+            [net.deertopia.publisher.config :as cfg]
+            [net.deertopia.publisher :as-alias publisher]))
+
+(t/deftest server-is-running
+  ;; 서버는 시작 전에 이 테스트 하면 잘못됩니다.
+  (assert (not= :running (server/status)))
+  (server/start!)
+  (t/is (= :running (server/status)))
+  (server/stop!))
+
+(t/deftest can-get-real-server-root
+  ;; 서버는 시작 전에 이 테스트 하면 잘못됩니다.
+  (assert (not= :running (server/status)))
+  (server/start!)
+  (t/is (->> (format "http://localhost:%d" (::publisher/port cfg/*cfg*))
+             slurp
+             string?))
+  (server/stop!))
--- a/publisher/tests.edn
+++ b/publisher/tests.edn
@@ -0,0 +1 @@
+#kaocha/v1 {}
Author	SHA1	Message	Date
Madeleine Sydney Ślaga	e73148ef3d	feat: 서버는 기초의 테스트 더함 All checks were successful build / build (push) Successful in 1m35s Details	2026-03-24 15:44:17 -06:00
Madeleine Sydney Ślaga	79735cc0ba	fix: config에서 포트를 읽음 All checks were successful build / build (push) Successful in 4s Details	2026-03-23 09:08:32 -06:00
Madeleine Sydney Ślaga	931f6f9006	fix: fix elisp shadowing clojure.core warnings All checks were successful build / build (push) Successful in 4s Details	2026-03-23 08:48:34 -06:00
Madeleine Sydney Ślaga	811d07de39	refactor: config.edn → default-config.edn All checks were successful build / build (push) Successful in 30s Details	2026-03-23 08:43:33 -06:00
Madeleine Sydney Ślaga	29d5cdc85a	feat: o pona e ijo Config kepeken lipu Library All checks were successful build / build (push) Successful in 5s Details	2026-03-23 08:40:50 -06:00
Madeleine Sydney Ślaga	d4ff27ada4	feat: very primitive publisher All checks were successful build / build (push) Successful in 5s Details	2026-03-21 20:37:16 -06:00
Madeleine Sydney Ślaga	5bca7890c4	feat: css hyphenation All checks were successful build / build (push) Successful in 43s Details	2026-03-19 15:46:25 -06:00
Madeleine Sydney Ślaga	befa724551	fix: native latex prelude	2026-03-19 15:46:07 -06:00
Madeleine Sydney Ślaga	2b80c15cc8	chore: cleanup All checks were successful build / build (push) Successful in 42s Details	2026-03-19 14:47:01 -06:00
Madeleine Sydney Ślaga	7805de06f2	fix: latex paragraphs again lol All checks were successful build / build (push) Successful in 4s Details	2026-03-19 14:45:53 -06:00
Madeleine Sydney Ślaga	1629efb378	fix: latex-environment belongs to paragraph All checks were successful build / build (push) Successful in 5s Details wip: feat: org-element specs	2026-03-17 21:07:33 -06:00
Madeleine Sydney Ślaga	2198b5f409	fix: ???? All checks were successful build / build (push) Successful in 4s Details	2026-03-05 15:59:55 -07:00
Madeleine Sydney Ślaga	bc5138086d	fix: remove debug code again idiot Some checks failed build / build (push) Failing after 19s Details	2026-03-05 15:58:14 -07:00
Madeleine Sydney Ślaga	6d1d94194b	fix: display math scales with text All checks were successful build / build (push) Successful in 44s Details	2026-03-05 15:51:13 -07:00
Madeleine Sydney Ślaga	fd9322740d	fix: remove debug code All checks were successful build / build (push) Successful in 39s Details	2026-03-05 15:11:26 -07:00
Madeleine Sydney Slaga	e5b47898a5	Merge pull request 'fix: tikz svgs' (#10 ) from fix-tikz-svgs into main All checks were successful build / build (push) Successful in 5s Details Reviewed-on: #10	2026-03-05 15:10:46 -07:00