Nest Noir路線

Question

我有一個應用程序可以根據特定的數據存儲生成密鑰。如果有7個這樣的路線和5個應用程序，則我的event.clj中會有35條路線（或者，如果拆分爲7個/文件在5個文件中）。我想這樣做動態如下：

(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)})) 
) 

這樣我可以寫一次，每條路線，然後繞過應用程序名稱（而不是通過它的查詢參數，它的作品，但不是很REST風格。

BONUS

我怎麼能動態調用一個命名空間，以便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)})) 

BONUS

我也會去具有與該funcitons地圖生成密鑰的一個簡單的解決方案，是這樣的：

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

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

如果你真的想找到動態生成按鍵的功能，你可以這樣做：

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