Передача динамического количества переменных в функции Datomic API

Итак, на основе вашего исходного кода мне удалось немного упростить код:

(defn add-entity-ns
  [ekey datom-map]
  (reduce-kv (fn [a k v]
               (assoc a (keyword
                         (name ekey)
                         (name k))
                      v))
             {}
             datom-map))

(defn retrieve-entity
  [conn constraint-map]
  (let [name-fn (comp symbol
                      (partial str "?")
                      name)
        param-names (map name-fn
                         (keys constraint-map))
        param-vals (vals constraint-map)
        constraint-map (add-entity-ns :posts constraint-map)
        where-clause (map #(vector '?e % %2)
                      (keys constraint-map)
                      param-names)
        in-clause (conj param-names '$)
        final-clause (concat [:find '?e]
                             [:in] in-clause
                             [:where] where-clause)]
    (apply d/q final-clause (d/db conn) param-vals)))

Примечание: когда я начал использовать datomic, я написал себе аналогичные функции для генерации запросов. В итоге я их выбросил по нескольким причинам:

1. Это беспорядок. Datalog предназначен для выполнения логических запросов. Создание логического запроса и его вызов занимает значительно больше времени, хотя datomic выполняет кэширование. Это связано с тем, что Datalog должен логически разрешить запрос, что занимает довольно много времени.
2. Если вы знаете, как делать запросы, гораздо эффективнее на самом деле запросить один раз для всех сущностей, а затем отфильтровать их, выполнив обычное преобразование последовательности (а для огромной базы данных используйте редукторы!). Это работает в среднем. В 20 раз быстрее, чем Datalog (оценка с использованием критерия). Если вы мне не верите, напишите запрос, который запрашивает все ваши объекты :post/x из базы данных, а затем отфильтровывает сообщения, соответствующие вашим критериям, используя filter и так далее. Если у вас большая база данных, используйте редьюсеры с foldcat.
3. Я написал себе механизм фильтрации (для групп сущностей), который служит своего рода DSL-запросом. Я изменяю его в зависимости от проекта и структуры базы данных. Возможность писать DSL — это сила LISP, и Datomic делает это действительно возможным благодаря сущностям, представляющим собой хэш-карту, подобную структурам данных. Он работает намного быстрее, чем Datalog (за счет того, что он зависит от предметной области).

Хорошо, я решил эту проблему в группах Datomic Google (см. здесь). В принципе, рис.1 работает. Кроме того, я могу запустить сгенерированный код (рис. 2) без ужасных кавычек. Надеюсь, это поможет другим.

(datomic.api/q '{:find [?e]
                 :in [$ [?title ?content-type]]
                 :where [[?e :posts/title ?title] [?e :posts/content-type ?content-type]]}
               (datomic.api/db conn)
               ["t" "c/t"])

рис.1

(datomic.api/q expression-intermediate-0 (datomic.api/db conn) (into [] param-values))

рис. 2