clojure - 构建where子句？

Question

我希望能够为查询构建 where 子句。我想输入一个 where 条件数组并使用 korma 构建查询，如下所示：

(defn ^:private fetch-by
  "Append conditions to the query."
  [query ^clojure.lang.PersistentVector conditions]

  (for [condition conditions]
    (if (instance? clojure.lang.PersistentArrayMap condition)
      (korma/where query condition) query)))

但是，这里的 for 循环会复制查询对象。是否可以合并这些对象或您可以推荐的其他方法来实现所需的输出？

Answer 1

可以通过以下方式将查询映射合并为一个：conditionsreduce

(defn ^:private fetch-by
  "Append conditions to the query."
  [query conditions]
  (->> (filter map? conditions)
       (reduce (fn [query condition]
                 (korma/where query condition))
               query)))

在这里，您的初始reduce状态是query您传入的任何内容，归约函数 (and korma/where) 负责将每个条件合并到查询映射中。

(-> (korma/select* :my-table)
    (fetch-by [{:active true}
               {:deleted false}])
    (korma/as-sql))
 => "SELECT \"my-table\".* FROM \"my-table\" WHERE (\"my-table\".\"active\" = ?) AND (\"my-table\".\"deleted\" = ?)"

但是，这与仅将具有多个条目的单个映射传递给korma/where：

(-> (korma/select* :my-table)
    (korma/where {:active true
                  :deleted false})
    (korma/as-sql))

我建议只要条件的键是唯一的。