Fix Emacs indentation of `with-anaphora` (#45716)

.dir-locals.el

@@ -59,6 +59,7 @@
   (eval . (put-clojure-indent 'mt/query 1))
   (eval . (put-clojure-indent 'mt/test-driver 1))
   (eval . (put-clojure-indent 'mt/test-drivers 1))
+  (eval . (put-clojure-indent 'mt/with-anaphora 1))
   (eval . (put-clojure-indent 'prop/for-all 1))
   (eval . (put-clojure-indent 'qp.streaming/streaming-response 1))
   (eval . (put-clojure-indent 'tc/quick-check 1))

enterprise/backend/test/metabase_enterprise/query_field_validation/api_test.clj

@@ -53,8 +53,9 @@
 
   `card-4` is guaranteed not to have problems"
   [& body]
-  `(do-with-test-setup (mt/with-anaphora [qf-1 qf-2 qf-3 card-1 card-2 card-3 card-4]
-                         ~@body)))
+  `(do-with-test-setup
+    (mt/with-anaphora [qf-1 qf-2 qf-3 card-1 card-2 card-3 card-4]
+      ~@body)))
 
 (def ^:private url "ee/query-field-validation/invalid-cards")