Вот пример (я удалил одну строку):

        (when (= node (first (db/primaries test)))
-         (cl/with-conn-failure-retry conn
-           (info (str "Creating table " table-name))
-           (j/execute! conn [(str "CREATE TABLE IF NOT EXISTS " table-name
-                             "(id INT NOT NULL PRIMARY KEY,
-                             balance INT NOT NULL)")])
-           (doseq [a (:accounts test)]
-               (info "Populating account")
-               (sql/insert! conn table-name {:id      a
-                                             :balance (if (= a (first (:accounts test)))
-                                                       (:total-amount test)
-                                                       0)}))))
+         (info (str "Creating table " table-name))
+         (j/execute! conn [(str "CREATE TABLE IF NOT EXISTS " table-name
+                           "(id INT NOT NULL PRIMARY KEY,
+                           balance INT NOT NULL)")])
+         (doseq [a (:accounts test)]
+             (info "Populating account")
+             (sql/insert! conn table-name {:id      a
+                                           :balance (if (= a (first (:accounts test)))
+                                                     (:total-amount test)
+                                                     0)}))))
         (assoc this :conn conn :node node))))

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

Вот какой вопрос меня мучает. В кложе принято писать код в стиле Маяковского - многоэтажными конструкциями с отступами. Если, к примеру, в середину одной из таких конструкций добавить изменение, то нужно переформатировать строки ниже этой строки и получается патч, в котором вместо одной строки изменения для нескольких строк. Это например не очень удобно для ревьюера, ну и просто как то непривычно после других языков. Как вы с этим справляетесь?

Вот пример (я удалил одну строку):

        (when (= node (first (db/primaries test)))
-         (cl/with-conn-failure-retry conn
-           (info (str "Creating table " table-name))
-           (j/execute! conn [(str "CREATE TABLE IF NOT EXISTS " table-name
-                             "(id INT NOT NULL PRIMARY KEY,
-                             balance INT NOT NULL)")])
-           (doseq [a (:accounts test)]
-               (info "Populating account")
-               (sql/insert! conn table-name {:id      a
-                                             :balance (if (= a (first (:accounts test)))
-                                                       (:total-amount test)
-                                                       0)}))))
+         (info (str "Creating table " table-name))
+         (j/execute! conn [(str "CREATE TABLE IF NOT EXISTS " table-name
+                           "(id INT NOT NULL PRIMARY KEY,
+                           balance INT NOT NULL)")])
+         (doseq [a (:accounts test)]
+             (info "Populating account")
+             (sql/insert! conn table-name {:id      a
+                                           :balance (if (= a (first (:accounts test)))
+                                                     (:total-amount test)
+                                                     0)}))))
         (assoc this :conn conn :node node))))

я за то чтоб функция во вьюпорт умешалась редактора

только надо помнить что по дефолту в джаве JIT инлайнит методы не более 35 инструкций (байткода, но эта опция настраивается), хотя с кложурой возможно этого понимания достичь еще сложнее

и за естественное разбиение на функции

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