Nest Noir路由

Question

我有一个基于特定数据存储生成密钥的应用程序。如果有7个这样的路由和5个应用程序，那么我的event.clj中将总共有35个路由(或者，如果拆分，则在5个文件中有7个/文件)。我想动态地做以下事情：

(defnested "/:app-name"
    (defpage "/generate/event" {:keys [app-name event-name time] :as key-map}
     (response/json
      {:key (key-model/build-key :event key-map)}))

    (defpage "/generate/event/unread" {:keys [app-name event-name] :as key-map}
     (response/json
      {:key (key-model/build-key :unread-for-event key-map)}))
)

这样，我就可以编写每条路由一次，然后传递应用程序名称(而不是在查询参数中传递它，这是有效的，但不是很RESTful。

奖金

如何动态调用名称空间，使key-model/build-key成为基于应用程序名称的redis-model/build-key或riak-model/build-key调用？

Answer 1

我不确定我是否理解了这个问题，但这不是你要找的吗：

(defpage "/:app-name/generate/event" {:keys [app-name event-name time] :as key-map}
    (response/json
      {:key (key-model/build-key :event key-map)}))

(defpage "/:app-name/generate/event/unread" {:keys [app-name event-name] :as key-map}
     (response/json
      {:key (key-model/build-key :unread-for-event key-map)}))

奖金

我还将采用一种简单的解决方案，即使用一个包含函数的map来生成密钥，如下所示：

(def key-gen {"redis" redis-model/build-key
       "riak" riak/build-key})

(response/json
      {:key ((get key-gen app-name) :event key-map)})

如果你真的想要动态地找到build-key函数，你可以这样做：

(defn build-key [app-name] 
   (let [the-ns (symbol (str app-name "-model"))] 
      (require the-ns) 
      (ns-resolve the-ns 'build-key)))