如何在Clojure中使用Stuart Sierra的组件库

monch1962 发表于 Dev

monch1962

我正在努力了解如何在Clojure应用程序中使用Stuart Sierra的组件库。通过观看他的Youtube视频，我认为我可以很好地理解导致他创建图书馆的问题。但是，我正在努力研究如何在新的，相当复杂的项目中实际使用它。

我意识到这听起来很模糊，但是感觉好像我缺少一些关键概念，一旦理解了它，我就会对如何使用组件有很好的了解。换句话说，Stuart的文档和视频非常详细地介绍了组件的功能和原因，但是我没有找到操作方法。

是否有任何种类的详细教程/演练可用于：

为什么在非平凡的Clojure应用中完全使用组件
一种如何在非平凡的Clojure应用程序中分解功能的方法，以便可以以合理的最佳方式实现组件。当您拥有的只是一个数据库，一个应用程序服务器和一个Web服务器层时，这相当简单，但是我正在努力了解如何将其用于具有许多不同层次的系统的系统，这些系统都需要一起工作连贯地
开发/测试/故障转移/等方法在使用组件构建的非平凡Clojure应用中

提前致谢

杰夫

简而言之，Component是一个专门的DI框架。它可以通过给定两个映射来设置注入的系统：系统映射和依赖关系映射。

让我们看一个虚构的Web应用程序（免责声明，我在不实际运行的情况下以一种形式键入了此内容）：

(ns myapp.system
  (:require [com.stuartsierra.component :as component]
            ;; we'll talk about myapp.components later
            [myapp.components :as app-components]))

(defn system-map [config] ;; it's conventional to have a config map, but it's optional
  (component/system-map
    ;; construct all components + static config
    {:db (app-components/map->Db (:db config))
     :handler (app-components/map->AppHandler (:handler config))
     :server (app-components/map->Server (:web-server config))}))

(defn dependency-map
  ;; list inter-dependencies in either:
  ;;    {:key [:dependency1 :dependency2]} form or
  ;;    {:key {:name-arg1 :dependency1
  ;;           :name-arg2 :dependency2}} form
  {:handler [:db]
   :server {:app :handler})

;; calling this creates our system
(def create-system [& [config]]
  (component/system-using
    (system-map (or config {})
    (dependency-map)))

这使我们可以(create-system)在需要时调用以创建整个应用程序的新实例。

使用(component/start created-system)，我们可以运行它提供的系统服务。在这种情况下，是Web服务器在侦听端口和开放的db连接。

最后，我们可以通过停止它(component/stop created-system)来停止系统运行（例如-停止Web服务器，从数据库断开连接）。

现在让我们components.clj来看看我们的应用程序：

(ns myapp.components
  (:require [com.stuartsierra.component :as component]
            ;; lots of app requires would go here
            ;; I'm generalizing app-specific code to
            ;; this namespace
            [myapp.stuff :as app]))

(defrecord Db [host port]
   component/Lifecycle
   (start [c]
      (let [conn (app/db-connect host port)]
        (app/db-migrate conn)
        (assoc c :connection conn)))
   (stop [c]
      (when-let [conn (:connection c)]
        (app/db-disconnect conn))
      (dissoc c :connection)))

(defrecord AppHandler [db cookie-config]
   component/Lifecycle
   (start [c]
      (assoc c :handler (app/create-handler cookie-config db)))
   (stop [c] c))

;; you should probably use the jetty-component instead
;; https://github.com/weavejester/ring-jetty-component
(defrecord Server [app host port]
   component/Lifecycle
   (start [c]
      (assoc c :server (app/create-and-start-jetty-server
                        {:app (:handler app)
                         :host host 
                         :port port})))
   (stop [c]
      (when-let [server (:server c)]
         (app/stop-jetty-server server)
      (dissoc c :server)))

那我们刚才做了什么？我们获得了一个可重装的系统。我认为一些使用figwheel的clojurescript开发人员开始看到相似之处。

这意味着我们可以在重新加载代码后轻松地重新启动系统。继续user.clj！

(ns user
    (:require [myapp.system :as system]
              [com.stuartsierra.component :as component]
              [clojure.tools.namespace.repl :refer (refresh refresh-all)]
              ;; dev-system.clj only contains: (def the-system)
              [dev-system :refer [the-system]])

(def system-config
  {:web-server {:port 3000
                :host "localhost"}
   :db {:host 3456
        :host "localhost"}
   :handler {cookie-config {}}}

(def the-system nil)

(defn init []
  (alter-var-root #'the-system
                  (constantly system/create-system system-config)))

(defn start []
  (alter-var-root #'the-system component/start))

(defn stop []
  (alter-var-root #'the-system
                  #(when % (component/stop %))))

(defn go []
  (init)
  (start))

(defn reset []
  (stop)
  (refresh :after 'user/go))