From cf242b778d94fd3fb85f47f5d834cf44f39130f4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= <msyds@deertopia.net>
Date: Sat, 28 Mar 2026 10:36:10 -0600
Subject: [PATCH] =?UTF-8?q?feat:=20=ED=85=8C=EC=8A=A4=ED=8A=B8=20=EB=8D=B0?=
 =?UTF-8?q?=EC=9D=B4=ED=84=B0=EB=B2=A0=EC=9D=B4=EC=8A=A4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

해결 #28
---
 doerg/default.nix                             |   1 +
 flake.lock                                    |   6 +-
 flake.nix                                     |   2 +
 publisher/default.nix                         |  31 ++++++++-
 .../deertopia/publisher/default-config.edn    |   2 +-
 .../src/net/deertopia/publisher/server.clj    |   3 -
 publisher/test-emacs.nix                      |  10 +++
 .../deertopia/publisher/org-roam-db-sync.el   |   8 +++
 .../test/net/deertopia/publisher/roam-test.db | Bin 53248 -> 0 bytes
 .../net/deertopia/publisher/server_test.clj   |  63 ++++++++++++------
 10 files changed, 99 insertions(+), 27 deletions(-)
 create mode 100644 publisher/test-emacs.nix
 create mode 100755 publisher/test/net/deertopia/publisher/org-roam-db-sync.el
 delete mode 100644 publisher/test/net/deertopia/publisher/roam-test.db

diff --git a/doerg/default.nix b/doerg/default.nix
index e10fdb9..fd01cb0 100644
--- a/doerg/default.nix
+++ b/doerg/default.nix
@@ -68,4 +68,5 @@ in mkCljBin' {
   checkPhase = ''
     clojure -M:test
   '';
+  passthru = { inherit plex our-tex; };
 }
diff --git a/flake.lock b/flake.lock
index a02e441..ed3496c 100644
--- a/flake.lock
+++ b/flake.lock
@@ -111,11 +111,11 @@
     },
     "nixpkgs_2": {
       "locked": {
-        "lastModified": 1760038930,
-        "narHash": "sha256-Oncbh0UmHjSlxO7ErQDM3KM0A5/Znfofj2BSzlHLeVw=",
+        "lastModified": 1774386573,
+        "narHash": "sha256-4hAV26quOxdC6iyG7kYaZcM3VOskcPUrdCQd/nx8obc=",
         "owner": "NixOS",
         "repo": "nixpkgs",
-        "rev": "0b4defa2584313f3b781240b29d61f6f9f7e0df3",
+        "rev": "46db2e09e1d3f113a13c0d7b81e2f221c63b8ce9",
         "type": "github"
       },
       "original": {
diff --git a/flake.nix b/flake.nix
index 158300b..f5be4b9 100644
--- a/flake.nix
+++ b/flake.nix
@@ -57,6 +57,7 @@
 	default = pkgs.mkShell {
 	  inputsFrom = [
 	    pkgs.doerg
+	    pkgs.publisher
 	    pkgs.doerg-parser
 	    pkgs.doerg-temml-worker
 	  ];
@@ -68,6 +69,7 @@
 	    clojure
 	    babashka
 	    sqlite-web
+            pkgs.publisher.test-emacs
 	  ];
 	};
       });
diff --git a/publisher/default.nix b/publisher/default.nix
index 64335c8..423e92f 100644
--- a/publisher/default.nix
+++ b/publisher/default.nix
@@ -1,9 +1,25 @@
 { mkCljBin
 , doerg
 , babashka
+, callPackage
+, test-emacs ? callPackage ./test-emacs.nix {}
+, fake-git
+, breakpointHook
+, doerg-temml-worker
+, doerg-parser
 }:
 
-mkCljBin {
+let
+  # 이 mkCljBin에는 fake-git가 포함되지 않는다. 그것 불필요해서 dev
+  # shell에 없고 싶는다.
+  mkCljBin' = args: (mkCljBin args).overrideAttrs (final: prev: {
+    nativeBuildInputs =
+      builtins.filter
+        # A possibly-sketchy predicate, lol.
+        (x: x != fake-git)
+        prev.nativeBuildInputs;
+  });
+in mkCljBin' {
   name = "net.deertopia/publisher";
   version = "0.1.0";
   projectSrc = ./.;
@@ -14,6 +30,15 @@ mkCljBin {
   ];
   nativeBuildInputs = [
     babashka
+    breakpointHook
+  ];
+  nativeCheckInputs = [
+    doerg-parser
+    doerg-temml-worker
+    test-emacs
+    doerg
+    doerg.our-tex
+    doerg.plex
   ];
   postPatch = ''
     mv deps.edn deps.edn.old
@@ -22,6 +47,10 @@ mkCljBin {
   '';
   doCheck = true;
   checkPhase = ''
+    export \
+      EMACS=test-emacs \
+      XDG_STATE_HOME=$(mktemp -d "state-home-XXXXXX")
     clojure -M:test
   '';
+  passthru = { inherit test-emacs; };
 }
diff --git a/publisher/resources/net/deertopia/publisher/default-config.edn b/publisher/resources/net/deertopia/publisher/default-config.edn
index cb13ffc..85bb147 100644
--- a/publisher/resources/net/deertopia/publisher/default-config.edn
+++ b/publisher/resources/net/deertopia/publisher/default-config.edn
@@ -4,5 +4,5 @@
                          "/doerg-publisher"]
  :org-roam-db-path
  #profile {:default #join [#env HOME "/.cache/emacs/org-roam.db"]
-           :test #file "../../../../test/net/deertopia/publisher/roam-test.db"}
+           :test #join [#or [#env TMP "/tmp"] "/doerg-org-roam-test.db"]}
  :port #profile {:default 8080}}
diff --git a/publisher/src/net/deertopia/publisher/server.clj b/publisher/src/net/deertopia/publisher/server.clj
index 6d1b215..4864984 100644
--- a/publisher/src/net/deertopia/publisher/server.clj
+++ b/publisher/src/net/deertopia/publisher/server.clj
@@ -97,9 +97,6 @@
       (assoc-in [:path-params :slug] homepage-slug)
       node-by-slug))
 
-(def doerg-resources
-  #{"Temml-Plex.css" "tuftesque.css" "deerstar.css"})
-
 (defn handle-resource [{:keys [uri]}]
   (if-some [[_ resource] (re-matches #"^/resource/ibm-plex-web/(.*)" uri)]
     (-> resource
diff --git a/publisher/test-emacs.nix b/publisher/test-emacs.nix
new file mode 100644
index 0000000..6bea7d8
--- /dev/null
+++ b/publisher/test-emacs.nix
@@ -0,0 +1,10 @@
+{ emacsPackages
+, symlinkJoin
+, writeScriptBin
+, lib
+}:
+
+let emacs = emacsPackages.emacsWithPackages (epkgs: [ epkgs.org-roam ]);
+in writeScriptBin "test-emacs" ''
+  exec ${lib.getExe emacs} "$@"
+''
diff --git a/publisher/test/net/deertopia/publisher/org-roam-db-sync.el b/publisher/test/net/deertopia/publisher/org-roam-db-sync.el
new file mode 100755
index 0000000..0f1eaa8
--- /dev/null
+++ b/publisher/test/net/deertopia/publisher/org-roam-db-sync.el
@@ -0,0 +1,8 @@
+#!/usr/bin/env -S emacs -Q -x
+
+(require 'org-roam)
+
+(setq org-roam-directory (expand-file-name (car command-line-args-left)))
+(setq org-roam-db-location (expand-file-name (cadr command-line-args-left)))
+
+(org-roam-db-sync)
diff --git a/publisher/test/net/deertopia/publisher/roam-test.db b/publisher/test/net/deertopia/publisher/roam-test.db
deleted file mode 100644
index 5138bb9f2189244987138fe56991976ab47e5ec1..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 53248
zcmWFz^vNtqRY=P(%1ta$FlG>7U}R))P*7lCU|?ooVBlpy04@dw1{MUDfsuiMK?I49
zjmgZQ*ZYf?{|5sPmlgwmApcoDO@1}rxjavKe7VnZ3vlh@D&f+?rg2nkGz3ONU^E0q
zLtr!nMnhmU1V%$(phLiehfQ2nlrc3kFD132Br&}>J}*BdH9j*1#O8Gla&-)GRq*t4
zag9&_iNItP{Qbau1r4Zj1x*ibB$J9#)8Hn7*gPmEfkco^0`ZYd3gBWBSC?kY1-mIR
zCo>Ul6qu7*%#C6iSP<Dbus~`tl8KF0ob2M_;*3qfC5cHnsX3W>*~MUj3u;n`qmz%T
z0$4~vqaeRn!OuTL!7tRuM@OMJzqBYh6-gi^wYUU{TT)qoEL%{NUyxc<l9`HZhMRwo
ztEao4g12j=f(FDuO@$y=H`gFnKWEoq1yCRsD`;e<Xo3RP#ns0(#8tuBG1%GB#Z|M8
zgI!!yl(8`$>~>HrfG{VD%RwRt{~{b;l9;Zbqkv*P$gX&hO~l&YD9R3YKoc+60iehN
zVGa}rfJCr4peQvBcUV#AE>kvkad~;hCQGopk~2#ZOEUBGis1})6c@sUu{kq2vm`Y>
zJGBzYt*EI0DOxEGPfk{LacODB#!Rrgp{W&0v7xvbDu~U+U@6Muwu%{?F`6M61C%z3
z!2}D6JHSGq^a&3ig@7PWU&o+GP?FYBNXyJY&I38AWvMxEr8)|zL0OWYlCPknP*9Ya
zUzAx=si31!oSc!GQks*RqEM1rQKF-elA4&3lbM$a<(6cY<fMXiz_XT)LVivGy6-`*
zK*?4hfno&>5QQycX|k}1+ln(XfXkWU!W>W<NGvVM2lK%NN^!g)*z2rSjNo8ugai}F
zz+y1Lgc3|(A&7knp?;o$p{}UG1oKEnVsQpi@FbRG<{}4QE(%{$lL?<Q!FI+Qf+<kn
zo&!{)@bW7%F!4q+@Y(Q2gZQI(Gz3ONU^E0qLtr!nMnhmU1V%$(Gz3ONU^E0qLxAKE
zXpCcKZw$0fbaYhG&&bbB)z2-iOexkcE=tzVOD)k&Nlh&($uG!E)GsJa%E>IwNG;MY
zNi8k`N$O*hEXq&J)dj0aOUzEy1sPe8n4YSaUzDz-1lORKms+9-1xiXrX6B}bX69z*
zX(nk#CI+cV=82}Jsi}r$W~OF|iHS+(=7|<2Nk(Q$8b;;@=9UVU<`yOjrY5FlmKF*Y
zW|js92AT*NBL!1aQ)5Fj1xr(~Ok)xgdt<I<qOCKvJ!oWLWM*J&WNKhxY-DVpn^>M&
zoS&N-59+!?ybBcp4<{%o8KhWPCZ?DeTP7x_rKP4>ni{29T9_o78ylLNn3^P|7^kI}
znOdfq!+dFGVrr~lX>M+8YOY`m_oKOjp{c2bfr62tg}Jejg1NZ`NQ!}h;XcVxKXf#3
z@y}#n;@i!@ugtf5=(u{+rK2G*8UmvsFd71*Aut*OqaiRF0;3@?8UmvsFd70QC<M}3
z8Uq=rJ@SA#w8C7<(wIwidkBqiFflMNq|+fXK@0qucxEv0%;3wTgLR`;jE2By2#kin
zXb6mkz-S1JhQMeDjE2By2#kgRMhG+qGx0?>=5la?WHej+8I+8SQ&UaMOj2}{42@HD
zP0UOzbuEm{(sa#?j8Y6zQ&Q86Oj4Do-5n&<O;bXdh}O_ha&`=Hb@va7R8r7WP{N~I
zNmD^X$;H(*D8xU&(=p65*we|=$1?<?54<2C8LY(91!590o(CD}<m2z`?F!KZHo(o(
z#}#Y@mDeEP@f&!G9^{ySAW#1wn5UeSG&P&~nfW3c10k_$-5kiEl$w-mnwn@~qHAuR
zn51ixVrHOgnPh0Jo0?{6Xl9UPXqaM{M)g?5?BwHEKY<>hC>p`R3ymM5ya5Uly2THQ
zQ*p-#7ymT|CjJHn{?+^qpsY5EM?+vV1V%$(Gz3ONU^E0qLtr!nMnhmU1V%$(Gz3ON
zU^E1%9|Bs;k&MI*f-r-X5;Y12T0B7Hsd}LKe+B{S`)kz1(GVC7fzc2c4S~@R7!85Z
z5Eu=C(GVC7fzc2c4S~@R7!85J69S|C|G^U%qb?Z@fzc2c4S~@R7!85Z5Eu=C(GVC7
zfzc2c4S~@R7!3hhg}`Y4pH?9|YVK$VjE2By2#kinXb6mkz-S1JhQMeDjE2By2#kin
zXb23R5E$+M51zOfb;)Q5jE2By2#kinXb6mkz-S1JhQMeDjE2By2#kinXb8|M1V;P+
zv<lf#b4Np9Gz3ONU^E0qLtr!nMnhmU1V%$(Gz3ONU^E0qLtyZP02jz9qv!vDLSYn-
zhQMeDjE2By2#kinXb6mkz-S1JhQMeDjE2By2#kinunmFH{{OIz+EI^<hQMeDjE2By
z2#kinXb6mkz-S1JhQMeDjE2By2#kgRJOoDj|L~v~WsHWvXb6mkz-S1JhQMeDjE2By
V2#kinXb6mkz-S1JhQP250RU3e)|UVP

diff --git a/publisher/test/net/deertopia/publisher/server_test.clj b/publisher/test/net/deertopia/publisher/server_test.clj
index 50a6822..6df26b8 100644
--- a/publisher/test/net/deertopia/publisher/server_test.clj
+++ b/publisher/test/net/deertopia/publisher/server_test.clj
@@ -6,7 +6,13 @@
             [net.deertopia.doerg.config :as doerg-cfg]
             [net.deertopia.publisher :as-alias publisher]
             [net.deertopia.doerg :as-alias doerg]
-            [net.deertopia.publisher.roam :as roam]))
+            [net.deertopia.publisher.roam :as roam]
+            [babashka.fs :as fs]
+            [babashka.process :as p]
+            [clojure.java.io :as io]))
+
+(def org-roam-directory
+  (fs/file "test/net/deertopia/publisher/roam-test"))
 
 (defn config-fixture [f]
   (binding [doerg-cfg/*cfg*
@@ -19,8 +25,27 @@
              :profile :test)]
     (f)))
 
+(defn org-roam-db-sync [db-file]
+  (let [script-file (fs/create-temp-file {:prefix "org-roam-db-sync-"
+                                          :suffix ".el"})
+        emacs (->> [(System/getenv "EMACS") "test-emacs" "emacs"]
+                   (some #(some-> % fs/which)))]
+    (io/copy (-> "net/deertopia/publisher/org-roam-db-sync.el"
+                 io/resource io/reader)
+             (fs/file script-file))
+    (p/shell {:out :string :err :string}
+             emacs "-Q" "-x" script-file org-roam-directory db-file)
+    (fs/delete script-file)))
+
+(defn test-db-fixture [f]
+  (let [db-file (-> publisher-cfg/*cfg* ::publisher/org-roam-db-path)]
+    (fs/delete-if-exists db-file)
+    (org-roam-db-sync db-file)
+    (f)
+    (fs/delete db-file)))
+
 (t/use-fixtures
-  :once config-fixture)
+  :once (t/join-fixtures [config-fixture test-db-fixture]))
 
 (defn with-server [f]
   (let [was-already-running? (= :running (sut/status))]
@@ -34,6 +59,8 @@
   (sut/app {:request-method :get
             :uri uri}))
 
+
+
 (t/deftest server-is-running
   ;; 서버는 벌써 시작한 다음에 이 테스트 하면 잘못됩니다.
   ;; (assert (not= :running (sut/status)))
@@ -41,25 +68,23 @@
     (fn []
       (t/is (= :running (sut/status)))
       ;; 테스트 데이터베이스를 아직 안 준비한다.
-      #_(t/is (->> (format "http://localhost:%d"
+      (t/is (->> (format "http://localhost:%d"
                            (::publisher/port publisher-cfg/*cfg*))
                    slurp
                    string?)))))
 
-(comment
-  ;; 테스트 데이터베이스를 아직 안 준비한다.
-  (t/deftest get-nonexistent-node
-   (let [slug "3Lxvxnb0QrivoU3DX-l_5w"]
-     (assert (nil? (roam/make-node slug)))
-     (t/is (= 404
-              (-> (str "/n/" slug)
-                  get-sut :status))))))
+;; 테스트 데이터베이스를 아직 안 준비한다.
+(t/deftest get-nonexistent-node
+  (let [slug "3Lxvxnb0QrivoU3DX-l_5w"]
+    (assert (nil? (roam/make-node slug)))
+    (t/is (= 404
+             (-> (str "/n/" slug)
+                 get-sut :status)))))
 
-(comment
-  ;; 테스트 데이터베이스를 아직 안 준비한다.
-  (t/deftest get-homepage
-    (let [resp (-> (str "/n/" sut/homepage-slug)
-                   get-sut)]
-      (t/is (= 200 (:status resp)))
-      (t/is (= (-> "/" get-sut :body)
-               (-> resp :body))))))
+;; 테스트 데이터베이스를 아직 안 준비한다.
+(t/deftest get-homepage
+  (let [resp (-> (str "/n/" sut/homepage-slug)
+                 get-sut)]
+    (t/is (= 200 (:status resp)))
+    (t/is (= (-> "/" get-sut :body)
+             (-> resp :body)))))