fix: config에서 포트를 읽음

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

@@ -2,4 +2,5 @@
 {: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"]}
+ :org-roam-db-path #join [#env HOME "/.cache/emacs/org-roam.db"]
+ :port 8080}

publisher/src/net/deertopia/publisher/server.clj

@@ -3,6 +3,7 @@
             [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]
@@ -101,7 +102,7 @@
       (throw (ex-info msg {})))
     (do (reset! server
                 (http/run-server (bound-fn* #'app)
-                                 {:port 8080
+                                 {: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