Clojure: динамическое создание функций из карты Время для макроса?

Некоторые предложения:

• def внутри функции действительно неприятно — вы изменяете глобальную среду, и это может вызвать всевозможные проблемы с параллелизмом. Вместо этого я бы предложил сохранить результаты на карте.
• Здесь вам не нужен макрос — все выборки данных можно относительно легко выполнить внутри функции.

Поэтому я бы предложил что-то вроде:

(def data-input [[:suser-first-name db/firstNames :firstname] 
                 [:suser-middle-name db/middleNames :middlename]
                 [:suser-last-name db/lastNames :lastname]])

(def data-build [data-input suser]
  (loop [output {}
         items (seq data-input)]
    (if items
      (recur
        (let [[kw db fieldname] (first items)]
          (assoc output kw (select db (fields fieldname) (where {:username suser})))) 
        (next items))
      output)))

Не тестировалось, так как у меня нет вашей базы данных, но, надеюсь, это даст вам представление о том, как это сделать без макросов или изменяемых глобальных переменных!

Хороший вопрос. Прежде всего, вот макрос, который вы просили:

(defmacro defquery [fname table fields ]
  (let [arg-name (symbol 'user-name)
        fname (symbol fname)]
    `(defn ~fname [~arg-name]
       (print ~arg-name (str ~@ fields)))))

Вы можете назвать это так:

(defquery suser-first-name db/firstNames [:firstname])

или если вы предпочитаете хранить все свои конфигурации на карте, тогда она примет строку в качестве первого аргумента вместо символа:

(defquery "suser-first-name" db/firstNames [:firstname])

Теперь, если вы не возражаете, что я рекомендую другое решение, я, вероятно, предпочел бы использовать единственную функцию, замкнутую вокруг конфигурации. Что-то такое:

(defn make-reader [query-configurations]
  (fn [query-type user-name]
    (let [{table :table field-names :fields} 
           (get query-configurations query-type)]
      (select table
             (apply fields field-names)
             (where {:username suser})))))

(def data-input {:firstname  {:table db/firstNames  :fields :firstname} 
                 :middlename {:table db/middleNames :fields :middlename}
                 :lastname   {:table db/lastNames   :fields :lastname}})

(def query-function (make-reader data-input))

;; Example of executing a query
(query-function :firstname "tom")

Кстати, есть еще один способ использования Кормы:

;; This creates a template select from the table
(def table-select (select* db/firstNames))

;; This creates new select query for a specific field
(def first-name-select (fields table-select :firstname))

;; Creating yet another query that filters results by :username
(defn mkselect-for-user [suser query] 
  (where query {:username suser}))

;; Running the query for username "tom"
;; I fully specified exec function name only to show where it comes from.
(korma.core/exec (mkselect-for-user "tom" first-name-select)) 

Для получения дополнительной информации я настоятельно рекомендую просмотреть исходники Korma.