Маскировка:Динамически создавать функции из времени отображения для макроса?
-
11-12-2019 - |
Вопрос
У меня есть функция, которая начинается следующим образом:
(defn data-one [suser]
(def suser-first-name
(select db/firstNames
(fields :firstname)
(where {:username suser})))
(def suser-middle-name
(select db/middleNames
(fields :middlename)
(where {:username suser})))
(def suser-last-name
(select db/middleNames
(fields :lastname)
(where {:username suser})))
;; And it just continues on and on...
)
Конечно, мне это совсем не нравится.У меня есть этот шаблон, повторяющийся во многих областях моей кодовой базы, и я хотел бы обобщить это.
Итак, для начала я придумал следующее:
(def data-input {:one '[suser-first-name db/firstNames :firstname]
'[suser-middle-name db/middleNames :middlename]
'[suser-last-name db/lastNames :lastname]})
(defpartial data-build [data-item suser]
;; data-item takes the arg :one in this case
`(def (data-input data-item)
(select (data-input data-item)
(fields (data-input data-item))
(where {:username suser}))))
Здесь действительно есть несколько вопросов:
-- Как я могу деконструировать ввод данных таким образом, чтобы он создавал x функций, когда x неизвестно, т.е.что значения :one неизвестны, и что количество ключей при вводе данных неизвестно.
-- Я думаю, что сейчас самое время создать макрос, но я никогда раньше его не создавал, поэтому сомневаюсь в этой идее.
И чтобы дать небольшой контекст, функции должны возвращать значения, подлежащие деконструкции, но я думаю, что как только я решу эту часть, обобщение всего этого будет выполнимо:
(defpage "/page-one" []
(let [suser (sesh/get :username)]
(data-one suser)
[:p "Firat Name: "
[:i (let [[{fname :firstname}] suser-first-name]
(format "%s" fname))]
[:p "Middle Name: "
[:i (let [[{mname :emptype}] suser-middle-name]
(format "%s" mname))]
[:p "Last Name: "
[:i (let [[{lname :months}] suser-last-name]
(format "%s" lname))]]))
Решение
Несколько предложений:
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")
.
Кстати есть другой способ использовать Korma:
;; 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 Источники.