DL
хотя повторюсь, coll в let-е не нужен, можно просто врапнуть частично применить (mc/find-maps db coll) справа
Size: a a a
2020 April 10
E
хотя повторюсь, coll в let-е не нужен, можно просто врапнуть частично применить (mc/find-maps db coll) справа
все так, его можно (def coll "documents") сделать.
DL
все так, его можно (def coll "documents") сделать.
ну или так, да
ST
нет, conn нигде за пределами вектора привязок let не используется
ну тогда я за такой вариант
(defmacro megamacro
[[db, coll] code]
`(let [conn# (mg/connect)
~db (mg/get-db conn# "monger-test")
~coll "documents"]
~code))
(defn set-counter-2
"Присваиваем id значение самого большого id в базе"
[]
(megamacro [db coll]
(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll))))))
ST
ну тогда я за такой вариант
(defmacro megamacro
[[db, coll] code]
`(let [conn# (mg/connect)
~db (mg/get-db conn# "monger-test")
~coll "documents"]
~code))
(defn set-counter-2
"Присваиваем id значение самого большого id в базе"
[]
(megamacro [db coll]
(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll))))))
линтеру говоришь, что megamacro как fn, и всё красиво подсвечивается
и имена db coll ты задаёшь в самом коде, а не в макросе
и имена db coll ты задаёшь в самом коде, а не в макросе
DL
норм! только я бы назвал with-*, чтобы по традициям
ST
ну тогда я за такой вариант
(defmacro megamacro
[[db, coll] code]
`(let [conn# (mg/connect)
~db (mg/get-db conn# "monger-test")
~coll "documents"]
~code))
(defn set-counter-2
"Присваиваем id значение самого большого id в базе"
[]
(megamacro [db coll]
(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll))))))
а можно сделать в let стиле, чтобы из кода явно задавать строковые значения
E
Не понимаю, зачем мы используем генерацию символа вот здесь, если conn находится в локальной видимости выражения let?
[conn# (mg/connect)
~db (mg/get-db conn# "monger-test")
~coll "documents"]ST
ну тогда я за такой вариант
(defmacro megamacro
[[db, coll] code]
`(let [conn# (mg/connect)
~db (mg/get-db conn# "monger-test")
~coll "documents"]
~code))
(defn set-counter-2
"Присваиваем id значение самого большого id в базе"
[]
(megamacro [db coll]
(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll))))))
что-то усложнили с этим conn
(defmacro megamacro
[[db, coll] code]
`(let [~db (mg/get-db (mg/connect) "monger-test")
~coll "documents"]
~code))
E
что-то усложнили с этим conn
(defmacro megamacro
[[db, coll] code]
`(let [~db (mg/get-db (mg/connect) "monger-test")
~coll "documents"]
~code))
Да, так логичнее, согласен. conn это просто идиома из доки к monger, почему-то они везде этот conn пишут.
ST
Не понимаю, зачем мы используем генерацию символа вот здесь, если conn находится в локальной видимости выражения let?
[conn# (mg/connect)
~db (mg/get-db conn# "monger-test")
~coll "documents"]у тебя этого выражения не видно там, где ты используешь макрос
E
у тебя этого выражения не видно там, где ты используешь макрос
С-стиль )
ST
Не понимаю, зачем мы используем генерацию символа вот здесь, если conn находится в локальной видимости выражения let?
[conn# (mg/connect)
~db (mg/get-db conn# "monger-test")
~coll "documents"](megamacro [db coll]
(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll)))))
(megamacro
(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll)))))
в первом случае у тебя имена объявлены явно там, где они будут использоваться
во втором их возникновение непонятно
DL
С-стиль )
слушай, а ещё такой вопрос, где фигурирует database ?
DL
а то в let-е в биндингах он есть, а внутри let-а я его не вижу
ST
слушай, а ещё такой вопрос, где фигурирует database ?
в коде,
dbDL
DL
тогда эта, макросы тут нафиг не нужны
ST
запутал :)
в одной елочке и кружке пива запутали 😊
DL
в одной елочке и кружке пива запутали 😊
о, пива надо