Телеграмм чат группы clojure

2020 April 10

ST

Sergey Trofimov in Clojure — русскоговорящее сообщество

ещё приходит в голову вариант let-образного макроса, чтобы использовать как (megamacro [db "monger-test" coll "documents"] code...)

источник

22:13пожаловаться #1

E

ETL in Clojure — русскоговорящее сообщество

Dmytro Lispyvnyi '(🌲 🍺)

а есть пара примеров того, как оно выглядит без макроса?

(defn set-counter-2
"Присваиваем id значение самого большого id в базе"
[]
(megamacro
(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll))))))

источник

22:13пожаловаться #2

ST

Sergey Trofimov in Clojure — русскоговорящее сообщество

Dmytro Lispyvnyi '(🌲 🍺)

только мне вот что-то не очень нравится идея биндить локальные имена извне

то есть макросы fn и let тебе не нравятся?

источник

22:14пожаловаться #3

DL

Dmytro Lispyvnyi '(🌲 🍺) in Clojure — русскоговорящее сообщество

Sergey Trofimov

то есть макросы fn и let тебе не нравятся?

там без этого никак

источник

22:14пожаловаться #4

DL

Dmytro Lispyvnyi '(🌲 🍺) in Clojure — русскоговорящее сообщество

ETL

(defn set-counter-2
"Присваиваем id значение самого большого id в базе"
[]
(megamacro
(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll))))))

нет, именно без megamacro

источник

22:14пожаловаться #5

ST

Sergey Trofimov in Clojure — русскоговорящее сообщество

Dmytro Lispyvnyi '(🌲 🍺)

там без этого никак

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

источник

22:15пожаловаться #6

DL

Dmytro Lispyvnyi '(🌲 🍺) in Clojure — русскоговорящее сообщество

Sergey Trofimov

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

ну вот я и хочу посмотреть, может быть в данном конкретном случае можно не так

источник

22:16пожаловаться #7

E

ETL in Clojure — русскоговорящее сообщество

Dmytro Lispyvnyi '(🌲 🍺)

ну вот я и хочу посмотреть, может быть в данном конкретном случае можно не так

определенно можно, это просто я решил на макросе запилить ) про первое правило макросов - "никогда не писать макросов" в курсе, книга Грэхэма в списке отложенных )))

источник

22:17пожаловаться #8

ST

Sergey Trofimov in Clojure — русскоговорящее сообщество

Dmytro Lispyvnyi '(🌲 🍺)

ну вот я и хочу посмотреть, может быть в данном конкретном случае можно не так

в данном конкретном можно, у человека же макрос работает
но code наверняка выглядит магично, так как непонятно, откуда берутся conn и товарищи

источник

22:17пожаловаться #9

DL

Dmytro Lispyvnyi '(🌲 🍺) in Clojure — русскоговорящее сообщество

Sergey Trofimov

в данном конкретном можно, у человека же макрос работает
но code наверняка выглядит магично, так как непонятно, откуда берутся conn и товарищи

вот именно

источник

22:17пожаловаться #10

E

ETL in Clojure — русскоговорящее сообщество

(defn set-counter-2
"Присваиваем id значение самого большого id в базе"
[]
(

let [connection (mg/connect)
       database   (mg/get-db ~connection "monger-test")
       coll "documents"]

(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll))))))

источник

22:18пожаловаться #11

ST

Sergey Trofimov in Clojure — русскоговорящее сообщество

Dmytro Lispyvnyi '(🌲 🍺)

вот именно

но этот вариант уже без такой магии https://t.me/clojure_ru/114240

Sergey Trofimov in Clojure — русскоговорящее сообщество

@apostaat вот вариант без магического порождения байндингов внутри макроса:
(defmacro megamacro
[[connection, database, coll] code]
`(let [~connection (mg/connect)
~database (mg/get-db ~connection "monger-test")
~coll "documents"]
~code))
=> #'dev.playground/megamacro
(macroexpand '(megamacro [conn db coll] :code))
=> (let* [conn (mg/connect) db (mg/get-db conn "monger-test") coll "documents"] :code)

источник

22:18пожаловаться #12

DL

Dmytro Lispyvnyi '(🌲 🍺) in Clojure — русскоговорящее сообщество

ETL

(defn set-counter-2
"Присваиваем id значение самого большого id в базе"
[]
(

let [connection (mg/connect)
       database   (mg/get-db ~connection "monger-test")
       coll "documents"]

(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll))))))

а вот с coll я бы точно не стал так делать

источник

22:18пожаловаться #13

E

ETL in Clojure — русскоговорящее сообщество

Вот если делать без макроса. Просто использование monger предполагает, что ты эту простыню с let пишешь при использовании функций из этой библиотеки каждый раз, т.е. оно пишется в somehow императивном стиле.

источник

22:19пожаловаться #14

ST

Sergey Trofimov in Clojure — русскоговорящее сообщество

ETL

Вот если делать без макроса. Просто использование monger предполагает, что ты эту простыню с let пишешь при использовании функций из этой библиотеки каждый раз, т.е. оно пишется в somehow императивном стиле.

доступ к conn нужен из кода?

источник

22:19пожаловаться #15

ST

Sergey Trofimov in Clojure — русскоговорящее сообщество

ETL

Вот если делать без макроса. Просто использование monger предполагает, что ты эту простыню с let пишешь при использовании функций из этой библиотеки каждый раз, т.е. оно пишется в somehow императивном стиле.

ну, мне мотивация изначально была понятна

источник

22:20пожаловаться #16

E

ETL in Clojure — русскоговорящее сообщество

coll это константа, я её в def могу пихнуть и потом квалифицированно использовать, если так лучше

источник

22:20пожаловаться #17

ST

Sergey Trofimov in Clojure — русскоговорящее сообщество

ETL

coll это константа, я её в def могу пихнуть и потом квалифицированно использовать, если так лучше

я спрашиваю про conn, не путайся

источник

22:21пожаловаться #18

DL

Dmytro Lispyvnyi '(🌲 🍺) in Clojure — русскоговорящее сообщество

ETL

(defn set-counter-2
"Присваиваем id значение самого большого id в базе"
[]
(

let [connection (mg/connect)
       database   (mg/get-db ~connection "monger-test")
       coll "documents"]

(if (empty? (map #(get % :_id) (mc/find-maps db coll)))
0
(apply max (map #(get % :_id) (mc/find-maps db coll))))))

(defmacro with-connection
  [body]
  `(let [connection (mg/connect)
         database   (mg/get-db ~connection "monger-test")
         coll "documents"]
     @body))

в первом приближении так

источник

22:22пожаловаться #19

E

ETL in Clojure — русскоговорящее сообщество

Sergey Trofimov

доступ к conn нужен из кода?

нет, conn нигде за пределами вектора привязок let не используется

источник

22:22пожаловаться #20