如何启动不消息队列？

Question

从immutant文档在http://immutant.org/documentation/current/apidoc/guide-installation.html：

有了依赖，你只需从你的应用程序的主入口点，由:main 关键在你project.clj确定调用Immutant 服务。

Immutant的Web服务可以被调用，如：

(ns my-app.handler 
    ... 
    (:require [immutant.web :as web]) 
    ...) 

(def app ...) 

(defn -main [& args] 
    (web/run app)) 

什么的(web/run app)为immutant.messaging等价？

Answer 1

在这里你的答案 开始队列

(ns my-project.name 
(:require [immutant.messaging :as msg])) 

(defn call-fn 
    [args] 
    (let [fun (ns-resolve "namespace where fun defined" (symbol (first args))) 
     params (rest args)] 
    (if (seq params) 
     (apply fun) 
     (fun)))) 

(msg/start "queue") 
(msg/respond "queue" (fn [args] (call-fn args))) 

调用队列只是说

@(msg/request "queue" ["fun-name" params])