Question

我有这个：

(defn my-page []
  (layout/render
   "page1.html" ({:articles (map
                             #(update % :field1 (fn [d] (something.... )))
                              (db/get-all-articles))})))
                            ; how can I call map again to process other fields?
                            ; (map for :field2 .... ???? how?)
                            ; (map for :field3 .... ???? how?)

我也想预处理其他字段。我该怎么做呢？我的意思是，因为我已经有变量：文章和功能图，我将如何为其他字段再次映射，例如：field2和field3？

Answer 1

使用线程宏：

(def m {:field1 1
        :field2 2
        :field3 3})

(-> m
  (update :field1 (fn [v1] ...))
  (update :field2 (fn [v2] ...))
  (update :field3 (fn [v3] ...)))

它相当于：

(update
  (update 
    (update m :field1 (fn [v1] ...))
    (fn [v2] ...))
  (fn [v3] ...))

您可以将此类逻辑包含在函数中，并使用它来映射所有文章。

Answer 2

您还可以通过缩减来概括这些更新：

user> (def items {:field1 1
                  :field2 2
                  :field3 3})
#'user/items
user> (reduce-kv update items {:field1 inc
                               :field2 dec
                               :field3 #(* % 2)})
{:field1 2, :field2 1, :field3 6}

使用Luminus / Compojure中的地图处理多个字段

2 个答案: