Lint

.babelrc

@@ -0,0 +1,31 @@
+{
+  "plugins": [
+    "@emotion",
+    "@babel/plugin-proposal-export-default-from",
+    ["@babel/plugin-proposal-decorators", { "legacy": true }]
+  ],
+  "presets": [
+    "@babel/preset-env",
+    "@babel/preset-react",
+    "@babel/preset-typescript"
+  ],
+  "env": {
+    "development": {
+      "presets": []
+    },
+    "extract": {
+      "plugins": [
+        [
+          "ttag",
+          {
+            "extract": {
+              "output": "locales/metabase-frontend.pot"
+            },
+            "discover": ["t", "jt"],
+            "numberedExpressions": true
+          }
+        ]
+      ]
+    }
+  }
+}

.claude/commands/fix-flakey-test.md

@@ -1 +0,0 @@
-Fix flakey test $ARGUMENTS

.claude/commands/fix-issue.md

@@ -1 +0,0 @@
-Fix issue $ARGUMENTS

.claude/commands/fix-pr.md

@@ -1 +0,0 @@
-Fetch unresolved comments for this branch's PR, then fix them

.claude/commands/repro-issue.md

@@ -1 +0,0 @@
-Repro issue $ARGUMENTS in a failing test

.claude/skills/_shared/clojure-commands.md

@@ -1,86 +0,0 @@
-## Linting and Formatting
-
-- **Lint PR:** `./bin/mage kondo-updated master` (or whatever target branch)
-  - Call the command one time at the beginning, record the results, then work through the problems one at a time.
-  - If the solution is obvious, then please apply the fix. Otherwise skip it.
-  - If you fix all the issues (and verify by rerunning the kondo-updated command):
-    - commit the change with a succinct and descriptive commit message
-- **Lint File:** `./bin/mage kondo <file or files>`
-  - Use the linter as a way to know that you are adhering to conventions in place in the codebase
-- **Lint Changes:** `./bin/mage kondo-updated HEAD`
-- **Format:** `./bin/mage cljfmt-files [path]`
-
-## Testing
-
-- **Run a test:** `./bin/mage run-tests namespace/test-name`
-- **Run all tests in a namespace:** `./bin/mage run-tests namespace`
-- **Run all tests for a module:** `./bin/mage run-tests test/metabase/notification` Because the module lives in that directory.
-
-Note: the `./bin/mage run-tests` command accepts multiple args, so you can pass
-`./bin/mage run-tests namespace/test-name namespace/other-test namespace/third-test`
-to run 3 tests, or
-`./bin/mage run-tests test/metabase/module1 test/metabase/module2` to run 2 modules.
-
-## Code Readability
-
-- **Check Code Readability:** `./bin/mage -check-readable <file> [line-number]`
-  - Run after every change to Clojure code
-  - Check specific line first, then entire file if readable
-
-## REPL Usage
-
-> **Note:** If you have `clojure-mcp` tools available (check for tools like `clojure_eval`),
-> **always prefer those over `./bin/mage -repl`**. The MCP tools provide better integration,
-> richer feedback, and avoid shell escaping issues. Only use `./bin/mage -repl` as a fallback
-> when clojure-mcp is not available.
-
-- **Evaluating Clojure Code:** `./bin/mage -repl '<code>'`
-  - See "Sending Code to the REPL" section for more details
-
-### Sending Code to the REPL
-
-- Send code to the metabase process REPL using: `./bin/mage -repl '(+ 1 1)'` where `(+ 1 1)` is your Clojure code.
-  - See `./bin/mage -repl -h` for more details.
-  - If the Metabase backend is not running, you'll see an error message with instructions on how to start it.
-
-#### Working with Files and Namespaces
-
-1. **Load a file and call functions with fully qualified names**:
-
-To call `your.namespace/your-function` on `arg1` and `arg2`:
-
-```
-./bin/mage -repl --namespace your.namespace '(your-function arg1 arg2)'
-```
-
-DO NOT use "require", "load-file" etc in the code string argument.
-
-#### Understanding the Response
-
-The `./bin/mage -repl` command returns three separate, independent outputs:
-
-- `value`: The return value of the last expression (best for data structures)
-- `stdout`: Any printed output from `println` etc. (best for messages)
-- `stderr`: Any error messages (best for warnings and errors)
-
-Example call:
-
-```bash
-./bin/mage -repl '(println "Hello, world!") '\''({0 1, 1 3, 2 0, 3 2} {0 2, 1 0, 2 3, 3 1})'
-```
-
-Example response:
-
-```
-ns: user
-session: 32a35206-871c-4553-9bc9-f49491173d1c
-value:  ({0 1, 1 3, 2 0, 3 2} {0 2, 1 0, 2 3, 3 1})
-stdout:  Hello, world!
-stderr:
-```
-
-For effective REPL usage:
-
-- Return data structures as function return values
-- Use `println` for human-readable messages
-- Print errors to stderr

.claude/skills/_shared/clojure-style-guide.md

@@ -1,153 +0,0 @@
-# Metabase Clojure Style Guide
-
-This guide covers Clojure and ClojureScript coding conventions for Metabase. See also: `CLOJURE_STYLE_GUIDE.adoc` for the Community Clojure Style Guide.
-
-## Naming Conventions
-
-**General Naming:**
-
-- Acceptable abbreviations: `acc`, `i`, `pred`, `coll`, `n`, `s`, `k`, `f`
-- Use `kebab-case` for all variables, functions, and constants
-
-**Function Naming:**
-
-- Pure functions should be nouns describing the value they return (e.g., `age` not `calculate-age` or `get-age`)
-- Functions with side effects must end with `!`
-- Don't repeat namespace alias in function names
-
-**Destructuring:**
-
-- Map destructuring should use kebab-case local bindings even if the map uses `snake_case` keys
-
-## Documentation Standards
-
-**Docstrings:**
-
-- Every public var in `src` or `enterprise/backend/src` must have docstring
-- Format using Markdown conventions
-- Reference other vars with `[[other-var]]` not backticks
-
-**Comments:**
-
-- `TODO` format: `;; TODO (Name M/D/YY) -- description`
-
-## Code Organization
-
-**Visibility:**
-
-- Make everything `^:private` unless it is used elsewhere
-- Try to organize namespaces to avoid `declare` (put public functions near the end)
-
-**Size and Structure:**
-
-- Break up functions > 20 lines
-- Lines ≤ 120 characters
-- No blank lines within definition forms (except pairwise `let`/`cond`)
-
-## Style Conventions
-
-**Keywords and Metadata:**
-
-- Prefer namespaced keywords for internal use: `:query-type/normal` not `:normal`
-- Tag variables with `:arglists` metadata if they're functions but wouldn't otherwise have it
-
-## Tests
-
-**Organization:**
-
-- Break large tests into separate `deftest` forms for logically separate test cases
-- Test names should end in `-test` or `-test-<number>`
-
-**Performance:**
-
-- Mark pure function tests `^:parallel`
-
-## Modules
-
-**OSS Modules:**
-
-- Follow `metabase.<module>.*` pattern
-- Source in `src/metabase/<module>/`
-
-**Enterprise Modules:**
-
-- Follow `metabase-enterprise.<module>.*` pattern
-- Source in `enterprise/backend/src/metabase_enterprise/<module>/`
-
-**Module Structure:**
-
-- REST API endpoints go in `<module>.api` or `<module>.api.*` namespaces
-- Put module public API in `<module>.core` using Potemkin imports
-- Put Toucan models in `<module>.models.*`
-- Put settings in `<module>.settings`
-- Put schemas in `<module>.schema`
-
-**Module Linters:**
-
-- Do not cheat module linters with `:clj-kondo/ignore [:metabase/modules]`
-
-## REST API Endpoints
-
-**Required Elements:**
-
-- All new endpoints must have response schemas (`:- <schema>` after route string)
-- All endpoints need Malli schemas for parameters (detailed and complete)
-- All new REST API endpoints MUST HAVE TESTS
-
-**Naming Conventions:**
-
-- Query parameters use kebab-case
-- Request bodies use `snake_case`
-- Routes use singular nouns (e.g., `/api/dashboard/:id`)
-
-**Behavior:**
-
-- `GET` endpoints should not have side effects (except analytics)
-- `defendpoint` forms should be small wrappers around Toucan model code
-
-## MBQL (Metabase Query Language)
-
-**Restrictions:**
-
-- No raw MBQL introspection outside of `lib`, `lib-be`, or `query-processor` modules
-- Use Lib and MBQL 5 in new source code; avoid legacy MBQL
-
-## Database and Models
-
-**Naming:**
-
-- Model names and table names should be singular nouns
-- Application database uses `snake_case` identifiers
-
-**Best Practices:**
-
-- Use `t2/select-one-fn` instead of fetching entire rows for one column
-- Put correct behavior in Toucan methods, not separate helper functions
-
-## Drivers
-
-**Documentation:**
-
-- New driver multimethods must be mentioned in `docs/developers-guide/driver-changelog.md`
-
-**Implementation:**
-
-- Driver implementations should pass `driver` argument to other driver multimethods
-- Don't hardcode driver names in implementations
-- Minimize logic inside `read-column-thunk` in JDBC-based drivers
-
-## Miscellaneous
-
-**Examples:**
-
-- Example data should be bird-themed if possible
-
-**Linter Suppressions:**
-
-- Use proper format for kondo suppressions
-- No `#_:clj-kondo/ignore` (keyword form)
-
-**Configurable Options:**
-
-- Don't define configurable options that can only be set with environment variables
-- Use `:internal` `defsetting` instead

.claude/skills/_shared/development-workflow.md

@@ -1,8 +0,0 @@
-# Autonomous Development Workflow
-
-- Do not attempt to read or edit files outside the project folder
-- Add failing tests first, then fix them
-- Work autonomously in small, testable increments
-- Run targeted tests, and lint continuously during development
-- Prioritize understanding existing patterns before implementing
-- Don't commit changes, leave it for the user to review and make commits

.claude/skills/_shared/metabase-style-guide.md

@@ -1,84 +0,0 @@
-# Metabase Writing Style Guide
-
-## Core Principles
-
-Write like you're talking to a colleague. Be conversational, not formal. Get people what they need quickly. Know your audience and match the complexity.
-
-## Tone and Voice
-
-**Do:**
-
-- Use contractions ("can't" not "cannot")
-- Say "people" or "companies" instead of "users"
-- Be friendly but not peppy
-- Acknowledge limitations honestly ("that's on us, not them")
-- Jokes and Easter eggs are okay (permit them, don't suggest them)
-
-**Don't:**
-
-- Use exclamation points excessively
-- Rely on tired tropes about nerdiness
-- Use corporate jargon ("utilize", "offerings", "actionable insights")
-- Tell people something is cool (show them instead)
-
-## Structure and Clarity
-
-**Lead with the important stuff:**
-
-- Most important information first
-- Lead with the ask, then provide context
-- Cut text that adds little value (when in doubt, cut it)
-- Each paragraph should have one clear purpose
-
-**Make headings do the work:**
-
-- Convey your actual point, not just the topic
-- "Use headings to highlight key points" not "How to write a good heading"
-- Use sentence case, no punctuation except question marks
-- No links in headings unless entire heading is a link
-
-## Instructions and Examples
-
-**Tell people what to do:**
-
-- Give the action before explaining why
-- Put commands in execution order
-- Provide context, steps, and reasoning
-- Don't describe tasks as "easy" or "simple"
-
-**Answer unasked questions:**
-
-- Include answers to "dumb" questions you had when learning
-- Don't literally include the question, just give the answer
-
-## Formatting
-
-**Code vs. UI elements:**
-
-- Backticks for code, variable names, parameters only
-- **Bold** for UI elements and labels (e.g., "Click the **Save** button")
-- Don't use backticks or quotes for UI elements
-
-## Writing Mechanics
-
-- Limit pronouns when introducing new terms (repeat the term to reinforce it)
-- Ampersands only in proper nouns, never as substitute for "and"
-
-## Terminology Preferences
-
-Use familiar terms from tools people already know:
-
-- "Summarize" (like Excel) instead of "aggregate"
-- "Take a look at" instead of "reference"
-- "Filter" instead of technical database terms when appropriate
-
-## Red Flags
-
-Avoid these patterns:
-
-- Multiple exclamation points
-- Linking "here"
-- Bullet lists to explain (use prose)
-- Numbers that will change (guard against change)
-- Describing things as "easy" or "simple"
-- Stock photography-worthy content

.claude/skills/_shared/typescript-commands.md

@@ -1,21 +0,0 @@
-## Linting and Formatting
-
-- **Lint:** `yarn lint-eslint-pure`
-  - Run ESLint on the codebase
-- **Format:** `yarn prettier`
-  - Format code using Prettier
-- **Type Check:** `yarn type-check-pure`
-  - Run TypeScript type checking
-
-## Testing
-
-### JavaScript/TypeScript Tests
-
-- **Test a specific file:** `yarn test-unit-keep-cljs path/to/file.unit.spec.js`
-- **Test by pattern:** `yarn test-unit-keep-cljs -t "pattern"`
-  - Runs tests matching the given pattern
-
-### ClojureScript Tests
-
-- **Test ClojureScript:** `yarn test-cljs`
-  - Run ClojureScript tests

.claude/skills/add-malli-schemas/SKILL.md

@@ -1,420 +0,0 @@
----
-name: add-malli-schemas
-description: Efficiently add Malli schemas to API endpoints in the Metabase codebase with proper patterns, validation timing, and error handling
----
-
-# Add Malli Schemas to API Endpoints
-
-This skill helps you efficiently and uniformly add Malli schemas to API endpoints in the Metabase codebase.
-
-## Reference Files (Best Examples)
-
-- `src/metabase/warehouses/api.clj` - Most comprehensive schemas, custom error messages
-- `src/metabase/api_keys/api.clj` - Excellent response schemas
-- `src/metabase/collections/api.clj` - Great named schema patterns
-- `src/metabase/timeline/api/timeline.clj` - Clean, simple examples
-
-## Quick Checklist
-
-When adding Malli schemas to an endpoint:
-
-- [ ] Route params have schemas
-- [ ] Query params have schemas with `:optional true` and `:default` where appropriate
-- [ ] Request body has a schema (for POST/PUT)
-- [ ] Response schema is defined (using `:-` after route string)
-- [ ] Use existing schema types from `ms` namespace when possible
-- [ ] Consider creating named schemas for reusable or complex types
-- [ ] Add contextual error messages for validation failures
-
-## Basic Structure
-
-### Complete Endpoint Example
-
-```clojure
-(mr/def ::Color [:enum "red" "blue" "green"])
-
-(mr/def ::ResponseSchema
-  [:map
-   [:id pos-int?]
-   [:name string?]
-   [:color ::Color]
-   [:created_at ms/TemporalString]])
-
-(api.macros/defendpoint :post "/:name" :- ::ResponseSchema
-  "Create a resource with a given name."
-  [;; Route Params:
-   {:keys [name]} :- [:map [:name ms/NonBlankString]]
-   ;; Query Params:
-   {:keys [include archived]} :- [:map
-                                   [:include  {:optional true} [:maybe [:= "details"]]]
-                                   [:archived {:default false} [:maybe ms/BooleanValue]]]
-   ;; Body Params:
-   {:keys [color]} :- [:map [:color ::Color]]
-   ]
-  ;; endpoint implementation, ex:
-  {:id 99
-   :name (str "mr or mrs " name)
-   :color ({"red" "blue" "blue" "green" "green" "red"} color)
-   :created_at (t/format (t/formatter "yyyy-MM-dd'T'HH:mm:ssXXX") (t/zoned-date-time))}
-  )
-```
-
-## Common Schema Patterns
-
-1. Route Params (the 5 in `api/user/id/5`)
-2. Query Params (the sort+asc pair in `api/users?sort=asc`)
-3. Body Params (the contents of a request body. Almost always decoded from json into edn)
-4. The Raw Request map
-
-Of the 4 arguments, deprioritize usage of the raw request unless necessary.
-
-### Route Params
-
-Always required, typically just a map with an ID:
-
-```clojure
-[{:keys [id]} :- [:map [:id ms/PositiveInt]]]
-```
-
-For multiple route params:
-
-```clojure
-[{:keys [id field-id]} :- [:map
-                           [:id ms/PositiveInt]
-                           [:field-id ms/PositiveInt]]]
-```
-
-### Query Params
-
-Add properties for `{:optional true ...}` and `:default` values:
-
-```clojure
-{:keys [archived include limit offset]} :- [:map
-                                            [:archived {:default false} [:maybe ms/BooleanValue]]
-                                            [:include  {:optional true}   [:maybe [:= "tables"]]]
-                                            [:limit    {:optional true} [:maybe ms/PositiveInt]]
-                                            [:offset   {:optional true} [:maybe ms/PositiveInt]]]
-```
-
-### Request Body (POST/PUT)
-
-```clojure
-{:keys [name description parent_id]} :- [:map
-                                         [:name        ms/NonBlankString]
-                                         [:description {:optional true} [:maybe ms/NonBlankString]]
-                                         [:parent_id   {:optional true} [:maybe ms/PositiveInt]]]
-```
-
-### Response Schemas
-
-#### Simple inline response:
-
-```clojure
-(api.macros/defendpoint :get "/:id" :- [:map
-                                        [:id pos-int?]
-                                        [:name string?]]
-  "Get a thing"
-  ...)
-```
-
-#### Named schema for reuse:
-
-```clojure
-(mr/def ::Thing
-  [:map
-   [:id pos-int?]
-   [:name string?]
-   [:description [:maybe string?]]])
-
-(api.macros/defendpoint :get "/:id" :- ::Thing
-  "Get a thing"
-  ...)
-
-(api.macros/defendpoint :get "/" :- [:sequential ::Thing]
-  "Get all things"
-  ...)
-```
-
-## Common Schema Types
-
-### From `metabase.util.malli.schema` (aliased as `ms`)
-
-Prefer the schemas in the ms/* namespace, since they work better with our api infrastructure. 
-
-For example use `ms/PositiveInt` instead of `pos-int?`.
-
-```clojure
-ms/PositiveInt                  ;; Positive integer
-ms/NonBlankString               ;; Non-empty string
-ms/BooleanValue                 ;; String "true"/"false" or boolean
-ms/MaybeBooleanValue            ;; BooleanValue or nil
-ms/TemporalString               ;; ISO-8601 date/time string (for REQUEST params only!)
-ms/Map                          ;; Any map
-ms/JSONString                   ;; JSON-encoded string
-ms/PositiveNum                  ;; Positive number
-ms/IntGreaterThanOrEqualToZero  ;; 0 or positive
-```
-
-**IMPORTANT:** For response schemas, use `:any` for temporal fields, not `ms/TemporalString`!
-Response schemas validate BEFORE JSON serialization, so they see Java Time objects.
-
-### Built-in Malli Types
-
-```clojure
-:string                     ;; Any string
-:boolean                    ;; true/false
-:int                        ;; Any integer
-:keyword                    ;; Clojure keyword
-pos-int?                    ;; Positive integer predicate
-[:maybe X]                  ;; X or nil
-[:enum "a" "b" "c"]         ;; One of these values
-[:or X Y]                   ;; Schema that satisfies X or Y
-[:and X Y]                  ;; Schema that satisfies X and Y
-[:sequential X]             ;; Sequential of Xs
-[:set X]                    ;; Set of Xs
-[:map-of K V]               ;; Map with keys w/ schema K and values w/ schema V
-[:tuple X Y Z]              ;; Fixed-length tuple of schemas X Y Z
-```
-
-Avoid using sequence schemas unless completely necessary.
-
-## Step-by-Step: Adding Schemas to an Endpoint
-
-### Example: Adding return schema to `GET /api/field/:id/related`
-
-**Before:**
-```clojure
-(api.macros/defendpoint :get "/:id/related"
-  "Return related entities."
-  [{:keys [id]} :- [:map [:id ms/PositiveInt]]]
-  (-> (t2/select-one :model/Field :id id) api/read-check xrays/related))
-```
-
-**Step 1:** Check what the function returns (look at `xrays/related`)
-
-**Step 2:** Define response schema based on return type:
-
-```clojure
-(mr/def ::RelatedEntity
-  [:map
-   [:tables [:sequential [:map [:id pos-int?] [:name string?]]]]
-   [:fields [:sequential [:map [:id pos-int?] [:name string?]]]]])
-```
-
-**Step 3:** Add response schema to endpoint:
-
-```clojure
-(api.macros/defendpoint :get "/:id/related" :- ::RelatedEntity
-  "Return related entities."
-  [{:keys [id]} :- [:map [:id ms/PositiveInt]]]
-  (-> (t2/select-one :model/Field :id id) api/read-check xrays/related))
-```
-
-## Advanced Patterns
-
-### Custom Error Messages
-
-```clojure
-(def DBEngineString
-  "Schema for a valid database engine name."
-  (mu/with-api-error-message
-   [:and
-    ms/NonBlankString
-    [:fn
-     {:error/message "Valid database engine"}
-     #(u/ignore-exceptions (driver/the-driver %))]]
-   (deferred-tru "value must be a valid database engine.")))
-```
-
-### Enum with Documentation
-
-```clojure
-(def PinnedState
-  (into [:enum {:error/message "pinned state must be 'all', 'is_pinned', or 'is_not_pinned'"}]
-        #{"all" "is_pinned" "is_not_pinned"}))
-```
-
-### Complex Nested Response
-
-```clojure
-(mr/def ::DashboardQuestionCandidate
-  [:map
-   [:id ms/PositiveInt]
-   [:name ms/NonBlankString]
-   [:description [:maybe string?]]
-   [:sole_dashboard_info
-    [:map
-     [:id ms/PositiveInt]
-     [:name ms/NonBlankString]
-     [:description [:maybe string?]]]]])
-
-(mr/def ::DashboardQuestionCandidatesResponse
-  [:map
-   [:data [:sequential ::DashboardQuestionCandidate]]
-   [:total ms/PositiveInt]])
-```
-
-### Paginated Response Pattern
-
-```clojure
-(mr/def ::PaginatedResponse
-  [:map
-   [:data [:sequential ::Item]]
-   [:total integer?]
-   [:limit {:optional true} [:maybe integer?]]
-   [:offset {:optional true} [:maybe integer?]]])
-```
-
-## Common Pitfalls
-
-### Don't: Forget `:maybe` for nullable fields
-
-```clojure
-[:description ms/NonBlankString]  ;; WRONG - fails if nil
-[:description [:maybe ms/NonBlankString]]  ;; RIGHT - allows nil
-```
-
-### Don't: Forget `:optional true` for optional query params
-
-```clojure
-[:limit ms/PositiveInt]  ;; WRONG - required but shouldn't be
-[:limit {:optional true} [:maybe ms/PositiveInt]]  ;; RIGHT
-```
-
-### Don't: Forget `:default` values for known params
-
-```clojure
-[:limit ms/PositiveInt]  ;; WRONG - required but shouldn't be
-[:limit {:optional true :default 0} [:maybe ms/PositiveInt]]  ;; RIGHT
-```
-
-
-### Don't: Mix up route params, query params, and body
-
-```clojure
-;; WRONG - all in one map
-[{:keys [id name archived]} :- [:map ...]]
-
-;; RIGHT - separate destructuring
-[{:keys [id]} :- [:map [:id ms/PositiveInt]]
- {:keys [archived]} :- [:map [:archived {:default false} ms/BooleanValue]]
- {:keys [name]} :- [:map [:name ms/NonBlankString]]]
-```
-
-### Don't: Use `ms/TemporalString` for Java Time objects in response schemas
-
-```clojure
-;; WRONG - Java Time objects aren't strings yet
-[:date_joined ms/TemporalString]
-
-;; RIGHT - schemas validate BEFORE JSON serialization
-[:date_joined :any]  ;; Java Time object, serialized to string by middleware
-[:last_login [:maybe :any]]  ;; Java Time object or nil
-```
-
-**Why:** Response schemas validate the internal Clojure data structures BEFORE they are serialized to JSON. Java Time objects like `OffsetDateTime` get converted to ISO-8601 strings by the JSON middleware, so the schema needs to accept the raw Java objects.
-
-### Don't: Use `[:sequential X]` when the data is actually a set
-
-```clojure
-;; WRONG - group_ids is actually a set
-[:group_ids {:optional true} [:sequential pos-int?]]
-
-;; RIGHT - matches the actual data structure
-[:group_ids {:optional true} [:maybe [:set pos-int?]]]
-```
-
-**Why:** Toucan hydration methods often return sets. The JSON middleware will serialize sets to arrays, but the schema validates before serialization.
-
-### Don't: Create anonymous schemas for reused structures
-
-Use `mr/def` for schemas used in multiple places:
-
-```clojure
-(mr/def ::User
-  [:map
-   [:id pos-int?]
-   [:email string?]
-   [:name string?]])
-```
-
-## Finding Return Types
-
-1. **Look at the function being called**
-
-```clojure
-(api.macros/defendpoint :get "/:id"
-  [{:keys [id]}]
-  (t2/select-one :model/Field :id id))  ;; Returns a Field instance
-```
-
-2. **Check Toucan models for structure**
-
-Look in `src/metabase/*/models/*.clj` for model definitions.
-
-3. **Use clojure-mcp or REPL to inspect**
-
-```bash
-./bin/mage -repl '(require '\''metabase.xrays.core) (doc metabase.xrays.core/related)'
-```
-
-4. **Check tests**
-
-Tests often show the expected response structure.
-
-## Understanding Schema Validation Timing
-
-**CRITICAL CONCEPT:** Schemas validate at different points in the request/response lifecycle:
-
-### Request Parameter Schemas (Query/Body/Route)
-- Validate AFTER JSON parsing
-- Data is already deserialized (strings, numbers, booleans)
-- Use `ms/TemporalString` for date/time inputs
-- Use `ms/BooleanValue` for boolean query params
-
-### Response Schemas
-- Validate BEFORE JSON serialization
-- Data is still in Clojure format (Java Time objects, sets, keywords)
-- Use `:any` for Java Time objects
-- Use `[:set X]` for sets
-- Use `[:enum :keyword]` for keyword enums
-
-### Serialization Flow
-
-```
-Request:  JSON string → Parse → Coerce → Handler
-Response: Handler → Schema Check → Encode → Serialize → JSON string
-```
-
-## Workflow Summary
-
-1. **Read the endpoint** - understand what it does
-2. **Identify params** - route, query, body
-3. **Add parameter schemas** - use existing types from `ms`
-4. **Determine return type** - check the implementation
-5. **Define response schema** - inline or named with `mr/def`
-6. **Test** - ensure the endpoint works and validates correctly
-
-## Testing Your Schemas
-
-After adding schemas, verify:
-
-1. **Valid requests work** - test with correct data
-2. **Invalid requests fail gracefully** - test with wrong types
-3. **Optional params work** - test with/without optional params
-4. **Error messages are clear** - check validation error responses
-
-## Tips
-
-- **Start simple** - begin with basic types, refine later
-- **Reuse schemas** - if you see the same structure twice, make it a named schema
-- **Be specific** - use `ms/PositiveInt` instead of `pos-int?`
-- **Document intent** - add docstrings to named schemas
-- **Follow conventions** - look at similar endpoints in the same namespace
-- **Check the actual data** - use REPL to inspect what's actually returned before serialization
-
-## Additional Resources
-
-- [Malli Documentation](https://github.com/metosin/malli)
-- Metabase Malli utilities: `src/metabase/util/malli/schema.clj`
-- Metabase schema registry: `src/metabase/util/malli/registry.clj`

.claude/skills/clojure-review/SKILL.md

@@ -1,144 +0,0 @@
----
-name: clojure-review
-description: Review Clojure and ClojureScript code changes for compliance with Metabase coding standards, style violations, and code quality issues. Use when reviewing pull requests or diffs containing Clojure/ClojureScript code.
-allowed-tools: Read, Grep, Bash, Glob
----
-
-# Clojure Code Review Skill
-
-@./../_shared/clojure-style-guide.md
-@./../_shared/clojure-commands.md
-
-## Review guidelines
-
-**What to flag:**
-
-- Check compliance with the Metabase Clojure style guide (included above)
-- If `CLOJURE_STYLE_GUIDE.adoc` exists in the working directory, also check compliance with the community Clojure style guide
-- Flag all style guide violations
-
-**What NOT to post:**
-
-- Do not post comments congratulating someone for trivial changes or for following style guidelines
-- Do not post comments confirming things "look good" or telling them they did something correctly
-- Only post comments about style violations or potential issues
-
-Example bad code review comments to avoid:
-
-> This TODO comment is properly formatted with author and date - nice work!
-
-> Good addition of limit 1 to the query - this makes the test more efficient without changing its behavior.
-
-> The kondo ignore comment is appropriately placed here
-
-> Test name properly ends with -test as required by the style guide.
-
-**Special cases:**
-
-- Do not post comments about missing parentheses (these will be caught by the linter)
-
-## Quick review checklist
-
-Use this to scan through changes efficiently:
-
-### Naming
-
-- [ ] Descriptive names (no `tbl`, `zs'`)
-- [ ] Pure functions named as nouns describing their return value
-- [ ] `kebab-case` for all variables and functions
-- [ ] Side-effect functions end with `!`
-- [ ] No namespace-alias repetition in function names
-
-### Documentation
-
-- [ ] Public vars in `src` or `enterprise/backend/src` have useful docstrings
-- [ ] Docstrings use Markdown conventions
-- [ ] References use `[[other-var]]` not backticks
-- [ ] `TODO` comments include author and date: `;; TODO (Name 1/1/25) -- description`
-
-### Code Organization
-
-- [ ] Everything `^:private` unless used elsewhere
-- [ ] No `declare` when avoidable (public functions near end)
-- [ ] Functions under 20 lines when possible
-- [ ] No blank lines within definition forms (except pairwise constructs in `let`/`cond`)
-- [ ] Lines ≤ 120 characters
-
-### Tests
-
-- [ ] Separate `deftest` forms for distinct test cases
-- [ ] Pure tests marked `^:parallel`
-- [ ] Test names end in `-test` or `-test-<number>`
-
-### Modules
-
-- [ ] Correct module patterns (OSS: `metabase.<module>.*`, EE: `metabase-enterprise.<module>.*`)
-- [ ] API endpoints in `<module>.api` namespaces
-- [ ] Public API in `<module>.core` with Potemkin
-- [ ] No cheating module linters with `:clj-kondo/ignore [:metabase/modules]`
-
-### REST API
-
-- [ ] Response schemas present (`:- <schema>`)
-- [ ] Query params use kebab-case, bodies use `snake_case`
-- [ ] Routes use singular nouns (e.g., `/api/dashboard/:id`)
-- [ ] `GET` has no side effects (except analytics)
-- [ ] Malli schemas detailed and complete
-- [ ] All new endpoints have tests
-
-### MBQL
-
-- [ ] No raw MBQL manipulation outside `lib`, `lib-be`, or `query-processor` modules
-- [ ] Uses Lib and MBQL 5, not legacy MBQL
-
-### Database
-
-- [ ] Model and table names are singular nouns
-- [ ] Uses `t2/select-one-fn` instead of selecting full rows for one column
-- [ ] Logic in Toucan methods, not helper functions
-
-### Drivers
-
-- [ ] New multimethods documented in `docs/developers-guide/driver-changelog.md`
-- [ ] Passes `driver` argument to other driver methods (no hardcoded driver names)
-- [ ] Minimal logic in `read-column-thunk`
-
-### Miscellaneous
-
-- [ ] Example data is bird-themed when possible
-- [ ] Kondo linter suppressions use proper format (not `#_:clj-kondo/ignore` keyword form)
-
-## Pattern matching table
-
-Quick scan for common issues:
-
-| Pattern                                      | Issue                                                       |
-| -------------------------------------------- | ----------------------------------------------------------- |
-| `calculate-age`, `get-user`                  | Pure functions should be nouns: `age`, `user`               |
-| `update-db`, `save-model`                    | Missing `!` for side effects: `update-db!`, `save-model!`   |
-| `snake_case_var`                             | Should use kebab-case                                       |
-| Public var without docstring                 | Add docstring explaining purpose                            |
-| `;; TODO fix this`                           | Missing author/date: `;; TODO (Name 1/1/25) -- description` |
-| `(defn foo ...)` in namespace used elsewhere | Should be `(defn ^:private foo ...)`                        |
-| Function > 20 lines                          | Consider breaking up into smaller functions                 |
-| `/api/dashboards/:id`                        | Use singular: `/api/dashboard/:id`                          |
-| Query params with `snake_case`               | Use kebab-case for query params                             |
-| New API endpoint without tests               | Add tests for the endpoint                                  |
-
-## Feedback format examples
-
-**For style violations:**
-
-> This pure function should be named as a noun describing its return value. Consider `user` instead of `get-user`.
-
-**For missing documentation:**
-
-> This public var needs a docstring explaining its purpose, inputs, and outputs.
-
-**For organization issues:**
-
-> This function is only used in this namespace, so it should be marked `^:private`.
-
-**For API conventions:**
-
-> Query parameters should use kebab-case. Change `user_id` to `user-id`.

.claude/skills/clojure-write/SKILL.md

@@ -1,69 +0,0 @@
----
-name: clojure-write
-description: Guide Clojure and ClojureScript development using REPL-driven workflow, coding conventions, and best practices. Use when writing, developing, or refactoring Clojure/ClojureScript code.
----
-
-# Clojure Development Skill
-
-## Tool Preference
-
-When `clojure-mcp` tools are available (e.g., `clojure_eval`, `clojure_edit`), **always use them**
-instead of shell commands like `./bin/mage -repl`. The MCP tools provide:
-- Direct REPL integration without shell escaping issues
-- Better error messages and feedback
-- Structural Clojure editing that prevents syntax errors
-
-Only fall back to `./bin/mage` commands when clojure-mcp is not available.
-
-@./../_shared/development-workflow.md
-@./../_shared/clojure-style-guide.md
-@./../_shared/clojure-commands.md
-
-## REPL-Driven Development Workflow
-
-- Start with small, fundamental functions:
-- Identify the core features or functionalities required for your task.
-- Break each feature down into the smallest, most basic functions that can be developed and tested independently.
-- Write and test in the REPL:
-  - Write the code for each small function directly in the REPL (Read-Eval-Print Loop).
-  - Test it thoroughly with a variety of inputs, including typical use cases and relevant edge cases, to ensure it
-    behaves as expected.
-- Integrate into source code:
-  - Once a function works correctly in the REPL, move it from the REPL environment into your source code files (e.g.,
-    within appropriate namespaces).
-- Gradually increase complexity:
-  - Build upon tested, basic functions to create more complex functions or components.
-  - Compose smaller functions together, testing each new composition in the REPL to verify correctness step by step.
-- Ensure dependency testing:
-  - Make sure every function is fully tested in the REPL before it is depended upon by other functions.
-  - This ensures that each layer of your application is reliable before you build on it.
-- Use the REPL fully:
-  - Use the REPL as your primary tool to experiment with different approaches, iterate quickly, and get immediate
-    feedback on your code.
-- Follow functional programming principles:
-  - Keep functions small, focused, and composable.
-  - Use Clojure's functional programming features—like immutability, higher-order functions, and the standard
-    library—to write concise, effective code.
-
-## How to Evaluate Code
-
-### Bottom-up Dev Loop
-
-1. Write code into a file.
-2. Evaluate the file's namespace and make sure it loads correctly with:
-
-```
-./bin/mage -repl --namespace metabase.app-db.connection
-```
-
-3. Call functions in the namespace with test inputs, and observe that the outputs are correct
-   Feel free to copy these REPL session trials into actual test cases using `deftest` and `is`.
-4. Once you know these functions are good, return to 1, and compose them into the task that you need to build.
-
-## Critical Rules for Editing
-
-- Be careful with parentheses counts when editing Clojure code
-- After EVERY change to Clojure code, verify readability with `-check-readable`
-- End all files with a newline
-- When editing tabular code, where the columns line up, try to keep them aligned
-- Spaces on a line with nothing after it is not allowed

.claude/skills/docs-review/SKILL.md

@@ -1,163 +0,0 @@
----
-name: docs-review
-description: Review documentation changes for compliance with the Metabase writing style guide. Use when reviewing pull requests, files, or diffs containing documentation markdown files.
-allowed-tools: Read, Grep, Bash, Glob
----
-
-# Documentation Review Skill
-
-@./../_shared/metabase-style-guide.md
-
-## Review mode detection
-
-**IMPORTANT: Before starting the review, determine which mode to use:**
-
-1. **PR review mode**: If the `mcp__github__create_pending_pull_request_review` tool is available, you are reviewing a GitHub PR
-   - Use the pending review workflow to post all issues as one cohesive review
-   - Follow the workflow steps in "PR review mode format" below
-
-2. **Local review mode**: If the MCP tool is NOT available, output issues in the conversation
-   - Format all issues in a numbered markdown list (as described in "Feedback format" below)
-
-## Review process
-
-1. **Detect review mode** - Check if `mcp__github__create_pending_pull_request_review` is available
-2. Read the changes through once to understand intent
-3. Check all issues that violate style guide or significantly impact readability
-4. Only flag issues worth mentioning - if it won't make a material difference to the reader, skip it
-5. **REQUIRED: Number ALL feedback sequentially** - Start from Issue 1 and increment for each issue found
-
-## Review checklist
-
-Run through the diff looking for these issues:
-
-**Tone and voice:**
-
-- [ ] Formal/corporate language ("utilize" not "use", "offerings", etc.)
-- [ ] "Users" instead of "people" or "companies"
-- [ ] Excessive exclamation points or overly peppy tone
-- [ ] Telling readers something is cool instead of showing them
-
-**Structure and clarity:**
-
-- [ ] Important information buried instead of leading
-- [ ] Verbose text that adds little value
-- [ ] Paragraphs without clear purpose
-- [ ] Vague headings that don't convey the point
-- [ ] Instructions explain "why" before telling "what to do"
-- [ ] Tasks described as "easy" or "simple"
-
-**Links and references:**
-
-- [ ] Linking the word "here" instead of descriptive text
-- [ ] Links in headings (unless entire heading is a link)
-
-**Formatting:**
-
-- [ ] Ampersands as "and" substitute (except proper nouns)
-- [ ] Inconsistent list formatting
-
-**Code and examples:**
-
-- [ ] Code examples that don't work or would error
-- [ ] Commands not in execution order
-- [ ] Full-width screenshots instead of scoped UI elements
-- [ ] Excessive or unnecessary images
-
-**Sentence construction:**
-
-- [ ] Overuse of pronouns when introducing new terms
-
-## Quick scan table
-
-| Pattern                       | Issue                                         |
-| ----------------------------- | --------------------------------------------- |
-| we can do X, our feature      | Should be "Metabase" or "it"                  |
-| click here, read more here    | Need descriptive link text                    |
-| easy, simple, just            | Remove condescending qualifiers               |
-| users                         | Should be "people" or "companies" if possible |
-
-## Feedback format
-
-**MANDATORY REQUIREMENT: Every single issue MUST be numbered sequentially starting from Issue 1.**
-
-This numbered format is NON-NEGOTIABLE. It allows users to efficiently reference specific issues (e.g., "fix issues 1, 3, and 5") and track which feedback has been addressed.
-
-### Local review mode format
-
-When outputting issues in the conversation (local mode), use this format:
-
-```markdown
-## Issues
-
-**Issue 1: [Brief title]**
-Line X: Succinct description of the issue
-[code or example]
-Suggested fix or succinct explanation
-
-**Issue 2: [Brief title]**
-Line Y: Description of the issue
-Suggested fix or explanation
-
-**Issue 3: [Brief title]**
-...
-```
-
-**Examples:**
-
-> **Issue 1: Formal tone**
-> Line 15: This could be more conversational. Consider: "You can't..." instead of "You cannot..."
-
-> **Issue 2: Vague heading**
-> Line 8: The heading could be more specific. Try stating the point directly: "Run migrations before upgrading" vs "Upgrade process"
-
-### PR review mode format
-
-When posting to GitHub (PR mode), use the **pending review workflow**:
-
-**Workflow steps:**
-
-1. **Start a review**: Use `mcp__github__create_pending_pull_request_review` to begin a pending review
-   - This creates a draft review that won't be visible until submitted
-
-2. **Get diff information**: Use `mcp__github__get_pull_request_diff` to understand the code changes and line numbers
-   - This helps you determine the correct file paths and line numbers for comments
-
-3. **Identify ALL issues**: Read through all changes and identify every issue worth mentioning
-   - Collect all issues before posting any comments
-   - Number them sequentially (Issue 1, Issue 2, Issue 3, etc.)
-
-4. **Add review comments**: Use `mcp__github__add_pull_request_review_comment_to_pending_review` for each issue
-   - **CRITICAL**: Post ALL comments in a SINGLE response using multiple tool calls in parallel
-   - Each comment should reference a specific file path and line number from the diff
-   - Start each comment body with `**Issue N: [Brief title]**`
-   - Include the description and suggested fix
-
-5. **Submit the review**: Use `mcp__github__submit_pending_pull_request_review` to publish all comments at once
-   - Use event type `"COMMENT"` (NOT "REQUEST_CHANGES") to make it non-blocking
-   - **Do NOT include a body message** - Leave the body empty or omit it entirely
-   - All comments will appear together as one cohesive review
-
-**Comment format example:**
-
-```
-**Issue 1: Formal tone**
-
-This could be more conversational. Consider: "You can't..." instead of "You cannot..."
-```
-
-**IMPORTANT**:
-- Each issue gets its own review comment attached to the pending review
-- Number ALL comments sequentially (Issue 1, Issue 2, Issue 3, etc.)
-- Always start the comment body with `**Issue N: [Brief title]**`
-- **MUST add all comments in parallel in a single response** - Do NOT add them one after another in separate responses
-- Do NOT output a summary message to the conversation - only post GitHub review comments
-- When submitting the review, do NOT include a body parameter (or leave it empty) to avoid cluttering the PR with summary text
-- The review will appear as a single review with multiple comments when submitted
-
-## Final check
-
-1. Remove any issues from your assessment that won't make a material difference to the reader if addressed. Only flag issues worth the author's time to fix.
-2. **Verify all issues are numbered sequentially** starting from Issue 1 with no gaps in numbering.
-3. Confirm the format exactly matches: `**Issue N: [Brief title]**` where N is the issue number.
-4. **In PR mode**: Verify each issue was posted as a separate GitHub comment (not output to conversation).

.claude/skills/docs-write/SKILL.md

@@ -1,96 +0,0 @@
----
-name: docs-write
-description: Write documentation following Metabase's conversational, clear, and user-focused style. Use when creating or editing documentation files (markdown, MDX, etc.).
-allowed-tools: Read, Write, Grep, Bash, Glob
----
-
-# Documentation Writing Skill
-
-@./../_shared/metabase-style-guide.md
-
-## When writing documentation
-
-### Start here
-
-1. **Who is this for?** Match complexity to audience. Don't oversimplify hard things or overcomplicate simple ones.
-2. **What do they need?** Get them to the answer fast. Nobody wants to be in docs longer than necessary.
-3. **What did you struggle with?** Those common questions you had when learning? Answer them (without literally including the question).
-
-### Writing process
-
-**Draft:**
-
-- Write out the steps/explanation as you'd tell a colleague
-- Lead with what to do, then explain why
-- Use headings that state your point: "Set SAML before adding users" not "SAML configuration timing"
-
-**Edit:**
-
-- Read aloud. Does it sound like you talking? If it's too formal, simplify.
-- Cut anything that doesn't directly help the reader
-- Check each paragraph has one clear purpose
-- Verify examples actually work (don't give examples that error)
-
-**Polish:**
-
-- Make links descriptive (never "here")
-- Backticks only for code/variables, **bold** for UI elements
-- American spelling, serial commas
-- Keep images minimal and scoped tight
-
-**Format:**
-
-- Run prettier on the file after making edits: `yarn prettier --write <file-path>`
-- This ensures consistent formatting across all documentation
-
-### Common patterns
-
-**Instructions:**
-
-```markdown
-Run:
-\`\`\`
-command-to-run
-\`\`\`
-
-Then:
-\`\`\`
-next-command
-\`\`\`
-
-This ensures you're getting the latest changes.
-```
-
-Not: "(remember to run X before Y...)" buried in a paragraph.
-
-**Headings:**
-
-- "Use environment variables for configuration" ✅
-- "Environment variables" ❌ (too vague)
-- "How to use environment variables for configuration" ❌ (too wordy)
-
-**Links:**
-
-- "Check out the [SAML documentation](link)" ✅
-- "Read the docs [here](link)" ❌
-
-### Watch out for
-
-- Describing tasks as "easy" (you don't know the reader's context)
-- Using "we" when talking about Metabase features (use "Metabase" or "it")
-- Formal language: "utilize", "reference", "offerings"
-- Too peppy: multiple exclamation points
-- Burying the action in explanation
-- Code examples that don't work
-- Numbers that will become outdated
-
-### Quick reference
-
-| Write This                 | Not This           |
-| -------------------------- | ------------------ |
-| people, companies          | users              |
-| summarize                  | aggregate          |
-| take a look at             | reference          |
-| can't, don't               | cannot, do not     |
-| **Filter** button          | \`Filter\` button  |
-| Check out [the docs](link) | Click [here](link) |

.claude/skills/typescript-review/SKILL.md

@@ -1,19 +0,0 @@
----
-name: typescript-review
-description: Review TypeScript and JavaScript code changes for compliance with Metabase coding standards, style violations, and code quality issues. Use when reviewing pull requests or diffs containing TypeScript/JavaScript code.
-allowed-tools: Read, Grep, Bash, Glob
----
-
-# TypeScript/JavaScript Code Review Skill
-
-@./../_shared/typescript-commands.md
-
-## Code Review Guidelines
-
-Review pull requests with a focus on:
-
-- Compliance with project coding standards and conventions
-- Code quality and best practices
-- Clear and correct JSDoc comments
-- Type safety and proper TypeScript usage
-- React best practices (when applicable)

.claude/skills/typescript-write/SKILL.md

@@ -1,9 +0,0 @@
----
-name: typescript-write
-description: Write TypeScript and JavaScript code following Metabase coding standards and best practices. Use when developing or refactoring TypeScript/JavaScript code.
----
-
-# TypeScript/JavaScript Development Skill
-
-@./../_shared/development-workflow.md
-@./../_shared/typescript-commands.md

.clj-kondo/README.md

@@ -1,5 +0,0 @@
-Update `clj-kondo` configs for libraries using
-
-```sh
-clj-kondo --copy-configs --dependencies --lint "$(clojure -Spath -A:dev)"
-```

.clj-kondo/config/test-helpers/config.edn

@@ -1,147 +0,0 @@
-{:linters
- {:metabase/test-helpers-use-non-thread-safe-functions
-  ;; TODO -- seems silly to maintain different blacklists and whitelists here than we use for the deftest `^:parallel`
-  ;; checker...
-  {:explicitly-safe
-   #{ ;; these toucan methods might actually set global values if it's used outside of a transaction,
-     ;; but since mt/with-temp runs in a transaction, so we'll ignore them in this case.
-     toucan2.core/delete!
-     toucan2.core/update!
-     toucan2.core/insert!
-     toucan2.core/insert-returning-instance!
-     toucan2.core/insert-returning-instances!
-     toucan2.core/insert-returning-pk!
-     toucan2.core/insert-returning-pks!
-     clojure.core.async/<!!
-     clojure.core.async/<!
-     clojure.core.async/>!!
-     clojure.core.async/>!
-     clojure.core.async/alts!
-     clojure.core.async/alts!!
-     clojure.core.async/close!
-     clojure.core.async/poll!
-     clojure.core.memoize/memo-clear!
-     clojure.core/conj!
-     clojure.core/persistent!
-     clojure.core/reset!
-     clojure.core/swap!
-     clojure.core/volatile!
-     clojure.core/vreset!
-     clojure.core/vswap!
-     clojure.java.jdbc/execute!
-     methodical.core/add-aux-method-with-unique-key!
-     methodical.core/remove-aux-method-with-unique-key!
-     next.jdbc/execute!
-
-     ;; Definitely thread safe
-     metabase.test.util.dynamic-redefs/patch-vars!
-
-     ;; TODO: most of these symbols shouldn't be here, we should go through them and
-     ;; find the functions/macros that use them and make sure their names end with !
-     ;; best way to do this is try remove each of these and rely on kondo output to find places where it's used
-     clojure.test/grant-collection-perms!
-     clojure.test/grant-collection-perms-fn!
-     clojure.test/grant-perms-fn!
-     clojure.test/purge-old-entries!
-     clojure.test/revoke-collection-perms!
-     clojure.test/save-results!
-     metabase-enterprise.advanced-permissions.models.permissions/update-db-download-permissions!
-     metabase-enterprise.internal-user/install-internal-user!
-     metabase-enterprise.sso.integrations.saml-test/call-with-login-attributes-cleared!
-     metabase.actions.actions/perform-action!
-     metabase.actions.models/insert!
-     metabase.analytics.snowplow-test/fake-track-event-impl!
-     metabase.analytics.snowplow/track-event-impl!
-     metabase.app-db.core/finish-db-setup!
-     metabase.app-db.core/migrate!
-     metabase.app-db.core/setup-db!
-     metabase.app-db.schema-migrations-test.impl/run-migrations-in-range!
-     metabase.app-db.setup/migrate!
-     metabase.app-db.setup/setup-db!
-     metabase.channel.email-test/reset-inbox!
-     metabase.channel.email/send-email!
-     metabase.cmd.dump-to-h2/dump-to-h2!
-     metabase.cmd.load-from-h2/load-from-h2!
-     metabase.content-verification.models.moderation-review/create-review!
-     metabase.core.core/ensure-audit-db-installed!
-     metabase.driver.mongo-test/create-database-from-row-maps!
-     metabase.driver.postgres-test/create-enums-db!
-     metabase.driver.postgres-test/drop-if-exists-and-create-db!
-     metabase.driver.sql-jdbc.execute/execute-statement!
-     metabase.indexed-entities.models.model-index/add-values!
-     metabase.driver.sql-jdbc.connection.ssh-tunnel-test/start-mock-servers!
-     metabase.driver.sql-jdbc.connection.ssh-tunnel-test/stop-mock-servers!
-     metabase.indexed-entities.task.index-values/job-init!
-     metabase.model-persistence.models.persisted-info/ready-database!
-     metabase.model-persistence.task.persist-refresh/job-init!
-     metabase.model-persistence.task.persist-refresh/refresh-tables!
-     metabase.model-persistence.task.persist-refresh/schedule-persistence-for-database!
-     metabase.models.on-demand-test/add-dashcard-with-parameter-mapping!
-     metabase.permissions.core/grant-application-permissions!
-     metabase.permissions.core/grant-collection-read-permissions!
-     metabase.permissions.core/grant-collection-readwrite-permissions!
-     metabase.permissions.core/grant-full-data-permissions!
-     metabase.permissions.core/grant-native-readwrite-permissions!
-     metabase.permissions.core/grant-permissions!
-     metabase.permissions.core/revoke-application-permissions!
-     metabase.permissions.core/revoke-data-perms!
-     metabase.permissions.core/update-data-perms-graph!
-     metabase.permissions.core/update-group-permissions!
-     metabase.permissions.models.collection.graph-test/clear-graph-revisions!
-     metabase.permissions.models.collection.graph-test/do-with-n-temp-users-with-personal-collections!
-     metabase.permissions.models.permissions/grant-application-permissions!
-     metabase.permissions.models.permissions/grant-collection-read-permissions!
-     metabase.permissions.models.permissions/grant-collection-readwrite-permissions!
-     metabase.permissions.models.permissions/grant-full-data-permissions!
-     metabase.permissions.models.permissions/grant-native-readwrite-permissions!
-     metabase.permissions.models.permissions/grant-permissions!
-     metabase.permissions.models.permissions/revoke-application-permissions!
-     metabase.permissions.models.permissions/revoke-data-perms!
-     metabase.permissions.models.permissions/update-data-perms-graph!
-     metabase.permissions.models.permissions/update-group-permissions!
-     metabase.permissions.test-util/with-restored-perms!
-     metabase.public-sharing-rest.api-test/add-card-to-dashboard!
-     metabase.pulse.send/send-notifications!
-     metabase.pulse.send/send-pulse!
-     metabase.query-processor.streaming.interface/begin!
-     metabase.query-processor.streaming.interface/finish!
-     metabase.query-processor.streaming.interface/write-row!
-     metabase.sample-data.impl/try-to-extract-sample-database!
-     metabase.settings.models.setting-test/test-user-local-allowed-setting!
-     metabase.settings.models.setting-test/test-user-local-only-setting!
-     metabase.settings.models.setting.cache/restore-cache!
-     metabase.settings.models.setting/set!
-     metabase.settings.models.setting/validate-settings-formatting!
-     metabase.setup.core/create-token!
-     metabase.sso.ldap-test-util/start-ldap-server!
-     metabase.sync.core/sync-database!
-     metabase.sync.sync-metadata.fields.sync-metadata/update-field-metadata-if-needed!
-     metabase.sync.sync-metadata/sync-db-metadata!
-     metabase.sync.util-test/sync-database!
-     metabase.sync.util/store-sync-summary!
-     metabase.task.core/delete-task!
-     metabase.task.impl/delete-task!
-     metabase.test.data.bigquery-cloud-sdk/execute!
-     metabase.test.data.impl.get-or-create/set-test-db-permissions!
-     metabase.test.data.impl/copy-db-tables-and-fields!
-     metabase.test.data.impl/get-or-create-database!
-     metabase.test.data.impl/get-or-create-default-dataset!
-     metabase.test.data.interface/create-db!
-     metabase.test.data.interface/destroy-db!
-     metabase.test.data.oracle/create-user!
-     metabase.test.data.oracle/drop-user!
-     metabase.test.data.sql-jdbc.load-data/make-insert!
-     metabase.test.data.users/clear-cached-session-tokens!
-     metabase.test.initialize/do-initialization!
-     metabase.test.initialize/initialize-if-needed!
-     metabase.test.util.log/ensure-unique-logger!
-     metabase.test.util.log/set-ns-log-level!
-     metabase.test.util/do-with-temp-env-var-value!
-     metabase.test.util/restore-raw-setting!
-     metabase.test.util/upsert-raw-setting!
-     metabase.test/initialize-if-needed!
-     metabase.test/test-helpers-set-global-values!
-     metabase.test/with-temp-env-var-value!
-     metabase.upload.impl-test/set-local-infile!
-     metabase.util.files/create-dir-if-not-exists!
-     metabase.warehouse-schema.models.field-values/create-or-update-full-field-values!}}}}

.clj-kondo/hooks/metabase/api/common.clj

@@ -0,0 +1,23 @@
+(ns hooks.metabase.api.common
+  (:require
+   [clj-kondo.hooks-api :as api]
+   [clojure.string :as str]))
+
+(defn route-fn-name
+  [method route]
+  (let [route (if (vector? route) (first route) route)]
+    (-> (str (name method) route)
+        (str/replace #"/" "_")
+        symbol)))
+
+(defn defendpoint [{:keys [node]}]
+  (let [[method route & body] (rest (:children node))]
+    {:node
+     (api/list-node [(api/token-node 'do)
+                     ;; register usage of compojure core var
+                     (api/token-node (symbol (str "compojure.core")
+                                             (str method)))
+                     ;; define function with route-fn-name
+                     (api/list-node (list* (api/token-node 'clojure.core/defn)
+                                           (route-fn-name (api/sexpr method) (api/sexpr route))
+                                           body))])}))

.clj-kondo/hooks/metabase/test/data.clj

@@ -0,0 +1,55 @@
+(ns hooks.metabase.test.data
+  (:require
+   [clj-kondo.hooks-api :as hooks]
+   [clojure.string :as string]
+   [clojure.walk :as walk]))
+
+(defn dataset [{:keys [node]}]
+  (let [[dataset & body] (rest (:children node))]
+    {:node (with-meta
+             (hooks/list-node
+              (list*
+               (hooks/token-node 'clojure.test/testing)
+               (hooks/string-node (str dataset))
+               body))
+             (meta dataset))}))
+
+(defn $ids [{:keys [node]}]
+  (let [args (rest (:children node))
+        [table-name & body] args
+        unused-node (hooks/token-node '_)
+        vars (atom #{})
+        _ (walk/postwalk (fn [node]
+                           (when (hooks/token-node? node)
+                             (let [str-node (str (hooks/sexpr node))]
+                               (when (or (string/starts-with? str-node "$")
+                                         (string/starts-with? str-node "!")
+                                         (string/starts-with? str-node "&")
+                                         (string/starts-with? str-node "*")
+                                         (string/starts-with? str-node "%"))
+                                 (swap! vars conj node))))
+                           node)
+                         body)
+        nil-bindings (vec (interpose (hooks/token-node nil) @vars))
+        unused-bindings (vec (interpose unused-node @vars))
+        final-bindings (concat
+                        (when-not (= "nil" (str table-name))
+                          [table-name (hooks/token-node nil)])
+                        [unused-node table-name]
+                        (if (seq nil-bindings)
+                          (conj nil-bindings (hooks/token-node nil))
+                          [])
+                        (if (seq unused-bindings)
+                          (conj (next unused-bindings)
+                                (first unused-bindings)
+                                unused-node)
+                          []))]
+    {:node (with-meta
+             (hooks/list-node
+              (with-meta
+                (list*
+                 (hooks/token-node 'let)
+                 (hooks/vector-node (vec final-bindings))
+                 body)
+                (meta body)))
+             (meta body))}))

.clj-kondo/hooks/toucan/util/test.clj

@@ -0,0 +1,11 @@
+(ns hooks.toucan.util.test
+  (:require [clj-kondo.hooks-api :as api]))
+
+(defn with-temp [{:keys [node]}]
+  (let [[_ db-ref binding+opts & body] (:children node)
+        [args opts] (:children binding+opts)]
+    {:node (api/vector-node [db-ref
+                             opts
+                             (api/list-node (list* (api/token-node 'fn)
+                                                   (api/vector-node [args])
+                                                   body))])}))

.clj-kondo/macros/metabase/api/common.clj

@@ -0,0 +1,5 @@
+(ns macros.metabase.api.common)
+
+(defmacro define-routes [& args]
+  `(do (def ~'routes)
+       ~@args))

.clj-kondo/macros/metabase/collections_rest/api_test.clj

@@ -1,24 +0,0 @@
-(ns macros.metabase.collections-rest.api-test)
-
-(defmacro with-collection-hierarchy! [bindings & body]
-  `(let [~'a nil
-         ~'b nil
-         ~'c nil
-         ~'d nil
-         ~'e nil
-         ~'f nil
-         ~'g nil]
-     ~'a
-     ~'b
-     ~'c
-     ~'d
-     ~'e
-     ~'f
-     ~'g
-     ~bindings
-     ~@body))
-
-(defmacro with-some-children-of-collection! [collection-or-id-or-nil & body]
-  `(let [~'&ids ~collection-or-id-or-nil]
-     ~'&ids
-     ~@body))

.clj-kondo/macros/metabase/embedding/embedding_rest/embed_test.clj

@@ -1,13 +0,0 @@
-(ns macros.metabase.embedding-rest.api.embed-test)
-
-(defmacro with-embedding-enabled-and-temp-card-referencing!
-  [table-kw field-kw [card-binding] & body]
-  `(let [~card-binding [~table-kw ~field-kw]]
-     ~@body))
-
-(defmacro with-embedding-enabled-and-temp-dashcard-referencing!
-  [table-kw field-kw [dash-binding card-binding dashcard-binding] & body]
-  `(let [~dash-binding             [~table-kw ~field-kw]
-         ~(or card-binding '_)     nil
-         ~(or dashcard-binding '_) nil]
-     ~@body))

.clj-kondo/macros/metabase/lib/common.clj

@@ -1,24 +0,0 @@
-(ns macros.metabase.lib.common)
-
-(defmacro defop
-  [op-name & argvecs]
-  `(do
-     (defn ~(symbol (str (name op-name) "-clause"))
-       ~(format "Create a standalone clause of type `%s`." (name op-name))
-       ~@(for [argvec argvecs
-               :let [arglist-expr (if (contains? (set argvec) '&)
-                                    (cons 'list* (remove #{'&} argvec))
-                                    argvec)]]
-           `([~'query ~'stage-number ~@argvec]
-             [~(keyword op-name) ~'query ~'stage-number ~@arglist-expr])))
-
-     (defn ~op-name
-       ~(format "Create a closure of clause of type `%s`." (name op-name))
-       ~@(for [argvec argvecs
-               :let [arglist-expr (if (contains? (set argvec) '&)
-                                    (cons 'list* (remove #{'&} argvec))
-                                    argvec)]]
-           `([~@argvec]
-             (fn ~(symbol (str (name op-name) "-closure"))
-               [~'query ~'stage-number]
-               (apply ~(symbol (str (name op-name) "-clause")) ~'query ~'stage-number ~@arglist-expr)))))))

.clj-kondo/macros/metabase/lib/filter.clj

@@ -1,7 +0,0 @@
-(ns macros.metabase.lib.filter)
-
-(defmacro deffilter
-  [filter-name argv]
-  (let [argv (into ['query 'stage] (remove #{'&} argv))]
-    `(defn ~filter-name "docstring" ~argv
-       ~argv)))

.clj-kondo/macros/metabase/parameters/chain_filter_test.clj

@@ -1,4 +0,0 @@
-(ns macros.metabase.parameters.chain-filter-test)
-
-(defmacro chain-filter [& _]
-  `(metabase.parameters.chain-filter/chain-filter nil nil))

.clj-kondo/macros/metabase/public_sharing_rest/api_test.clj

@@ -1,13 +0,0 @@
-(ns macros.metabase.public-sharing-rest.api-test)
-
-(defmacro with-sharing-enabled-and-temp-card-referencing!
-  [table-kw field-kw [card-binding] & body]
-  `(let [~card-binding [~table-kw ~field-kw]]
-     ~@body))
-
-(defmacro with-sharing-enabled-and-temp-dashcard-referencing!
-  [table-kw field-kw [dash-binding card-binding dashcard-binding] & body]
-  `(let [~dash-binding             [~table-kw ~field-kw]
-         ~(or card-binding '_)     nil
-         ~(or dashcard-binding '_) nil]
-     ~@body))

.clj-kondo/macros/metabase/queries_rest/api/card_test.clj

@@ -1,13 +0,0 @@
-(ns macros.metabase.queries-rest.api.card-test)
-
-(defmacro with-ordered-items
-  [collection model-and-name-syms & body]
-  `(let ~(into []
-               (comp (partition-all 2)
-                     (mapcat (fn [[model binding]]
-                               [binding model])))
-               model-and-name-syms)
-     ~collection
-     ~@(->> (partition-all 2 model-and-name-syms)
-            (map second))
-     ~@body))

.clj-kondo/macros/metabase/query_analysis/models/query_analysis_test.clj

@@ -1,12 +0,0 @@
-(ns macros.metabase.query-analysis.models.query-analysis-test)
-
-(defmacro with-test-setup [& body]
-  `(let [~'card-id  1
-         ~'table-id 2
-         ~'tax-id   3
-         ~'total-id 4]
-     ~'card-id
-     ~'table-id
-     ~'tax-id
-     ~'total-id
-     ~@body))

.clj-kondo/macros/metabase/query_analysis/task/test_setup.clj

@@ -1,18 +0,0 @@
-(ns macros.metabase.query-analysis.task.test-setup)
-
-(defmacro with-test-setup!
-  "Set up the data required to test the Query Analysis related tasks"
-  [& body]
-  `(let [~'c1 1
-         ~'c2 2
-         ~'c3 3
-         ~'c4 4
-         ~'archived 5
-         ~'invalid 6]
-     ~'c1
-     ~'c2
-     ~'c3
-     ~'c4
-     ~'archived
-     ~'invalid
-     ~@body))

.clj-kondo/macros/metabase/query_processor/streaming.clj

@@ -1,5 +1,6 @@
-(ns macros.metabase.query-processor.streaming)
+(ns metabase.query-processor.streaming)
 
 (defmacro streaming-response [[x y z] & body]
-  `(let [~x [~y ~z]]
+  `(clojure.core/let [~x ~y]
+     ~z
      ~@body))

.clj-kondo/macros/metabase/server/statistics_handler_test.clj

@@ -1,9 +0,0 @@
-(ns macros.metabase.server.statistics-handler-test)
-
-(defmacro with-server
-  [_ _ [connector chan-start-handle chan-finish-handle chan-done-request] & body]
-  `(let [~connector          nil
-         ~chan-start-handle  nil
-         ~chan-finish-handle nil
-         ~chan-done-request  nil]
-     ~@body))

.clj-kondo/macros/metabase/test/data/users.clj

@@ -1,6 +0,0 @@
-(ns macros.metabase.test.data.users)
-
-(defmacro with-group-for-user
-  [[group-binding test-user-name-or-user-id group] & body]
-  `(let [~group-binding [~test-user-name-or-user-id ~group]]
-     ~@body))

.clj-kondo/macros/metabase/test/util.clj

@@ -1,11 +0,0 @@
-(ns macros.metabase.test.util)
-
-(defmacro with-temp-env-var-value! [bindings & body]
-  `((constantly nil)
-    ~@(map second (partition-all 2 bindings))
-    ~@body))
-
-(defmacro with-temporary-raw-setting-values [bindings & body]
-  `((constantly nil)
-    ~@(map second (partition-all 2 bindings))
-     ~@body))

.clj-kondo/macros/metabase/users/models/user_test.clj

@@ -1,9 +0,0 @@
-(ns macros.metabase.users.models.user-test)
-
-(defmacro with-groups! [bindings & body]
-  `(let ~(into []
-               (comp (partition-all 3)
-                     (mapcat (fn [[group-binding properties members]]
-                               [group-binding [properties members]])))
-               bindings)
-     ~@body))

.clj-kondo/macros/metabase/util/namespaces.clj

@@ -1,8 +0,0 @@
-(ns macros.metabase.util.namespaces)
-
-(defmacro import-fn
-  "Kondo macro replacement for [[metabase.util.namespaces/import-fn]]."
-  ([sym]
-   `(def ~(-> sym name symbol) "docstring" ~sym))
-  ([sym name]
-   `(def ~name "docstring" ~sym)))

.clj-kondo/macros/metabase/xrays/related_test.clj

@@ -1,20 +0,0 @@
-(ns macros.metabase.xrays.related-test)
-
-(defmacro with-world [& body]
-  `(let [~'collection-id nil
-         ~'metric-id-a nil
-         ~'metric-id-b nil
-         ~'segment-id-a nil
-         ~'segment-id-b nil
-         ~'card-id-a nil
-         ~'card-id-b nil
-         ~'card-id-c nil]
-     ~'collection-id
-     ~'metric-id-a
-     ~'metric-id-b
-     ~'segment-id-a
-     ~'segment-id-b
-     ~'card-id-a
-     ~'card-id-b
-     ~'card-id-c
-     ~@body))

.clj-kondo/macros/metabase_enterprise/database_routing/e2e_test.clj

@@ -1,5 +0,0 @@
-(ns macros.metabase-enterprise.database-routing.e2e-test)
-
-(defmacro with-temp-dbs! [bindings & body]
-  `(let [~@(interleave bindings (repeat nil))]
-     ~@body))

.clj-kondo/macros/metabase_enterprise/impersonation/util_test.clj

@@ -1,6 +0,0 @@
-(ns macros.metabase-enterprise.impersonation.util-test)
-
-(defmacro with-impersonations! [impersonations-and-attributes-map & body]
-  `(let [~'&group ~impersonations-and-attributes-map]
-     ~'&group
-     ~@body))

.clj-kondo/macros/metabase_enterprise/query_reference_validation/api_test.clj

@@ -1,18 +0,0 @@
-(ns macros.metabase-enterprise.query-reference-validation.api-test)
-
-(defmacro with-test-setup! [& body]
-  `(let [~'card-1 1
-         ~'card-2 2
-         ~'card-3 3
-         ~'card-4 4
-         ~'card-5 5
-         ~'coll-2 100
-         ~'coll-3 200]
-     ~'card-1
-     ~'card-2
-     ~'card-3
-     ~'card-4
-     ~'card-5
-     ~'coll-2
-     ~'coll-3
-     ~@body))

.clj-kondo/macros/metabase_enterprise/sandbox/test_util.clj

@@ -1,6 +0,0 @@
-(ns macros.metabase-enterprise.sandbox.test-util)
-
-(defmacro with-gtaps! [gtaps-definition & body]
-  `(let [~'&group ~gtaps-definition]
-     ~'&group
-     ~@body))

.clj-kondo/macros/metabase_enterprise/serialization/test_util.clj

@@ -1,112 +0,0 @@
-(ns macros.metabase-enterprise.serialization.test-util)
-
-(defmacro with-world [& body]
-  `(let [~'db-id                        nil
-         ~'table-id                     nil
-         ~'table                        nil
-         ~'table-id-categories          nil
-         ~'table-id-users               nil
-         ~'table-id-checkins            nil
-         ~'venues-pk-field-id           nil
-         ~'numeric-field-id             nil
-         ~'name-field-id                nil
-         ~'latitude-field-id            nil
-         ~'longitude-field-id           nil
-         ~'category-field-id            nil
-         ~'category-pk-field-id         nil
-         ~'date-field-id                nil
-         ~'users-pk-field-id            nil
-         ~'user-id-field-id             nil
-         ~'checkins->venues-field-id    nil
-         ~'last-login-field-id          nil
-         ~'collection-id                nil
-         ~'collection-id-nested         nil
-         ~'user-id-temp                 nil
-         ~'personal-collection-id       nil
-         ~'pc-felicia-nested-id         nil
-         ~'pc-nested-id                 nil
-         ~'pc-deeply-nested-id          nil
-         ~'metric-id                    nil
-         ~'segment-id                   nil
-         ~'dashboard-id                 nil
-         ~'root-dashboard-id            nil
-         ~'card-id                      nil
-         ~'card-arch-id                 nil
-         ~'card-id-root                 nil
-         ~'card-id-nested               nil
-         ~'card-id-nested-query         nil
-         ~'card-id-native-query         nil
-         ~'card-id-pivot-table          nil
-         ~'dashcard-id                  nil
-         ~'dashcard-top-level-click-id  nil
-         ~'dashcard-with-click-actions  nil
-         ~'dashcard-with-textbox-id     nil
-         ~'card-id-root-to-collection   nil
-         ~'card-id-collection-to-root   nil
-         ~'pulse-id                     nil
-         ~'pulsecard-root-id            nil
-         ~'pulsecard-collection-id      nil
-         ~'card-id-template-tags        nil
-         ~'card-id-filter-agg           nil
-         ~'card-id-temporal-unit        nil
-         ~'snippet-id                   nil
-         ~'snippet-collection-id        nil
-         ~'snippet-nested-collection-id nil
-         ~'nested-snippet-id            nil
-         ~'card-id-with-native-snippet  nil
-         ~'card-join-card-id            nil]
-     ~'db-id
-     ~'table-id
-     ~'table
-     ~'table-id-categories
-     ~'table-id-users
-     ~'table-id-checkins
-     ~'venues-pk-field-id
-     ~'numeric-field-id
-     ~'name-field-id
-     ~'latitude-field-id
-     ~'longitude-field-id
-     ~'category-field-id
-     ~'category-pk-field-id
-     ~'date-field-id
-     ~'users-pk-field-id
-     ~'user-id-field-id
-     ~'checkins->venues-field-id
-     ~'last-login-field-id
-     ~'collection-id
-     ~'collection-id-nested
-     ~'user-id-temp
-     ~'personal-collection-id
-     ~'pc-felicia-nested-id
-     ~'pc-nested-id
-     ~'pc-deeply-nested-id
-     ~'metric-id
-     ~'segment-id
-     ~'dashboard-id
-     ~'root-dashboard-id
-     ~'card-id
-     ~'card-arch-id
-     ~'card-id-root
-     ~'card-id-nested
-     ~'card-id-nested-query
-     ~'card-id-native-query
-     ~'card-id-pivot-table
-     ~'dashcard-id
-     ~'dashcard-top-level-click-id
-     ~'dashcard-with-click-actions
-     ~'dashcard-with-textbox-id
-     ~'card-id-root-to-collection
-     ~'card-id-collection-to-root
-     ~'pulse-id
-     ~'pulsecard-root-id
-     ~'pulsecard-collection-id
-     ~'card-id-template-tags
-     ~'card-id-filter-agg
-     ~'card-id-temporal-unit
-     ~'snippet-id
-     ~'snippet-collection-id
-     ~'snippet-nested-collection-id
-     ~'nested-snippet-id
-     ~'card-id-with-native-snippet
-     ~'card-join-card-id
-     ~@body))

.clj-kondo/macros/quartz.clj

@@ -10,10 +10,6 @@
   `(let [tb# (org.quartz.TriggerBuilder/newTrigger)]
      (clojurewerkz.quartzite.triggers/finalize (-> tb# ~@body))))
 
-(defmacro simple-schedule
-  [& body]
-  `(-> {} ~@body))
-
 (defmacro schedule
   [& body]
   `(let [s# ~(first body)]

.clj-kondo/macros/toucan/models.clj

@@ -0,0 +1,8 @@
+(ns toucan.models)
+
+(defmacro defmodel [model-name & ks]
+  `(do (clojure.core/defrecord ~model-name ~(vec (map (comp symbol name) ks)))
+       (clojure.core/defrecord
+           ~(symbol (str model-name "Instance"))
+           ~(vec (map (comp symbol name) ks)))
+       ~(symbol (str model-name "Instance"))))

.clj-kondo/src/hooks/clojure/core/defmulti.clj

@@ -1,52 +0,0 @@
-(ns hooks.clojure.core.defmulti
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clojure.string :as str]
-   [hooks.common]))
-
-(defn- check-arglists [report-node arglists]
-  (letfn [(reg-bad-arglists! []
-            (hooks/reg-finding!
-             (assoc (meta report-node)
-                    :message ":arglists should be a quoted list of vectors [:metabase/check-defmulti-arglists]"
-                    :type :metabase/check-defmulti-arglists)))
-          (reg-bad-arg! []
-            (hooks/reg-finding!
-             (assoc (meta report-node)
-                    :message ":arglists should contain actual arg names, not underscore (unused) symbols [:metabase/check-defmulti-arglists]"
-                    :type    :metabase/check-defmulti-arglists)))
-          (underscore-arg? [arg]
-            (and (symbol? arg)
-                 (str/starts-with? arg "_")))
-          (check-arglist [arglist]
-            (cond
-              (not (vector? arglist))        (reg-bad-arglists!)
-              (some underscore-arg? arglist) (reg-bad-arg!)))]
-    (if-not (and (seq? arglists)
-                 (= (first arglists) 'quote)
-                 (seq (second arglists)))
-      (reg-bad-arglists!)
-      (let [[_quote arglists] arglists]
-        (doseq [arglist arglists]
-          (check-arglist arglist))))))
-
-(defn- defmulti-check-for-arglists-metadata
-  "Make sure a [[defmulti]] has an attribute map with `:arglists` metadata."
-  [node]
-  (let [[_defmulti _symb & args] (:children node)
-        [_docstring & args]      (if (hooks/string-node? (first args))
-                                   args
-                                   (cons nil args))
-        attr-map                 (when (hooks/map-node? (first args))
-                                   (first args))
-        arglists                 (some-> attr-map hooks/sexpr :arglists seq)]
-    (if-not (seq? arglists) ; should be a list or at least list-like
-      (hooks/reg-finding!
-       (assoc (meta node)
-              :message "All defmultis should have an attribute map with :arglists metadata. [:metabase/check-defmulti-arglists]"
-              :type    :metabase/check-defmulti-arglists))
-      (check-arglists attr-map arglists))))
-
-(defn lint-defmulti [x]
-  (defmulti-check-for-arglists-metadata (:node x))
-  x)

.clj-kondo/src/hooks/clojure/core/defn.clj

@@ -1,76 +0,0 @@
-(ns hooks.clojure.core.defn
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clojure.string :as str]
-   [hooks.common]))
-
-(defn- end-with-exclamation?
-  [s]
-  (str/ends-with? s "!"))
-
-(defn- explicitly-safe? [config qualified-symbol]
-  (contains? (get-in config [:linters :metabase/test-helpers-use-non-thread-safe-functions :explicitly-safe])
-             qualified-symbol))
-
-(defn- explicitly-unsafe? [config qualified-symbol]
-  (contains? (get-in config [:linters :metabase/validate-deftest :parallel/unsafe]) qualified-symbol))
-
-(defn- unsafe? [config qualified-symbol]
-  (and (or (end-with-exclamation? qualified-symbol)
-           (explicitly-unsafe? config qualified-symbol))
-       (not (explicitly-safe? config qualified-symbol))))
-
-(defn- non-thread-safe-form-should-end-with-exclamation*
-  [{[defn-or-defmacro form-name] :children, :as node} config]
-  (when-not (and (:string-value form-name)
-                 (end-with-exclamation? (:string-value form-name)))
-    (letfn [(walk [f form]
-              (f form)
-              (doseq [child (:children form)]
-                (walk f child)))
-            (check-node [form]
-              (when-let [qualified-symbol (hooks.common/node->qualified-symbol form)]
-                (when (unsafe? config qualified-symbol)
-                  (hooks/reg-finding!
-                   (assoc (meta form-name)
-                          :message (format "The name of this %s should end with `!` because it contains calls to non thread safe form `%s`. [:metabase/test-helpers-use-non-thread-safe-functions]"
-                                           (:string-value defn-or-defmacro) qualified-symbol)
-                          :type :metabase/test-helpers-use-non-thread-safe-functions)))))]
-      (walk check-node node))
-    node))
-
-(defn non-thread-safe-form-should-end-with-exclamation
-  "Used to ensure defn and defmacro in test namespace to have name ending with `!` if it's non-thread-safe.
-  A function or a macro can be defined as 'not thread safe' when their funciton name ends with a `!`.
-
-  Only used in tests to identify thread-safe/non-thread-safe test helpers. See #37126"
-  [{:keys [node cljc lang config]}]
-  (when (or (not cljc)
-            (= lang :clj))
-    (non-thread-safe-form-should-end-with-exclamation* node config))
-  {:node node})
-
-(comment
-  (require '[clj-kondo.core :as clj-kondo])
-  (def form (str '(defmacro a
-                    [x]
-                    `(fun-call x))))
-
-  (def form "(defmacro a
-           [x]
-           `(some! ~x))")
-
-  (def form "(defun f
-           [x]
-           (let [g! (fn [] 1)]
-           (g!)))")
-
-  (str (hooks/parse-string form))
-  (hooks/sexpr (hooks/parse-string form))
-
-  (binding [hooks/*reload* true]
-    (-> form
-        (with-in-str (clj-kondo/run! {:lint ["-"]}))
-        :findings))
-
-  (do (non-thread-safe-form-should-end-with-exclamation* (hooks/parse-string form)) nil))

.clj-kondo/src/hooks/clojure/core/ns.clj

@@ -1,119 +0,0 @@
-(ns hooks.clojure.core.ns
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clojure.string :as str]
-   [hooks.common]
-   [hooks.common.modules :as modules]))
-
-(defn- ns-form-node->require-node [ns-form-node]
-  (some (fn [node]
-          (when (and (hooks/list-node? node)
-                     (let [first-child (first (:children node))]
-                       (and (hooks/keyword-node? first-child)
-                            (= (hooks/sexpr first-child) :require))))
-            node))
-        (:children ns-form-node)))
-
-(defn- lint-require-shapes [ns-form-node]
-  (doseq [node (-> ns-form-node
-                   ns-form-node->require-node
-                   :children
-                   rest)]
-    (cond
-      (not (hooks/vector-node? node))
-      (hooks/reg-finding! (assoc (meta node)
-                                 :message "All :required namespaces should be wrapped in vectors [:metabase/require-shape-checker]"
-                                 :type    :metabase/require-shape-checker))
-
-      (hooks/vector-node? (second (:children node)))
-      (hooks/reg-finding! (assoc (meta node)
-                                 :message "Don't use prefix forms inside :require [:metabase/require-shape-checker]"
-                                 :type    :metabase/require-shape-checker)))))
-
-(defn- lint-requires-on-new-lines [ns-form-node]
-  (let [[require-keyword first-require] (-> ns-form-node
-                                            ns-form-node->require-node
-                                            :children)]
-    (when-let [require-keyword-line (:row (meta require-keyword))]
-      (when-let [first-require-line (:row (meta first-require))]
-        (when (= require-keyword-line first-require-line)
-          (hooks/reg-finding! (assoc (meta first-require)
-                                     :message "Put your requires on a newline from the :require keyword [:metabase/require-shape-checker]"
-                                     :type    :metabase/require-shape-checker)))))))
-
-(defn- require-node->namespace-symb-nodes [require-node]
-  (let [[_ns & args] (:children require-node)]
-    (into []
-          ;; prefixed namespace forms are NOT SUPPORTED!!!!!!!!1
-          (keep (fn [node]
-                  (cond
-                    (hooks/vector-node? node)
-                    ;; propagate the metadata attached to this vector in case there's a `:clj-kondo/ignore` form.
-                    (let [symbol-node (first (:children node))]
-                      (hooks.common/merge-ignored-linters symbol-node require-node node))
-
-                    ;; this should also be dead code since we require requires to be vectors
-                    (hooks/token-node? node)
-                    (hooks.common/merge-ignored-linters node require-node)
-
-                    :else
-                    (printf "Don't know how to figure out what namespace is being required in %s\n" (pr-str node)))))
-          args)))
-
-(defn- ns-form-node->ns-symb-node [ns-form-node]
-  (some (fn [node]
-          (when (and (hooks/token-node? node)
-                     (not= (hooks/sexpr node) 'ns))
-            node))
-        (:children ns-form-node)))
-
-(defn- ns-form-node->ns-symb [ns-form-node]
-  (some-> (ns-form-node->ns-symb-node ns-form-node)
-          hooks/sexpr))
-
-(defn- lint-modules [ns-form-node config]
-  (let [ns-symb (ns-form-node->ns-symb ns-form-node)]
-    (when-not (modules/ignored-namespace? config ns-symb)
-      (when-let [current-module (modules/module ns-symb)]
-        (let [required-namespace-symb-nodes (-> ns-form-node
-                                                ns-form-node->require-node
-                                                require-node->namespace-symb-nodes)]
-          (doseq [node  required-namespace-symb-nodes
-                  :when (not (contains? (hooks.common/ignored-linters node) :metabase/modules))
-                  :let  [required-namespace (hooks/sexpr node)
-                         error              (modules/usage-error config current-module required-namespace)]
-                  :when error]
-            (hooks/reg-finding! (assoc (meta node)
-                                       :message error
-                                       :type    :metabase/modules))))))))
-
-(defn- lint-namespace-name [ns-form-node]
-  (when-let [ns-symb-node (ns-form-node->ns-symb-node ns-form-node)]
-    (when-not (contains? (hooks.common/ignored-linters ns-symb-node) :metabase/namespace-name)
-      (let [parts (str/split (str (hooks/sexpr ns-symb-node)) #"\.")]
-        (when (and (<= (count parts) 2)
-                   (#{"metabase" "metabase-enterprise"} (first parts))
-                   ;; exclude test namespaces for now
-                   (not (str/ends-with? (last parts) "test")))
-          (hooks/reg-finding! (assoc (meta ns-symb-node)
-                                     :message "Metabase namespaces should have the form metabase[-enterprise].<module>.* [:metabase/namespace-name]"
-                                     :type    :metabase/namespace-name)))))))
-
-(defn lint-ns [x]
-  (doto (:node x)
-    lint-require-shapes
-    lint-requires-on-new-lines
-    (lint-modules (modules/config x))
-    lint-namespace-name)
-  x)
-
-(comment
-  (lint-ns
-   {:node (hooks/parse-string
-           (pr-str
-            '(ns hooks.clojure.core.ns
-               (:require
-                [clj-kondo.hooks-api :as hooks]
-                [clojure.string :as str]
-                [hooks.common]
-                [hooks.common.modules :as modules]))))}))

.clj-kondo/src/hooks/clojure/core/require.clj

@@ -1,75 +0,0 @@
-(ns hooks.clojure.core.require
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [hooks.common.modules :as modules]))
-
-(defn- lint* [node current-ns config required-namespaces]
-  {:pre [(map? node)
-         (simple-symbol? current-ns)
-         (map? config)
-         (sequential? required-namespaces)
-         (every? simple-symbol? required-namespaces)]}
-  (when-not (modules/ignored-namespace? config current-ns)
-    ;; ignore namespaces outside of the module system
-    (when-let [current-module (modules/module current-ns)]
-      (doseq [required-namespace required-namespaces]
-        ;; ignore namespaces outside of the module system.
-        (when (modules/module required-namespace)
-          (when-let [error (modules/usage-error config current-module required-namespace)]
-            (hooks/reg-finding! (assoc (meta node)
-                                       :message error
-                                       :type    :metabase/modules))))))))
-
-(defn- unwrap-require [node]
-  (case (hooks/tag node)
-    ;; some.namespace of some.namespace/some-var
-    :token
-    (let [sexpr (hooks/sexpr node)]
-      (if (qualified-symbol? sexpr)
-        (symbol (namespace sexpr))
-        sexpr))
-
-    ;; (quote some.namespace)
-    :list
-    (let [[x y] (:children node)]
-      (when (and (hooks/token-node? x)
-                 (= (hooks/sexpr x) 'quote))
-        (recur y)))
-
-    ;; 'some.namespace
-    :quote
-    (recur (first (:children node)))
-
-    ;; something like [some.namespace :as whatever]
-    :vector
-    (recur (first (:children node)))))
-
-(comment
-  (unwrap-require (-> "(requiring-resolve 'metabase.notification.payload.execute/execute-dashboard)"
-                      hooks/parse-string
-                      :children
-                      second)))
-
-(defn- lint-require* [node current-ns config]
-  (let [[_require & args]   (:children node)
-        required-namespaces (->> (keep unwrap-require args)
-                                 ;; `require` runs through `cc/load-libs` which allows
-                                 ;; #{:as :reload :reload-all :require :use :verbose :refer :as-alias}
-                                 ;; as args. If you use a REPL tool that applies clj-kondo linting (e.g., Clojure MCP)
-                                 ;; you may wish to `:reload` or `:reload-all` a namespace. So we shouldn't assume all
-                                 ;; args are keywords:
-                                 (remove keyword?))]
-    (lint* node current-ns config required-namespaces)))
-
-(defn- lint-requiring-resolve* [node current-ns config]
-  (let [[_requiring-resolve symb-node] (:children node)
-        required-namespace             (unwrap-require symb-node)]
-    (lint* node current-ns config [required-namespace])))
-
-(defn lint-require [x]
-  (lint-require* (:node x) (:ns x) (modules/config x))
-  x)
-
-(defn lint-requiring-resolve [x]
-  (lint-requiring-resolve* (:node x) (:ns x) (modules/config x))
-  x)

.clj-kondo/src/hooks/clojure/test.clj

@@ -1,190 +0,0 @@
-(ns hooks.clojure.test
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clojure.string :as str]
-   [hooks.common]
-   [hooks.common.modules :as modules]))
-
-(defn- warn-about-disallowed-parallel-forms [form config]
-  (letfn [(error! [form message]
-            (hooks/reg-finding! (assoc (meta form)
-                                       :message message
-                                       :type :metabase/validate-deftest)))
-          (f [form]
-            (when-let [qualified-symbol (hooks.common/node->qualified-symbol form)]
-              (cond
-                (contains? (:parallel/unsafe config) qualified-symbol)
-                (error! form (format "%s is not allowed inside a ^:parallel test or test fixture [:metabase/validate-deftest]" qualified-symbol))
-
-                (and (not (contains? (:parallel/safe config) qualified-symbol))
-                     (str/ends-with? (name qualified-symbol) "!"))
-                (error! form (format "destructive functions like %s are not allowed inside a ^:parallel test or test fixture. If this should be allowed, add it to the whitelist in the Kondo config file [:metabase/validate-deftest]"
-                                     qualified-symbol)))))
-          (walk [form]
-            (f form)
-            (doseq [child (:children form)]
-              (walk child)))]
-    (walk form)))
-
-(defn- deftest-check-parallel
-  "1. Check if test is marked ^:parallel / ^:synchronized correctly
-   2. Make sure disallowed forms are not used in ^:parallel tests"
-  [{[_ test-name & body] :children, :as _node} config]
-  (let [test-metadata     (:meta test-name)
-        metadata-sexprs   (map hooks/sexpr test-metadata)
-        combined-metadata (transduce
-                           (map (fn [x]
-                                  (if (map? x)
-                                    x
-                                    {x true})))
-                           (completing merge)
-                           {}
-                           metadata-sexprs)
-        parallel?     (:parallel combined-metadata)
-        synchronized? (:synchronized combined-metadata)]
-    (when (and parallel? synchronized?)
-      (hooks/reg-finding! (assoc (meta test-name)
-                                 :message "Test should not be marked both ^:parallel and ^:synchronized"
-                                 :type :metabase/validate-deftest)))
-    ;; only when the custom `:metabase/deftest-not-marked-parallel-or-synchronized` is enabled: complain if tests are
-    ;; not explicitly marked `^:parallel` or `^:synchronized`. This is mostly to encourage people to mark everything
-    ;; `^:parallel` in places like `metabase.lib` tests unless there is a really good reason not to.
-    (when-not (or parallel? synchronized?)
-      (hooks/reg-finding!
-       (assoc (meta test-name)
-              :message "Test should be marked either ^:parallel or ^:synchronized"
-              :type :metabase/deftest-not-marked-parallel-or-synchronized)))
-    (when parallel?
-      (doseq [form body]
-        (warn-about-disallowed-parallel-forms form config)))))
-
-(defn- deftest-check-not-horrifically-long
-  [node {:keys [max-length], :as _config}]
-  (let [{:keys [row end-row]} (meta node)]
-    (when (and row end-row)
-      (let [num-lines (- end-row row)]
-        (when (and max-length
-                   (>= num-lines max-length))
-          (hooks/reg-finding! (assoc (meta node)
-                                     :message (str (format "This test is horrifically long, it's %d lines! 😱 " num-lines)
-                                                   "Do you really want to try to debug it if it fails? 💀 "
-                                                   "Split it up into smaller tests! 🥰")
-                                     :type :metabase/i-like-making-cams-eyes-bleed-with-horrifically-long-tests)))))))
-
-(defn- ignore? [node error-type]
-  (contains? (hooks.common/ignored-linters node) error-type))
-
-(defn deftest-check-no-driver-keywords [node {:keys [drivers], :as _config}]
-  ;; fail fast after we see the first error, where we see one hardcoded driver name there are likely several more and we
-  ;; don't need multiple warnings for a single test.
-  (letfn [(f [node]
-            (when (and (hooks/keyword-node? node)
-                       (set? drivers)
-                       (contains? drivers (hooks/sexpr node)))
-              (hooks/reg-finding! (assoc (meta node)
-                                         :message (format "Do not hardcode driver name %s in driver tests! [:metabase/disallow-hardcoded-driver-names-in-tests]"
-                                                          (hooks/sexpr node))
-                                         :type    :metabase/disallow-hardcoded-driver-names-in-tests))
-              ::error))
-          (walk [node]
-            (cond
-              (ignore? node :metabase/disallow-hardcoded-driver-names-in-tests)
-              nil
-
-              (= (f node) ::error)
-              ::error
-
-              :else
-              (reduce
-               (fn [_acc child]
-                 (when (= (walk child) ::error)
-                   (reduced ::error)))
-               nil
-               (:children node))))]
-    (walk node)))
-
-(defn- test-namespace-lives-outside-of-module-system? [ns-symb]
-  (some (fn [prefix]
-          (str/starts-with? (name ns-symb) prefix))
-        ["build-drivers."
-         "build."
-         "i18n." ; bin/i18n
-         "lint-migrations-file-test"
-         "main-test" ; bin/release-list
-         "metabase.deps-edn-test"
-         "metabase.driver."
-         "metabase.test."
-         "metabase.test.data."
-         "metabuild-common."])) ; utils for build scripts
-
-(let [warned-namespaces (atom #{})]
-  (defn deftest-check-in-valid-module
-    "Check whether a `deftest` lives in a known module -- important so our system to only run a subset of tests based on
-  which modules have changes picks them up correctly. (DEV-1125)"
-    [{:keys [node], ns-symb :ns, :as input}]
-    (when (and ns-symb
-               (not (test-namespace-lives-outside-of-module-system? ns-symb))
-               ;; only warn once per namespace
-               (not (contains? @warned-namespaces ns-symb)))
-      (swap! warned-namespaces conj ns-symb)
-      (let [known-modules  (set (keys (:metabase/modules (modules/config input))))
-            current-module (modules/module ns-symb)]
-        (when (or (not current-module)
-                  (not (contains? known-modules current-module)))
-          (hooks/reg-finding! (assoc (meta node)
-                                     :message (format "All tests must live in a known module; %s is not a known module" (pr-str current-module))
-                                     :type    :metabase/tests-must-live-in-known-modules)))))))
-
-(defn deftest [{:keys [node cljc lang config], :as input}]
-  ;; run [[deftest-check-parallel]] only once... if this is a `.cljc` file only run it for the `:clj` analysis, no point
-  ;; in running it twice.
-  (when (or (not cljc)
-            (= lang :clj))
-    (deftest-check-parallel node (get-in config [:linters :metabase/validate-deftest])))
-  (deftest-check-not-horrifically-long node (get-in config [:linters :metabase/i-like-making-cams-eyes-bleed-with-horrifically-long-tests]))
-  (deftest-check-no-driver-keywords node (get-in config [:linters :metabase/disallow-hardcoded-driver-names-in-tests]))
-  (deftest-check-in-valid-module input)
-  input)
-
-;;; this is a hacky way to determine whether these namespaces are required in the `ns` form or not... basically `:ns`
-;;; will come back as `nil` if they are not.
-(defn- approximately-equal-ns-required? []
-  (= (:ns (hooks/resolve {:name 'metabase.test-runner.assert-exprs.approximately-equal/=?-report}))
-     'metabase.test-runner.assert-exprs.approximately-equal))
-
-(defn- malli-equals-ns-required? []
-  (= (:ns (hooks/resolve {:name 'metabase.test-runner.assert-exprs.malli-equals/malli=-report}))
-     'metabase.test-runner.assert-exprs.malli-equals))
-
-(defn- warn-about-missing-test-expr-requires-in-cljs [{:keys [children], :as _is-node}]
-  (let [[_is assertion-node] children]
-    (when (hooks/list-node? assertion-node)
-      (let [[assertion-symb-node] (:children assertion-node)]
-        (when (hooks/token-node? assertion-symb-node)
-          (let [assertion-symb-token (hooks/sexpr assertion-symb-node)
-                warn!                (fn [ns-to-require]
-                                       (hooks/reg-finding!
-                                        (assoc (meta assertion-symb-node)
-                                               :message (format "You must require %s to use %s in ClojureScript"
-                                                                ns-to-require
-                                                                assertion-symb-token)
-                                               :type :metabase/missing-test-expr-requires-in-cljs)))]
-            (condp = assertion-symb-token
-              '=?
-              (when-not (approximately-equal-ns-required?)
-                (warn! 'metabase.test-runner.assert-exprs.approximately-equal))
-
-              'malli=
-              (when-not (malli-equals-ns-required?)
-                (warn! 'metabase.test-runner.assert-exprs.malli-equals))
-
-              nil)))))))
-
-(defn is [{:keys [node lang]}]
-  (when (= lang :cljs)
-    (warn-about-missing-test-expr-requires-in-cljs node))
-  {:node node})
-
-(defn use-fixtures [{:keys [node config]}]
-  (warn-about-disallowed-parallel-forms node config)
-  {:node node})

.clj-kondo/src/hooks/common.clj

@@ -1,537 +0,0 @@
-(ns hooks.common
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clojure.pprint]
-   [clojure.set :as set]))
-
-(defn with-macro-meta
-  "When introducing internal nodes (let, defn, etc) it is important to provide a meta of an existing token
-   as the current version of kondo will use the whole form by default."
-  [new-node hook-node]
-  (with-meta new-node (meta (first (:children hook-node)))))
-
-;;; Kondo stores information about ignored linters as rewrite-clj forms matching how they are specified in the code, so
-;;; either
-;;;
-;;;    <vector-node [<token-node :discouraged-namespace>]>
-;;;
-;;; or
-;;;
-;;;    <token-node :discouraged-namespace>
-;;;
-;;; these are stored in
-;;;
-;;;     (-> node meta :clj-kondo/ignore :linters).
-;;;
-;;; These are not a convenient shape(s) to work with, so the next few functions abstract that shape out and work with a
-;;; set of keywords like
-;;;
-;;;    #{:discouraged-namespace}
-;;;
-;;; instead.
-
-(defn- unwrap-ignored-linters [linters]
-  (cond
-    (or (hooks/vector-node? linters)
-        (hooks/list-node? linters))
-    (into #{}
-          (map hooks/sexpr)
-          (:children linters))
-
-    (hooks/keyword-node? linters)
-    #{(hooks/sexpr linters)}
-
-    (and (set? linters)
-         (every? keyword? linters))
-    linters
-
-    (and (sequential? linters)
-         (every? keyword? linters))
-    (into #{} linters)
-
-    (keyword? linters)
-    #{linters}))
-
-(defn- wrap-ignored-linters [linters]
-  (hooks/vector-node (mapv hooks/keyword-node linters)))
-
-(defn ignored-linters
-  "Return a set of keywords all ignored linters associated with a node by looking at its metadata."
-  [node]
-  (or (some-> node meta :clj-kondo/ignore :linters unwrap-ignored-linters)
-      ;; deal with the old pre-2024.09 shape mentioned in https://github.com/clj-kondo/clj-kondo/issues/2414
-      (some-> node :meta first hooks/sexpr :clj-kondo/ignore unwrap-ignored-linters)))
-
-(defn update-ignored-linters
-  "Update the `:clj-kondo/ignore` linters in `node`'s metadata. `linters` should be a set of keywords."
-  [node f & args]
-  (letfn [(apply-f [linters]
-            (apply f linters args))
-          (update-linters [linters]
-            (-> (or (unwrap-ignored-linters linters)
-                    #{})
-                apply-f
-                wrap-ignored-linters))]
-    (vary-meta node update-in [:clj-kondo/ignore :linters] update-linters)))
-
-(defn merge-ignored-linters
-  "Merge the ignored linters from `source-nodes` into `node`. You can use this to propagate
-  ignored linters from parent nodes to child nodes."
-  [node & source-nodes]
-  (if-let [linters (not-empty (transduce (map ignored-linters) set/union #{} source-nodes))]
-    (update-ignored-linters node set/union linters)
-    node))
-
-;;; This stuff is to help debug hooks. Trace a function and it will pretty-print the before & after sexprs.
-;;;
-;;;    (hooks.common/trace #'calculate-bird-scarcity)
-
-#_{:clj-kondo/ignore [:discouraged-var]}
-(defn- trace* [f]
-  {:pre [(fn? f)]}
-  (fn traced-fn [node]
-    (println \newline)
-    (clojure.pprint/pprint (hooks/sexpr (:node node)))
-    (let [node* (f node)]
-      (println '=>)
-      (clojure.pprint/pprint (hooks/sexpr (:node node*)))
-      node*)))
-
-;;; this doesn't seem to work with SCI. Use [[defn-traced]] instead.
-
-;; (defn trace [varr]
-;;   {:pre [(var? varr)]}
-;;   (when-not (::traced? (meta varr))
-;;     (alter-var-root varr trace*)
-;;     (alter-meta! varr assoc ::traced? true)
-;;     (println "Traced" varr)))
-
-(defmacro defn-traced
-  "Replace a hook [[defn]] with this to trace the before and after sexprs."
-  [fn-name & fn-tail]
-  `(do
-     (defn fn# ~@fn-tail)
-     (def ~fn-name (trace* fn#))))
-
-;;;; Common hook definitions
-
-(defn do*
-  "This is the same idea as [[clojure.core/do]] but doesn't cause Kondo to complain about redundant dos or unused
-  values."
-  [{{[_ & args] :children, :as node} :node}]
-  (let [node* (-> (hooks/list-node
-                   (list*
-                    (update-ignored-linters (hooks/token-node 'do) conj :redundant-do)
-                    (for [arg args]
-                      (update-ignored-linters arg conj :unused-value))))
-                  (with-meta (meta node)))]
-    {:node node*}))
-
-(defn with-one-binding
-  "Helper for macros that have a shape like
-
-    (my-macro [x]
-      ...)
-
-    =>
-
-    (let [x nil]
-      ...)
-
-  Binding is optional and `_` will be substituted if not supplied."
-  [{{[_ {[x] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [(or x (hooks/token-node '_)) (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn with-two-bindings
-  "Helper for macros that have a shape like
-
-    (my-macro [x y]
-      ...)
-
-    =>
-
-    (let [x nil, y nil]
-      ...)
-
-  All bindings are optional and `_` will be substituted if not supplied."
-  [{{[_ {[x y] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [(or x (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or y (hooks/token-node '_)) (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn with-three-bindings
-  "Helper for macros that have a shape like
-
-    (my-macro [x y z]
-      ...)
-
-    =>
-
-    (let [x nil, y nil, z nil]
-      ...)
-
-  All bindings are optional and `_` will be substituted if not supplied."
-  [{{[_ {[x y z] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [(or x (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or y (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or z (hooks/token-node '_)) (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn with-four-bindings
-  "Helper for macros that have a shape like
-
-    (my-macro [a b c d]
-      ...)
-
-    =>
-
-    (let [a nil, b nil, c nil, d nil]
-      ...)
-
-  All bindings are optional and `_` will be substituted if not supplied."
-  [{{[_ {[a b c d] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [(or a (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or b (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or c (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or d (hooks/token-node '_)) (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn with-five-bindings
-  "Helper for macros that have a shape like
-
-    (my-macro [a b c d e]
-      ...)
-
-    =>
-
-    (let [a nil, b nil, c nil, d nil, e nil]
-      ...)
-
-  All bindings are optional and `_` will be substituted if not supplied."
-  [{{[_ {[a b c d e] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [(or a (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or b (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or c (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or d (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or e (hooks/token-node '_)) (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn with-six-bindings
-  "Helper for macros that have a shape like
-
-    (my-macro [a b c d e f]
-      ...)
-
-    =>
-
-    (let [a nil, b nil, c nil, d nil, e nil, f nil]
-      ...)
-
-  All bindings are optional and `_` will be substituted if not supplied."
-  [{{[_ {[a b c d e f] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [(or a (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or b (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or c (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or d (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or e (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or f (hooks/token-node '_)) (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn with-seven-bindings
-  "Helper for macros that have a shape like
-
-    (my-macro [a b c d e f g]
-      ...)
-
-    =>
-
-    (let [a nil, b nil, c nil, d nil, e nil, f nil, g nil]
-      ...)
-
-  All bindings are optional and `_` will be substituted if not supplied."
-  [{{[_ {[a b c d e f g] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [(or a (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or b (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or c (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or d (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or e (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or f (hooks/token-node '_)) (hooks/token-node 'nil)
-                  (or g (hooks/token-node '_)) (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn with-one-top-level-binding
-  "Helper for macros that have a shape like
-
-    (my-macro x
-      ...)
-
-    =>
-
-    (let [x nil]
-      ...)"
-  [{{[_ x & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [x (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn with-two-top-level-bindings
-  "Helper for macros that have a shape like
-
-    (my-macro x y
-      ...)
-
-    =>
-
-    (let [x nil, y nil]
-      ...)"
-  [{{[_ x y & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [x (hooks/token-node 'nil)
-                  y (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn let-one-with-optional-value
-  "This is exactly like [[clojure.core/let]] but the right-hand side of the binding, `value`, is optional, and only one
-  binding can be established.
-
-    (some-macro [x] ...)
-    =>
-    (let [x nil] ...)
-
-    (some-macro [x 100] ...)
-    =>
-    (let [x 100] ...)"
-  [{{[_ {[binding value] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [binding (or value (hooks/token-node 'nil))])
-                body))]
-    {:node node*}))
-
-(defn- let-second-inner [body bindings]
-  (let [binding-infos (for [[model {[binding value] :children}] (partition 2 bindings)]
-                        {:model   model
-                         :binding binding
-                         :value   (or value
-                                      (hooks/token-node 'nil))})]
-    (-> (hooks/vector-node
-         [(hooks/vector-node (map :model binding-infos))
-          (-> (hooks/list-node (list* (hooks/token-node `let)
-                                      (hooks/vector-node (mapcat (juxt :binding :value) binding-infos))
-                                      body))
-              (with-meta (meta body)))])
-        (with-meta (meta body)))))
-
-(defn let-second
-  "Helper for macros that have a shape like
-
-    (my-macro x [y]
-    ...)
-
-    where the let is for second arg.
-
-    =>
-
-    (let [y nil]
-    ...)"
-  [{:keys [node]}]
-  (let [[_ first-arg-ref binding+opts & body] (:children node)]
-    {:node (let-second-inner body [first-arg-ref binding+opts])}))
-
-(defn let-with-optional-value-for-last-binding
-  "This is exactly like [[clojure.core/let]] but the right-hand side of the *last* binding, `value`, is optional.
-
-    (some-macro [x] ...)
-    =>
-    (let [x nil] ...)
-
-    (some-macro [x 100] ...)
-    =>
-    (let [x 100] ...)"
-  [{{[_ {bindings :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 (into []
-                       (comp (partition-all 2)
-                             (mapcat (fn [[binding value]]
-                                       [binding (or value (hooks/token-node 'nil))])))
-                       bindings))
-                body))]
-    {:node node*}))
-
-(defn with-ignored-first-arg
-  "For macros like
-
-    (discard-setting-changes [setting-1 setting-2]
-      ...)
-
-    =>
-
-    (do ...)
-
-  where the first arg ought to be ignored for linting purposes."
-  [{{[_ _x & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'do)
-                body))]
-    {:node node*}))
-
-(defn with-used-first-arg
-  "For macros like
-
-    (with-drivers (filter pred? some-drivers)
-      ...)
-
-    =>
-
-    (let [_1234 (filter pred? some-drivers)]
-      ...)
-
-  where the first arg should be linted and appear to be used."
-  [{{[_ arg & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node [(hooks/token-node (gensym "_"))
-                                    arg])
-                body))]
-    {:node node*}))
-
-(defn with-used-first-two-args
-  "For macros like
-
-    (with-limit-and-offset limit offset
-      ...)
-
-    =>
-
-    (let [_123 limit
-         [_456 offset]
-      ...)
-
-  where the first arg should be linted and appear to be used."
-  [{{[_ x y & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node [(hooks/token-node (gensym "_")) x
-                                    (hooks/token-node (gensym "_")) y])
-                body))]
-    {:node node*}))
-
-(defn with-vec-first-binding
-  "For macros like
-
-    (with-temp-file [binding \"temp.txt\" \"content\"]
-      (slurp binding))
-
-    =>
-    (let [binding nil]
-      (slurp binding))
-
-    where the first arg is a vector of bindings."
-  [{{[_ {[x & _args] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [(or x (hooks/token-node '_)) (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))
-
-(defn node->qualified-symbol
-  "If the node is a symbol, return it as a qualified symbol if it's not already. Otherwise return nil."
-  [node]
-  (try
-    (when (hooks/token-node? node)
-      (let [sexpr (hooks/sexpr node)]
-        (when (symbol? sexpr)
-          (let [resolved (hooks/resolve {:name sexpr})]
-            (cond
-              (and resolved (:ns resolved))
-              (symbol (name (:ns resolved)) (name (:name resolved)))
-
-             ;; if it wasn't resolved but is still qualified it's probably using the full namespace name rather than an
-             ;; alias.
-              (qualified-symbol? sexpr)
-              sexpr)))))
-    ;; some symbols like `*count/Integer` aren't resolvable.
-    (catch Exception _
-      nil)))
-
-(defn format-string-specifier-count
-  "Number of things like `%s` in a format string, not counting newlines (`%n`) or escaped percent signs (`%%`). For
-  checking the number of args to something that takes a format string."
-  [format-string]
-  (count (re-seq #"(?<!%)%(?![%n])" format-string)))
-
-(comment
-  ;; should be 1
-  (format-string-specifier-count "%s %%")
-
-  ;; should be 2
-  (format-string-specifier-count "%s %%%n%s")
-
-  ;; should be 0
-  (format-string-specifier-count "%n%%%%")
-
-  ;; should be 1
-  (format-string-specifier-count "%-02d"))
-
-(defn add-lsp-ignore-unused-public-var-metadata
-  "Add
-
-    ^{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
-
-  metadata to a node to suppress LSP warnings."
-  [node]
-  (update-ignored-linters node conj :clojure-lsp/unused-public-var))

.clj-kondo/src/hooks/common/modules.clj

@@ -1,88 +0,0 @@
-(ns hooks.common.modules
-  (:require
-   [clojure.string :as str]))
-
-(defn ignored-namespace? [config ns-symb]
-  (some
-   (fn [pattern-str]
-     (re-find (re-pattern pattern-str) (str ns-symb)))
-   (:ignored-namespace-patterns config)))
-
-(defn config [{:keys [config], :as _hook-input}]
-  (merge (get-in config [:linters :metabase/modules])
-         (select-keys config [:metabase/modules])))
-
-(defn module
-  "E.g.
-
-    (module 'metabase.qp.middleware.wow) => 'qp
-    (module 'metabase-enterprise.whatever.core) => enterprise/whatever"
-  [ns-symb]
-  {:pre [(simple-symbol? ns-symb)]}
-  ;; treat something like `metabase.driver-test` (for a module that hasn't fully been updated to use `.core`
-  ;; namespaces) as being in the `driver` module
-  (let [ns-symb (if (str/ends-with? (name ns-symb) "-test")
-                  (symbol (str/replace (name ns-symb) #"-test$" ""))
-                  ns-symb)]
-    (or (some->> (re-find #"^metabase-enterprise\.([^.]+)" (str ns-symb))
-                 second
-                 (symbol "enterprise"))
-        (some-> (re-find #"^metabase\.([^.]+)" (str ns-symb))
-                second
-                symbol))))
-
-(defn module-api-namespaces
-  "Set of API namespace symbols for a given module. `:any` means you can use anything, there are no API namespaces for
-  this module (yet). If unspecified, the default is just the `<module>.core` namespace."
-  [config module]
-  (let [module-config (get-in config [:metabase/modules module :api])]
-    (cond
-      (= module-config :any)
-      nil
-
-      (set? module-config)
-      module-config
-
-      :else
-      (let [ns-prefix (if (= (namespace module) "enterprise")
-                        (str "metabase-enterprise." (name module))
-                        (name module))]
-        #{(symbol (str ns-prefix ".api"))
-          (symbol (str ns-prefix ".core"))
-          (symbol (str ns-prefix ".init"))}))))
-
-(defn allowed-modules
-  "Set of namespace symbols that `module` is allowed to use. `:any` means it's allowed to use anything."
-  [config module]
-  (get-in config [:metabase/modules module :uses]))
-
-(defn allowed-module? [config module required-module]
-  (let [allowed-modules (allowed-modules config module)]
-    (or (= allowed-modules :any)
-        (contains? (set allowed-modules) required-module))))
-
-(defn allowed-module-namespace? [config ns-symb]
-  (let [module                (module ns-symb)
-        module-api-namespaces (module-api-namespaces config module)]
-    (or (empty? module-api-namespaces)
-        (contains? module-api-namespaces ns-symb))))
-
-(defn usage-error
-  "Find usage errors when a `required-namespace` is required in the `current-module`. Returns a string describing the
-  error type if there is one, otherwise `nil` if there are no errors."
-  [config current-module required-namespace]
-  ;; ignore stuff not in a module i.e. non-Metabase stuff.
-  (when-let [required-module (module required-namespace)]
-    (when-not (= current-module required-module)
-      (cond
-        (not (allowed-module? config current-module required-module))
-        (format "Module %s should not be used in the %s module. [:metabase/modules %s :uses]"
-                required-module
-                current-module
-                current-module)
-
-        (not (allowed-module-namespace? config required-namespace))
-        (format "Namespace %s is not an allowed external API namespace for the %s module. [:metabase/modules %s :api]"
-                required-namespace
-                required-module
-                required-module)))))

.clj-kondo/src/hooks/malli/error.clj

@@ -1,26 +0,0 @@
-(ns hooks.malli.error
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [hooks.common]))
-
-(defn humanize [x]
-  (letfn [(check-node [node]
-            (when (hooks/list-node? node)
-              (let [[_ child] (:children node)]
-                (when (hooks/list-node? child)
-                  (let [[symb] (:children child)]
-                    (when-let [qualified-symb (hooks.common/node->qualified-symbol symb)]
-                      (when ('#{malli.core/validate metabase.util.malli.registry/validate}
-                             qualified-symb)
-                        (hooks/reg-finding! (assoc (meta symb)
-                                                   :message "Use malli.error/humanize with explain, NOT with validate. [:metabase/check-me-humanize]"
-                                                   :type :metabase/check-me-humanize)))))))))]
-    (check-node (:node x))
-    x))
-
-(comment
-  (humanize {:node (hooks/parse-string
-                    (pr-str '(malli.error/humanize
-                              (malli.core/validate
-                               metabase.sync.sync-metadata.dbms-version/DBMSVersion
-                               metabase.driver.druid.sync-test/dbms-version))))}))

.clj-kondo/src/hooks/metabase/api/macros.clj

@@ -1,149 +0,0 @@
-(ns hooks.metabase.api.macros
-  (:require
-   [clj-kondo.hooks-api :as api]
-   [clojure.string :as str]))
-
-(defn- validate-route!
-  "Make sure the route uses kebab-case rather than snake_case."
-  [route]
-  (letfn [(validate-route-string! [route-string]
-            (when (and (api/string-node? route-string)
-                       (str/includes? (api/sexpr route-string) "_"))
-              (api/reg-finding! (assoc (meta route-string)
-                                       :message "REST API routes and query params should use kebab-case, not snake_case"
-                                       :type    :metabase/validate-defendpoint-route-uses-kebab-case))))]
-    (cond
-      (api/string-node? route)
-      (validate-route-string! route)
-      ;; otherwise route is a vector like ["/abc/:d/" :d <regex>]
-      (api/vector-node? route)
-      (validate-route-string! (first (:children route))))))
-
-(defn- validate-query-params!
-  "Make sure query params use kebab-case rather than snake_case.
-
-  This only works on inline schemas for now. If you define the schema elsewhere then we'd have to implement this
-  validation in Clojure-land since we can't resolve the schemas in Kondo. It should however still work on complicated
-  schemas like
-
-    [:merge <map-1> <map-2>]"
-  [query-param-schema-node]
-  (letfn [(map-schema? [node]
-            (and (api/vector-node? node)
-                 (when-let [first-child (first (:children node))]
-                   (and (api/keyword-node? first-child)
-                        (= (api/sexpr first-child) :map)))))
-          (map-schema-keys [{:keys [children], :as _node}]
-            (let [child-schemas (if (api/map-node? (second children))
-                                  (drop 2 children)
-                                  (drop 1 children))]
-              (keep (fn [child-schema]
-                      (when (api/vector-node? child-schema)
-                        (when-let [k (first (:children child-schema))]
-                          (when (api/keyword-node? k)
-                            k))))
-                    child-schemas)))
-          (validate-map-schema! [form]
-            ;; only warn once per endpoint -- just once on the first bad node
-            (when-let [bad-node (some (fn [key-node]
-                                        (when (str/includes? (str (api/sexpr key-node)) "_")
-                                          key-node))
-                                      (map-schema-keys form))]
-              (api/reg-finding! (assoc (meta bad-node)
-                                       :message "REST API routes and query params should use kebab-case, not snake_case"
-                                       :type    :metabase/validate-defendpoint-query-params-use-kebab-case))))
-          (validate! [node]
-            (cond
-              (and (api/vector-node? node)
-                   (map-schema? node))
-              (validate-map-schema! node)
-
-              (api/vector-node? node)
-              (doseq [child (:children node)]
-                (validate! child))))]
-    (validate! query-param-schema-node)))
-
-(defn defendpoint
-  [arg]
-  (letfn [(update-defendpoint [node]
-            (let [[defendpoint method route & more] (:children node)
-                  [result-schema & more] (if (= (api/sexpr (first more)) :-)
-                                           (drop 1 more)
-                                           (cons nil more))
-                  [_docstring & more] (if (api/string-node? (first more))
-                                        more
-                                        (cons nil more))
-                  [metadata & more] (if (api/map-node? (first more))
-                                      more
-                                      (cons nil more))
-                  [params & body] more
-                  [bindings schemas] (when (api/vector-node? params)
-                                       (loop [bindings [], schemas [], [x y z & more] (:children params)]
-                                         (cond
-                                           (not x)
-                                           [bindings schemas]
-
-                                           (and (api/keyword-node? y)
-                                                (= (api/sexpr y) :-))
-                                           (recur (conj bindings x) (conj schemas z) more)
-
-                                           :else
-                                           (recur (conj bindings x) (conj schemas nil) (list* y z more)))))]
-              (validate-route! route)
-              (when-not result-schema
-                (api/reg-finding! (assoc (meta node)
-                                         :message "All REST API endpoints should have a detailed response schema"
-                                         :type    :metabase/validate-defendpoint-has-response-schema)))
-              (let [[_route-param-schema query-param-schema _body-param-schema] schemas]
-                (when query-param-schema
-                  (validate-query-params! query-param-schema)))
-              (-> (api/list-node
-                   (list
-                    (api/token-node 'do)
-                    defendpoint
-                    method
-                    route
-                    (api/list-node
-                     (list*
-                      (api/token-node 'do)
-                      (filter some? (list* metadata result-schema schemas))))
-                    (api/list-node
-                     (list*
-                      (api/token-node `let)
-                      (api/vector-node (into []
-                                             cat
-                                             [(mapcat (fn [a-binding]
-                                                        [a-binding (api/map-node {})])
-                                                      (take 4 bindings))
-                                              (mapcat (fn [a-binding]
-                                                        [a-binding (api/list-node (list
-                                                                                   (api/token-node 'clojure.core/constantly)
-                                                                                   (api/token-node 'nil)))])
-                                                      (drop 4 bindings))]))
-                      body))))
-                  (with-meta (meta node)))))]
-    (update arg :node update-defendpoint)))
-
-(comment
-  (defn -defendpoint [form]
-    (-> {:node (-> form pr-str api/parse-string)}
-        defendpoint
-        :node
-        api/sexpr))
-
-  (defn x []
-    (-defendpoint '(api.macros/defendpoint :get "/:id/syncable_schemas" ; snake_case route should trigger a warning
-                     "Returns a list of all syncable schemas found for the database `id`."
-                     [{:keys [id]} :- [:map
-                                       [:id ms/PositiveInt]]
-                      ;; snake_case query parameter, should trigger a warning
-                      {:keys [filter_by]} :- [:map
-                                              [:filter_by {:optional true} :string]]]
-                     (let [db (get-database id)]
-                       (api/check-403 (or (:is_attached_dwh db)
-                                          (and (mi/can-write? db)
-                                               (mi/can-read? db))))
-                       (->> db
-                            (driver/syncable-schemas (:engine db))
-                            (vec)
-                            (sort)))))))

.clj-kondo/src/hooks/metabase/app_db/schema_migrations_test/impl.clj

@@ -1,14 +0,0 @@
-(ns hooks.metabase.app-db.schema-migrations-test.impl
-  (:require [clj-kondo.hooks-api :as hooks]))
-
-(defn test-migrations
-  [{{[_ migration-range {[binding] :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node `let)
-                (hooks/vector-node
-                 [binding (hooks/list-node (list (hooks/token-node `fn)
-                                                 (hooks/vector-node [(hooks/token-node '&) (hooks/token-node '_args)])))])
-                migration-range
-                body))]
-    {:node node*}))

.clj-kondo/src/hooks/metabase/channel/template/handlebars_helper.clj

@@ -1,25 +0,0 @@
-(ns hooks.metabase.channel.template.handlebars-helper
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [hooks.common]))
-
-(defn defhelper
-  "defhelper hook"
-  [{:keys [node]}]
-  (let [[_ helper-name description argvec & body] (:children node)
-        helper-fn-name (symbol (str (hooks/sexpr helper-name) "*"))]
-    {:node (-> (hooks/list-node
-                (list (hooks/token-node 'do)
-                      (hooks/list-node
-                       (list (hooks/token-node 'defn)
-                             (hooks/token-node helper-fn-name)
-                             description
-                             argvec
-                             (hooks/list-node body)))
-                      (hooks/list-node
-                       (list (hooks/token-node 'defn)
-                             helper-name
-                             description
-                             argvec
-                             (hooks/list-node body)))))
-               (with-meta (meta node)))}))

.clj-kondo/src/hooks/metabase/driver.clj

@@ -1,18 +0,0 @@
-(ns hooks.metabase.driver
-  (:require
-   [clj-kondo.hooks-api :as api]))
-
-(defn register!
-  "Register the driver keyword so LSP can jump to it."
-  [x]
-  (letfn [(update-driver-keyword [k]
-            (api/reg-keyword! k 'metabase.driver/register!))
-          (update-children [[_register! k :as children]]
-            (if (api/keyword-node? k)
-              (update (vec children) 1 update-driver-keyword)
-              children))
-          (update-node [node]
-            (if (api/list-node? node)
-              (update node :children update-children)
-              node))]
-    (update x :node update-node)))

.clj-kondo/src/hooks/metabase/driver/mongo_test.clj

@@ -1,18 +0,0 @@
-(ns hooks.metabase.driver.mongo-test
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [hooks.common]))
-
-(defn with-describe-table-for-sample
-  "Forward bindings for results of functions used in mongo's describe-table implementation."
-  [{{[_ _ & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [(hooks/token-node 'dbfields)      (hooks/token-node '(delay nil))
-                  (hooks/token-node 'ftree)         (hooks/token-node '(delay nil))
-                  (hooks/token-node 'nested-fields) (hooks/token-node '(delay nil))])
-                body))]
-    ;; Avoid warnings when not all from the dbfields, ftree and nested-fields are used.
-    {:node (hooks.common/update-ignored-linters node* conj :unused-binding)}))

.clj-kondo/src/hooks/metabase/legacy_mbql/schemas/macros.clj

@@ -1,107 +0,0 @@
-(ns hooks.metabase.legacy-mbql.schemas.macros
-  (:require
-   [clj-kondo.hooks-api :as hooks]))
-
-(defn- unwrap-defclause-clause-name
-  "The `clause-name-form` can be either a plain symbol, or a vector like `[var-name mbql-clause-name]`. For the vector
-  form, we are only interested in the `var-name`. For a plain symbol, the two names are the same. Return a token node."
-  [clause-name-form]
-  (-> (if (hooks/vector-node? clause-name-form)
-        (first (:children clause-name-form))
-        clause-name-form)
-      (with-meta (meta clause-name-form))))
-
-(defn- collect-defclause-body-schemas
-  "Collect the argument schemas in the body of a `defclause` form into a vector node.
-
-  The body is a sequence of <argument-name> <argument-schema> pairs. We can ignore the argument names.
-
-  <argument-schema> can optionally be wrapped be `(optional ...)` or `(rest ...)`... we can ignore these."
-  [arg-specs]
-  (hooks/vector-node
-   (for [[_arg-name arg-schema] (partition-all 2 arg-specs)
-         :let                   [arg-schema (if (and (hooks/list-node? arg-schema)
-                                                     ('#{optional rest} (hooks/sexpr (first (:children arg-schema)))))
-                                              (-> (second (:children arg-schema))
-                                                  (with-meta (meta arg-schema)))
-                                              arg-schema)]]
-     arg-schema)))
-
-(defn defclause
-  "e.g.
-
-    (defclause [ag:var var] field-or-expression FieldOrExpressionDef)
-    =>
-    (def ag:var [FieldOrExpressionDef])"
-  [{:keys [node], :as x}]
-  (let [[_defclause clause-name & arg-specs] (:children node)]
-    (assoc x :node (-> (hooks/list-node
-                        (list
-                         (hooks/token-node 'do)
-                         (-> (hooks/keyword-node (keyword "metabase.legacy-mbql.schema" (name (hooks/sexpr clause-name))))
-                             (with-meta (meta clause-name))
-                             (hooks/reg-keyword! 'metabase.legacy-mbql.schemas.macros/defclause))
-                         (collect-defclause-body-schemas arg-specs)))
-                       (with-meta (meta node))))))
-
-(defn defclause*
-  "e.g.
-
-    (defclause [ag:var var] field-or-expression FieldOrExpressionDef)
-    =>
-    (def ag:var [FieldOrExpressionDef])"
-  [{:keys [node], :as x}]
-  (let [[_defclause clause-name schema] (:children node)]
-    (assoc x :node (-> (hooks/list-node
-                        (list
-                         (hooks/token-node 'do)
-                         (-> (hooks/keyword-node (keyword "metabase.legacy-mbql.schema" (name (hooks/sexpr clause-name))))
-                             (with-meta (meta clause-name))
-                             (hooks/reg-keyword! 'metabase.legacy-mbql.schemas.macros/defclause*))
-                         schema))
-                       (with-meta (meta node))))))
-
-(comment
-  (defn- expand-defclause [form]
-    (hooks/sexpr
-     (:node
-      (defclause
-        {:node
-         (hooks/parse-string
-          (with-out-str
-            (clojure.pprint/pprint
-             form)))}))))
-
-  (defn- x []
-    (expand-defclause '(defclause var
-                         field-or-expression FieldOrExpressionDef)))
-  ;; =>
-  (do :metabase.legacy-mbql.schema/var [FieldOrExpressionDef])
-
-  (defn- y []
-    (expand-defclause '(defclause var
-                         x (some-list-schema)
-                         y (optional FieldOrExpressionDef)
-                         z (rest (some-other-schema)))))
-  ;; =>
-  (do :metabase.legacy-mbql.schema/var [(some-list-schema) FieldOrExpressionDef (some-other-schema)]))
-
-(defn one-of [{:keys [node], :as x}]
-  (let [[_one-of & schema-nodes] (:children node)
-        node' (-> (hooks/vector-node
-                   (mapv (fn [schema-node]
-                           (if (and (hooks/token-node? schema-node)
-                                    (simple-symbol? (hooks/sexpr schema-node)))
-                             (-> (hooks/keyword-node (keyword "mteabase.legacy-mbql.schema" (name (hooks/sexpr schema-node))))
-                                 (with-meta (meta schema-node)))
-                             schema-node))
-                         schema-nodes))
-                  (with-meta (meta node)))]
-    (assoc x :node node')))
-
-(comment
-  (defn- expand-one-of [form]
-    (hooks/sexpr (:node (one-of {:node (hooks/parse-string (with-out-str (clojure.pprint/pprint form)))}))))
-
-  (defn- z []
-    (expand-one-of '(one-of absolute-datetime relative-datetime time))))

.clj-kondo/src/hooks/metabase/lib/schema/mbql_clause.clj

@@ -1,21 +0,0 @@
-(ns hooks.metabase.lib.schema.mbql-clause
-  (:require
-   [clj-kondo.hooks-api :as api]))
-
-(defn define-mbql-clause
-  "Register the schema keyword so LSP can jump to it."
-  [x]
-  (letfn [(update-def-keyword [k]
-            (-> (api/keyword-node (keyword "mbql.clause" (name (api/sexpr k))))
-                (with-meta (meta k))
-                (api/reg-keyword! 'metabase.lib.schema.mbql-clause/define-mbql-clause)))
-          (update-children [[_def k :as children]]
-            (if (api/keyword-node? k)
-              (update (vec children) 1 update-def-keyword)
-              children))
-          (update-node [node]
-            (if (api/list-node? node)
-              (-> (api/list-node (update-children (:children node)))
-                  (with-meta (meta node)))
-              node))]
-    (update x :node update-node)))

.clj-kondo/src/hooks/metabase/lib/test_util/macros.clj

@@ -1,12 +0,0 @@
-(ns hooks.metabase.lib.test-util.macros
-  (:require [clj-kondo.hooks-api :as hooks]))
-
-(defn with-testing-against-standard-queries [{{[_ & args] :children} :node}]
-  (let [[query-sym & body] args
-        node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 [query-sym (hooks/token-node 'nil)])
-                body))]
-    {:node node*}))

.clj-kondo/src/hooks/metabase/model_persistence/test_util.clj

@@ -1,19 +0,0 @@
-(ns hooks.metabase.model-persistence.test-util
-  (:require
-   [clj-kondo.hooks-api :as hooks]))
-
-(defn with-persistence-enabled! [x]
-  (letfn [(update-node [node]
-            (let [[_symb bindings & body] (:children node)
-                  [fn-binding]            (:children bindings)]
-              (-> (hooks/list-node
-                   (list*
-                    (hooks/token-node `let)
-                    (hooks/vector-node
-                     [fn-binding (hooks/list-node
-                                  (list
-                                   (hooks/token-node `fn)
-                                   (hooks/vector-node [])))])
-                    body))
-                  (with-meta (meta node)))))]
-    (update x :node update-node)))

.clj-kondo/src/hooks/metabase/models/interface.clj

@@ -1,21 +0,0 @@
-(ns hooks.metabase.models.interface
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [hooks.common]))
-
-(defn define-hydration-method
-  "This is used for both [[metabase.models.interface/define-simple-hydration-method]] and
-  for [[metabase.models.interface/define-batched-hydration-method]]."
-  [{{[_define-simple-hydration-method fn-name hydration-key & fn-tail] :children, :as node} :node}]
-  (let [node (-> (hooks/list-node
-                  (list
-                   (hooks/token-node 'do)
-                   hydration-key
-                   (hooks/list-node
-                    (list*
-                     (hooks/token-node 'defn)
-                     fn-name
-                     fn-tail))))
-                 (with-meta (meta node))
-                 hooks.common/add-lsp-ignore-unused-public-var-metadata)]
-    {:node node}))

.clj-kondo/src/hooks/metabase/premium_features/defenterprise.clj

@@ -1,65 +0,0 @@
-(ns hooks.metabase.premium-features.defenterprise
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [hooks.common]))
-
-(defn defenterprise [{node :node}]
-  (let [[_defenterprise fn-name & args] (:children node)
-        [docstring & args]              (if (hooks/string-node? (first args))
-                                          args
-                                          (cons nil args))
-        [_enterprise-namespace & args]   (if (hooks/token-node? (first args))
-                                           args
-                                           (cons nil args))
-        [options fn-tail]               (loop [options (hooks/map-node []), [x y & more :as args] args]
-                                          (if (hooks/keyword-node? x)
-                                            (recur (update options :children concat [x y]) more)
-                                            [options args]))]
-    {:node (hooks/list-node
-            (list
-             (hooks/token-node 'let)
-             (hooks/vector-node
-              [(hooks/token-node '_options) options])
-             (-> (hooks/list-node
-                  (concat
-                   (filter some?
-                           (list (hooks/token-node 'defn)
-                                 fn-name
-                                 docstring))
-                   fn-tail))
-                 (with-meta (meta node))
-                 hooks.common/add-lsp-ignore-unused-public-var-metadata)))}))
-
-(comment
-  (defn- defenterprise* [form]
-    (hooks/sexpr
-     (:node
-      (defenterprise
-        {:node
-         (hooks/parse-string
-          (with-out-str
-            (clojure.pprint/pprint
-             form)))}))))
-
-  (defn- x []
-    (defenterprise*
-      '(defenterprise score-result
-         "Scoring implementation that adds score for items in official collections."
-         :feature :any
-         :fallback score-result-fallback
-         [result]
-         (conj (scoring/weights-and-scores result)
-               {:weight 2
-                :score  (official-collection-score result)
-                :name   "official collection score"}
-               {:weight 2
-                :score  (verified-score result)
-                :name   "verified"}))))
-
-  (defn- y []
-    (defenterprise*
-      '(defenterprise score-result
-         "Score a result, returning a collection of maps with score and weight."
-         metabase-enterprise.search.scoring
-         [result]
-         (weights-and-scores result)))))

.clj-kondo/src/hooks/metabase/query_processor/expressions_test.clj

@@ -1,16 +0,0 @@
-(ns hooks.metabase.query-processor.expressions-test
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [hooks.metabase.test.data :as data]))
-
-(defn calculate-bird-scarcity
-  [{{[_ formula filter-clause] :children} :node}]
-  (let [formula*       (data/replace-$id-special-tokens formula)
-        filter-clause* (or (some-> filter-clause data/replace-$id-special-tokens)
-                           (hooks/token-node 'nil))
-        node*          (hooks/list-node
-                        (list
-                         (hooks/token-node 'do)
-                         formula*
-                         filter-clause*))]
-    {:node node*}))

.clj-kondo/src/hooks/metabase/search/api_test.clj

@@ -1,17 +0,0 @@
-(ns hooks.metabase.search.api-test
-  (:require [clj-kondo.hooks-api :as hooks]))
-
-(defn with-search-items-in-collection [{{[_ & args] :children, :as node} :node}]
-  ;; (println \newline)
-  ;; (clojure.pprint/pprint (hooks/sexpr node))
-  (let [[created-items-sym search-string & body] args
-        node*                                    (hooks/list-node
-                                                  (list*
-                                                   (hooks/token-node 'let)
-                                                   (hooks/vector-node
-                                                    [created-items-sym (hooks/token-node 'nil)])
-                                                   search-string
-                                                   body))]
-    ;; (println '=>)
-    ;; (clojure.pprint/pprint (hooks/sexpr node*))
-    {:node node*}))

.clj-kondo/src/hooks/metabase/settings/models/setting.clj

@@ -1,309 +0,0 @@
-(ns hooks.metabase.settings.models.setting
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [hooks.common :as common]))
-
-(defn lint-defsetting-namespace [node context]
-  (when-not (re-matches #"^metabase(?:-enterprise)?\.[^\.]+\.settings$" (name (:ns context)))
-    (hooks/reg-finding! (assoc (meta node)
-                               :message "All defsettings should live in metabase[-enterprise].<module>.settings namespaces"
-                               :type :metabase/defsetting-namespace))))
-
-;;; TODO -- move this into a Kondo config file in `.clj-kondo/config/`
-(def ^:private ignored-implicit-export?
-  '#{active-users-count
-     admin-email
-     analytics-uuid
-     anon-tracking-enabled
-     api-key
-     attachment-table-row-limit
-     audit-max-retention-days
-     bcc-enabled?
-     breakout-bin-width
-     check-for-updates
-     cloud-gateway-ips
-     config-from-file-sync-databases
-     custom-homepage
-     custom-homepage-dashboard
-     database-enable-actions
-     deprecation-notice-version
-     dismissed-custom-dashboard-toast
-     email-configured?
-     email-from-address
-     email-from-name
-     email-reply-to
-     email-smtp-host
-     email-smtp-password
-     email-smtp-port
-     email-smtp-security
-     email-smtp-username
-     embedding-app-origin
-     embedding-secret-key
-     enable-password-login
-     enable-public-sharing
-     enable-query-caching
-     engines
-     enum-cardinality-threshold
-     follow-up-email-sent
-     google-auth-auto-create-accounts-domain
-     google-auth-client-id
-     google-auth-configured
-     google-auth-enabled
-     has-sample-database?
-     has-user-setup
-     help-link
-     help-link-custom-destination
-     instance-creation
-     is-hosted?
-     is-metabot-enabled
-     jdbc-data-warehouse-max-connection-pool-size
-     jdbc-data-warehouse-unreturned-connection-timeout-seconds
-     jwt-attribute-email
-     jwt-attribute-firstname
-     jwt-attribute-groups
-     jwt-attribute-lastname
-     jwt-configured
-     jwt-enabled
-     jwt-group-mappings
-     jwt-group-sync
-     jwt-identity-provider-uri
-     jwt-user-provisioning-enabled?
-     jwt-shared-secret
-     last-acknowledged-version
-     last-used-native-database-id
-     ldap-attribute-email
-     ldap-attribute-firstname
-     ldap-attribute-lastname
-     ldap-bind-dn
-     ldap-configured?
-     ldap-enabled
-     ldap-group-base
-     ldap-group-mappings
-     ldap-group-membership-filter
-     ldap-group-sync
-     ldap-host
-     ldap-password
-     ldap-port
-     ldap-user-provisioning-enabled?
-     ldap-security
-     ldap-sync-user-attributes
-     ldap-sync-user-attributes-blacklist
-     ldap-user-base
-     ldap-user-filter
-     load-analytics-content
-     map-tile-server-url
-     metabot-default-embedding-model
-     metabot-feedback-url
-     metabot-get-prompt-templates-url
-     metabot-prompt-generator-token-limit
-     multi-setting-read-only
-     notebook-native-preview-sidebar-width
-     notification-link-base-url
-     num-metabot-choices
-     openai-api-key
-     openai-available-models
-     openai-model
-     openai-organization
-     other-sso-enabled?
-     password-complexity
-     persist-models-enabled
-     persisted-model-refresh-cron-schedule
-     premium-embedding-token
-     prometheus-server-port
-     query-caching-max-kb
-     query-caching-max-ttl
-     query-caching-min-ttl
-     query-caching-ttl-ratio
-     redirect-all-requests-to-https
-     reset-token-ttl-hours
-     retired-setting
-     retry-initial-interval
-     retry-max-retries
-     retry-max-interval-millis
-     retry-multiplier
-     retry-jitter-factor
-     saml-application-name
-     saml-attribute-email
-     saml-attribute-firstname
-     saml-attribute-group
-     saml-attribute-lastname
-     saml-configured
-     saml-enabled
-     saml-group-mappings
-     saml-group-sync
-     saml-identity-provider-certificate
-     saml-identity-provider-issuer
-     saml-identity-provider-uri
-     saml-keystore-alias
-     saml-keystore-password
-     saml-keystore-path
-     saml-user-provisioning-enabled?
-     sdk-iframe-embed-setup-settings
-     send-email-on-first-login-from-new-device
-     send-new-sso-user-admin-email?
-     session-cookie-samesite
-     session-cookies
-     session-timeout
-     setup-token
-     show-database-syncing-modal
-     show-metabase-links
-     site-url
-     site-uuid
-     site-uuid-for-premium-features-token-checks
-     site-uuid-for-unsubscribing-url
-     site-uuid-for-version-info-fetching
-     slack-app-token
-     slack-cached-channels-and-usernames
-     slack-channels-and-usernames-last-updated
-     slack-files-channel
-     slack-token
-     slack-token-valid?
-     snowplow-available
-     snowplow-enabled
-     snowplow-url
-     sql-jdbc-fetch-size
-     ssh-heartbeat-interval-sec
-     ssl-certificate-public-key
-     startup-time-millis
-     token-features
-     token-status
-     toucan-name
-     trial-banner-dismissal-timestamp
-     uncached-setting
-     user-visibility
-     version
-     version-info
-     version-info-last-checked})
-
-(defn- lint-defsetting-export [node]
-  (let [[_defsetting setting-name _docstring & options] (:children node)]
-    (when (nil? (second (drop-while (comp not #{[:k :export?]} first) options)))
-      (when-not (contains? ignored-implicit-export? (:value setting-name))
-        (hooks/reg-finding! (assoc (meta node)
-                                   :message "Setting definition must provide an explicit value for :export? indicating whether the setting should be exported or not with serialization."
-                                   :type :metabase/defsetting-must-specify-export))))))
-
-(defn- defsetting-replacement-node [node]
-  (let [[_defsetting setting-name docstring & options-list] (:children node)
-        anon-binding (common/with-macro-meta (hooks/token-node '_) node)
-        ;; (defn my-setting [] ...)
-        getter-node (-> (list
-                         (hooks/token-node 'defn)
-                         setting-name
-                         (hooks/string-node "Docstring.")
-                         (hooks/vector-node []))
-                        hooks/list-node
-                        (with-meta (meta node)))
-        ;; (defn my-setting! [_x] ...)
-        setter-node (-> (list
-                         (hooks/token-node 'defn)
-                         (with-meta
-                          (hooks/token-node (symbol (str (hooks/sexpr setting-name) \!)))
-                          (meta setting-name))
-                         (hooks/string-node "Docstring.")
-                         (hooks/vector-node [(hooks/token-node '_value-or-nil)]))
-                        hooks/list-node
-                        (with-meta (meta node))
-                        common/add-lsp-ignore-unused-public-var-metadata)]
-    (-> (hooks/list-node
-         (list
-          (hooks/token-node 'let)
-          ;; include description and the options map so they can get validated as well.
-          (hooks/vector-node
-           [anon-binding docstring
-            anon-binding (hooks/map-node options-list)])
-          (hooks/reg-keyword! (-> (hooks/keyword-node (keyword (hooks/sexpr setting-name)))
-                                  (with-meta (meta setting-name)))
-                              'metabase.settings.models.setting/defsetting)
-          getter-node
-          setter-node))
-        (with-meta (meta node)))))
-
-(defn defsetting
-  "Rewrite a [[metabase.models.defsetting]] form like
-
-    (defsetting my-setting \"Description\" :type :boolean)
-
-  as
-
-    (let [_ \"Description\"
-          _ {:type :boolean}]
-      (defn my-setting \"Docstring.\" [])
-      (defn my-setting! \"Docstring.\" [_value-or-nil]))
-
-  for linting purposes."
-  [{:keys [node], :as context}]
-  (lint-defsetting-namespace node context)
-  (lint-defsetting-export node)
-  (update context :node defsetting-replacement-node))
-
-(defn define-multi-setting-replacement-node [node]
-  (let [[defsetting setting-name docstring thunk & options] (:children node)]
-    (-> (hooks/list-node
-         (list*
-          defsetting
-          setting-name
-          docstring
-          (hooks/token-node :multi-thunk) thunk
-          options))
-        (with-meta (meta node))
-        defsetting-replacement-node)))
-
-(defn define-multi-setting
-  "Rewrite a [[metabase.models.define-multi-setting]] form like
-
-    (defsetting my-setting \"Description\" :key :type :boolean)
-
-  as
-
-    (let [_ \"Description\"
-          _ {:type :boolean, :multi-thunk :key}]
-      (defn my-setting \"Docstring.\" [])
-      (defn my-setting! \"Docstring.\" [_value-or-nil]))
-
-  for linting purposes."
-  [{:keys [node], :as context}]
-  (update context :node define-multi-setting-replacement-node))
-
-(defn define-multi-setting-impl
-  [context]
-  (letfn [(update-node [node]
-            (let [[_define-multi-setting-impl setting-name & more] (:children node)]
-              (-> (hooks/list-node
-                   (list*
-                    (hooks/token-node 'do)
-                    ;; For a qualified setting name like `oss-namespace/setting`, then leave the symbol as is, so the
-                    ;; usage of that namespace/var gets recorded. Otherwise for an unqualified name convert it to a
-                    ;; keyword so we don't get unresolved var errors.
-                    (if (and (hooks/token-node? setting-name)
-                             (qualified-symbol? (hooks/sexpr setting-name)))
-                      setting-name
-                      (-> (hooks/keyword-node (keyword (hooks/sexpr setting-name)))
-                          (with-meta (meta setting-name))))
-                    more))
-                  (with-meta (meta node)))))]
-    (update context :node update-node)))
-
-(comment
-  (defn- defsetting* [form]
-    (hooks/sexpr
-     (:node
-      (defsetting
-        {:node
-         (hooks/parse-string
-          (with-out-str
-            #_{:clj-kondo/ignore [:unresolved-namespace]}
-            (clojure.pprint/pprint
-             form)))}))))
-
-  (defn x []
-    (defsetting*
-      '(defsetting active-users-count
-         (deferred-tru "Cached number of active users. Refresh every 5 minutes.")
-         :visibility :admin
-         :type       :integer
-         :default    0
-         :getter     (fn []
-                       (if-not ((requiring-resolve 'metabase.app-db.core/db-is-set-up?))
-                         0
-                         (cached-active-users-count)))))))

.clj-kondo/src/hooks/metabase/test/data.clj

@@ -1,153 +0,0 @@
-(ns hooks.metabase.test.data
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clojure.string :as str]
-   [clojure.walk :as walk]))
-
-(defn- global-dataset-symbols
-  "Dataset definitions defined in [[metabase.test.data.dataset-definitions]]. This is only populated if clj-kondo has
-  cached analysis for that namespace -- so it may or may not be populated. If it is populated we can do a bit of extra
-  linting with that information."
-  []
-  (not-empty (set (keys (:clj (hooks/ns-analysis 'metabase.test.data.dataset-definitions))))))
-
-(defn- local-def?
-  [ns* sexpr]
-  (= ns* (:ns (hooks/resolve {:name sexpr}))))
-
-(defn- dataset-type
-  "`dataset` can be one of:
-
-  - a qualified symbol
-  - an unqualified symbol referring to a a var in [[metabase.test.data.dataset-definitions]]
-  - an unqualified symbol (referring to a let-bound value or a var in the current namespace
-  - some sort of non-symbol form like a function call
-
-  We can only determine if an unqualified symbol refers to something in the dataset definitions namespace if there are
-  cached results available from [[global-dataset-symbols]]."
-  [this-ns dataset]
-  (let [sexpr       (hooks/sexpr dataset)
-        global-defs (global-dataset-symbols)]
-    (cond
-      (not (symbol? sexpr))
-      :non-symbol
-
-      (namespace sexpr)
-      :qualified
-
-      (contains? global-defs sexpr)
-      :unqualified/from-dataset-defs-namespace
-
-      (local-def? this-ns sexpr)
-      :unqualified/local-def
-
-      :else
-      :unqualified/unknown)))
-
-(defn dataset
-  [{{[_ dataset & body] :children, :as node} :node this-ns :ns}]
-  (let [node' (case (dataset-type this-ns dataset)
-                ;; non-symbol, qualified symbols, and unqualified symbols from the current namespace/let-bound can all
-                ;; get converted from something like
-                ;;
-                ;;    (dataset whatever
-                ;;      ...)
-                ;;
-                ;; to
-                ;;
-                ;;    (let [_ whatever]
-                ;;      ...)
-                (:non-symbol :qualified :unqualified/local-def)
-                (hooks/list-node
-                 (list*
-                  (hooks/token-node 'let)
-                  (hooks/vector-node [(hooks/token-node '_) dataset])
-                  body))
-
-                ;; for ones that came from the dataset defs namespace or ones whose origin is unknown, just ignore them
-                ;; and generate a form like
-                ;;
-                ;;    (do ...)
-                (:unqualified/from-dataset-defs-namespace :unqualified/unknown)
-                (hooks/list-node
-                 (list*
-                  (hooks/token-node `do)
-                  body)))]
-    {:node (with-meta node' (meta node))}))
-
-(defn- special-token-node?
-  "Whether this node is one of the special symbols like `$field`."
-  [node]
-  (when (hooks/token-node? node)
-    (let [symb (hooks/sexpr node)]
-      (and (symbol? symb)
-           (some (partial str/starts-with? symb)
-                 #{"$" "!" "&" "*" "%"})
-           ;; ignore args like `%` or `%1` inside function literals. $id forms have to be more than one character long,
-           ;; and the first character won't be a number (hopefully -- maybe some DBs allow this -- but we don't use it)
-           (> (count (str symb)) 1)
-           (not (re-find #"^%\d+" (str symb)))))))
-
-(defn replace-$id-special-tokens
-  "Impl for [[$ids]] and [[mbql-query]]. Walk `form` and look for special tokens like `$field` and replace them with
-  strings so we don't get unresolved symbol errors. Preserves metadata."
-  [form]
-  ;; [[walk/postwalk]] seems to preserve its meta so we don't need to do anything special
-  (walk/postwalk
-   (fn [node]
-     (if (special-token-node? node)
-       (-> (hooks/string-node (str (hooks/sexpr node)))
-           (with-meta (meta node)))
-       node))
-   form))
-
-(defn $ids
-  [{{[_ & args] :children} :node}]
-  ;; `$ids` accepts either
-  ;;
-  ;;    ($ids form)
-  ;;
-  ;; or
-  ;;
-  ;;    ($ids table & body)
-  ;;
-  ;; table is only relevant for expanding the special tokens so we can ignore it.
-  (let [body (if (= (count args) 1)
-               (first args)
-               (hooks/list-node
-                (list*
-                 (hooks/token-node `do)
-                 (rest args))))]
-    {:node (replace-$id-special-tokens body)}))
-
-(defn mbql-query
-  [{{[_ & args] :children} :node}]
-  ;; `mbql-query` accepts either
-  ;;
-  ;;    (mbql-query table)
-  ;;
-  ;; or
-  ;;
-  ;;    (mbql-query table query)
-  ;;
-  ;; and table may be `nil`.
-  ;;
-  ;; table is only relevant for expanding the special tokens so we can ignore it either way.
-  (let [[table query] (if (= (count args) 1)
-                        [(first args)
-                         (hooks/map-node [])]
-                        args)]
-    (when-not ((some-fn symbol? nil?) (hooks/sexpr table))
-      (hooks/reg-finding! (assoc (meta table)
-                                 :message "First arg to mbql-query should be either a table name symbol or nil."
-                                 :type :metabase/mbql-query-first-arg)))
-    (let [result (replace-$id-special-tokens query)
-          ;; HACK I'm not sure WHY it works but I ran into https://github.com/clj-kondo/clj-kondo/issues/1773 when
-          ;; trying to get this working -- for some magical reason wrapping the whole thing in a `do` form seems to fix
-          ;; it. Once that bug is resolved we can go ahead and remove this line
-          result (with-meta (hooks/list-node (with-meta (list
-                                                         (hooks/token-node 'do)
-                                                         result)
-                                                        (meta query)))
-                            (meta query))]
-      {:node result})))

.clj-kondo/src/hooks/metabase/test/data/datasets.clj

@@ -1,49 +0,0 @@
-(ns hooks.metabase.test.data.datasets
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clojure.set :as set]
-   [hooks.common]))
-
-(defn- only-core-drivers?
-  "Whether we're for sure only testing against the 'core' drivers that are also app DB types: `:postgres`, `:mysql`, or
-  `:h2`. Tests like these are ok to mark `:mb/driver-tests` since we always run the full test suite against app DB
-  drivers anyway."
-  [node]
-  (let [drivers (hooks/sexpr (second (:children node)))
-        drivers (cond
-                  (keyword? drivers) #{drivers}
-                  (set? drivers)     drivers
-                  :else              nil)]
-    (when drivers
-      (empty? (set/difference drivers #{:h2 :mysql :postgres})))))
-
-(defn- validate-mb-driver-tests [x]
-  (when-not (:mb/driver-tests (meta (:ns x)))
-    (hooks/reg-finding!
-     (assoc (meta (:ns x))
-            :message (str "Namespaces that run driver tests (test-driver or test-drivers) should be marked"
-                          " ^:mb/driver-tests [:metabase/validate-mb-driver-tests]")
-            :type :metabase/validate-mb-driver-tests))))
-
-(defn- validate-ns-tags [x]
-  (when-not (only-core-drivers? (:node x))
-    (validate-mb-driver-tests x)))
-
-(defn test-drivers [x]
-  (validate-ns-tags x)
-  (letfn [(update-node [node]
-            (let [[test-drivers drivers-expr & body] (:children node)]
-              (-> (hooks/list-node
-                   (list*
-                    (hooks/token-node 'do)
-                    test-drivers
-                    (-> drivers-expr
-                        (hooks.common/update-ignored-linters conj :unused-value))
-                    body))
-                  (with-meta (meta node)))))]
-    (update x :node update-node)))
-
-(defn test-driver
-  "We can use the same hook for `test-driver` as we use for `test-drivers`."
-  [x]
-  (test-drivers x))

.clj-kondo/src/hooks/metabase/test/gentest.clj

@@ -1,14 +0,0 @@
-(ns hooks.metabase.test.gentest
-  (:require
-   [clj-kondo.hooks-api :as hooks]))
-
-(defn iterate*
-  "(iterate {:as limit-spec} [s1 val1 & more] body-form body-form...)"
-  [{{:keys [children] :as node} :node :as orig}]
-  (let [[token limit-spec bindings & body-nodes] children
-        node* (-> (hooks/list-node
-                   (list token limit-spec
-                         (hooks/list-node (list* (hooks/token-node 'let) bindings
-                                                 body-nodes))))
-                  (with-meta (meta node)))]
-    (assoc orig :node node*)))

.clj-kondo/src/hooks/metabase/test/util.clj

@@ -1,60 +0,0 @@
-(ns hooks.metabase.test.util
-  (:require
-   [clj-kondo.hooks-api :as hooks]))
-
-(defn- namespaced-symbol-node? [node]
-  (when (hooks/token-node? node)
-    (let [symb (hooks/sexpr node)]
-      (and (symbol? symb)
-           (namespace symb)))))
-
-(defn with-temporary-setting-values
-  "Rewrite a form like
-
-    (with-temporary-setting-values [x 1, some.ns/y 2]
-      ...)
-
-  as one like
-
-    (let [_ 1, _ some.ns/y, _ 2]
-      ...)
-
-  for analysis purposes. We only need to 'capture' namespaced Setting bindings with a `_` so Kondo considers their
-  namespace to be 'used' and to catch undefined var usage."
-  [{:keys [node]}]
-  (let [{[_ bindings & body] :children} node
-        bindings (if (hooks/vector-node? bindings)
-                   (hooks/vector-node (into []
-                                            (mapcat (fn [[setting-name v]]
-                                                      (concat
-                                                       [(with-meta (hooks/token-node '_) (meta setting-name)) v]
-                                                        ;; if the setting name is namespace-qualified add a `_`
-                                                        ;; entry for it too.
-                                                       (when (namespaced-symbol-node? setting-name)
-                                                         [(with-meta (hooks/token-node '_) (meta setting-name)) setting-name]))))
-                                            (partition 2 (:children bindings))))
-                   bindings)]
-    {:node (-> (list*
-                (hooks/token-node 'let)
-                bindings
-                body)
-               (with-meta (meta body))
-               hooks/list-node
-               (with-meta (meta body)))}))
-
-(defn with-temp-file
-  [{{[_ {bindings :children} & body] :children} :node}]
-  (let [node* (hooks/list-node
-               (list*
-                (hooks/token-node 'let)
-                (hooks/vector-node
-                 (into []
-                       (comp (partition-all 2)
-                             (mapcat (fn [[binding filename]]
-                                       [binding (or (when (and filename
-                                                               (not (nil? (hooks/sexpr filename))))
-                                                      filename)
-                                                    (hooks/string-node "filename"))])))
-                       bindings))
-                body))]
-    {:node node*}))

.clj-kondo/src/hooks/metabase/test/util/generators/jvm.clj

@@ -1,15 +0,0 @@
-(ns hooks.metabase.test.util.generators.jvm
-  (:require
-   [clj-kondo.hooks-api :as hooks]))
-
-(defn with-random-cards
-  "(with-random-cards <metadata-provider> <integer-count-value> & body-forms)"
-  [{{:keys [children] :as node} :node :as orig}]
-  (let [[token num-cards & body-nodes] children
-        node* (-> (hooks/list-node
-                   (list token num-cards
-                         (hooks/list-node (list* (hooks/token-node 'let)
-                                                 (hooks/vector-node [(hooks/token-node '&cards) (hooks/list-node ())])
-                                                 body-nodes))))
-                  (with-meta (meta node)))]
-    (assoc orig :node node*)))

.clj-kondo/src/hooks/metabase/util.clj

@@ -1,31 +0,0 @@
-(ns hooks.metabase.util
-  (:require
-   [clj-kondo.hooks-api :as api]
-   [hooks.common]))
-
-(defn format-color [{:keys [node], :as x}]
-  (let [[_format-color _color format-string-node & args] (:children node)]
-    (when (api/string-node? format-string-node)
-      (let [expected-arg-count (hooks.common/format-string-specifier-count (api/sexpr format-string-node))
-            actual-arg-count   (count args)]
-        (when-not (= expected-arg-count actual-arg-count)
-          (api/reg-finding! (assoc (meta node)
-                                   :message (format "metabase.util/format-color format string expects %d arguments instead of %d."
-                                                    expected-arg-count
-                                                    actual-arg-count)
-                                   :type :format))))))
-  x)
-
-(defn case-enum
-  "Lint `(case-enum ...)` like `(condp = ...)`."
-  [x]
-  (letfn [(update-node [node]
-            (let [[_case-enum x & more] (:children node)]
-              (-> (api/list-node
-                   (list*
-                    (api/token-node 'clojure.core/condp)
-                    (api/token-node 'clojure.core/=)
-                    x
-                    more))
-                  (with-meta (meta node)))))]
-    (update x :node update-node)))

.clj-kondo/src/hooks/metabase/util/i18n.clj

@@ -1,74 +0,0 @@
-(ns hooks.metabase.util.i18n
-  (:require
-   [clj-kondo.hooks-api :as api]
-   [clojure.string :as str]
-   [hooks.common]))
-
-(defn- valid-apostrophes?
-  "Returns true if `s` contains only doubled quotes (''') or complete placeholder-escaping quotes ('{...}'), false otherwise."
-  [s]
-  (loop [chars (seq s)]
-    (if (empty? chars)
-      true
-      (let [c (first chars)]
-        (if (= c \')
-          (cond
-              ;; Doubled quotes: skip both
-            (and (next chars) (= (second chars) \'))
-            (recur (nthrest chars 2))
-
-              ;; Placeholder escape. We allow for intentional escaping, like either '{0}` or '{{`, but not 'arbitrary
-              ;; strings' So basically, just require the *next* character to be a `{`, find the next single-quote, and
-              ;; continue on from there.
-              ;;
-              ;; Technically a string like "foo bar's happy but i'm not" is totally fine, but we'll say it's invalid
-              ;; because... that inner string literal is probably not what we actually want. So since we've never done
-              ;; this intentionally as far as I can tell, let's just remove the possibility to avoid ambiguity.
-            (= (second chars) \{)
-            (let [at-closing (drop-while #(not= \' %) (next chars))]
-              (if (seq at-closing)
-                (recur (next at-closing))
-                false))
-              ;; Unpaired single quote: invalid
-            :else
-            false)
-          (recur (rest chars)))))))
-
-(defn format-str-arg-node->str
-  [node]
-  (cond
-    ;; it's just a string literal
-    (api/string-node? node) (api/sexpr node)
-    ;; it's `(str "some" "strings")`
-    (and (api/list-node? node)
-         (= 'str (api/sexpr (first (:children node))))
-         (every? api/string-node? (rest (:children node))))
-    (apply str (map api/sexpr (rest (:children node))))
-
-    ;; it's something else, no good
-    :else
-    (do
-      (api/reg-finding!
-       (assoc (meta node)
-              :message "Must be a string literal or a call to `str` with string literal arguments."
-              :type :metabase/validate-string-or-str-args-to-i18n))
-      nil)))
-
-(defn strict-apostrophes
-  "Checks the node to make sure it's not a i18n call that will result in dropped apostrophes."
-  [{:keys [node]}]
-  (let [format-str-arg (second (:children node))
-        ;; `format-str-arg` must be either a `"string"` or `(str "a call " "to" "str")` (to allow for splitting long
-        ;; strings into shorter lines)
-        format-str (format-str-arg-node->str format-str-arg)]
-    (when-not (valid-apostrophes? format-str)
-      (api/reg-finding!
-       (assoc (meta node)
-              :message "Format string contains invalid single quote usage. Use '' for literals or '{...}' for escaping."
-              :type :metabase/validate-escaped-single-quotes-in-i18n))))
-  {:node node})
-
-(def tru strict-apostrophes)
-(def trs strict-apostrophes)
-(def deferred-tru strict-apostrophes)
-(def deferred-trs strict-apostrophes)

.clj-kondo/src/hooks/metabase/util/log.clj

@@ -1,124 +0,0 @@
-(ns hooks.metabase.util.log
-  (:require
-   [clj-kondo.hooks-api :as api]
-   [clojure.string :as str]
-   [clojure.walk :as walk]
-   [hooks.common]))
-
-;;;; Checks for both log + logf
-
-(defn- disallow-i18n [node]
-  (walk/postwalk
-   (fn [x]
-     (when-let [qualified-symbol (hooks.common/node->qualified-symbol x)]
-       (when (and (= (namespace qualified-symbol) "metabase.util.i18n")
-                  (or (str/includes? (name qualified-symbol) "tru")
-                      (str/includes? (name qualified-symbol) "trs")))
-         (api/reg-finding! (assoc (meta x)
-                                  :message "do not i18n the logs!"
-                                  :type :metabase/validate-logging)))))
-   node))
-
-(defn- check-position-of-exception-arg
-  "Tell people to do (info e \"whatever\") instead of (info \"whatever\" e)."
-  [node]
-  (let [[f _first-arg & args] (:children node)]
-    (doseq [arg args]
-      (when (and (api/token-node? arg)
-                 (= (api/sexpr arg) 'e))
-        (api/reg-finding! (assoc (meta arg)
-                                 :message (format "pass exceptions as the first arg to %s" (api/sexpr f))
-                                 :type :metabase/validate-logging))))))
-
-(defn- common-checks [node]
-  (check-position-of-exception-arg node)
-  (disallow-i18n node))
-
-(defn- check-for-i18n-format-specifiers
-  "Make sure people aren't using things like {0} in their log messages."
-  [node string-node]
-  (when (re-find #"\{\d+\}" (api/sexpr string-node))
-    (api/reg-finding! (assoc (meta node)
-                             :message "this looks like an i18n format string. Don't use identifiers like {0} in logging."
-                             :type :metabase/validate-logging))))
-
-;;; log only
-
-(defn- check-not-format-string
-  "Make sure we're not using something like log/trace with a format string."
-  [{[f] :children, :as node} string-node]
-  (when (pos? (hooks.common/format-string-specifier-count (api/sexpr string-node)))
-    (api/reg-finding! (assoc (meta node)
-                             :message (format "%s used with a format string, use %s instead."
-                                              (api/sexpr f)
-                                              (str (api/sexpr f) "f"))
-                             :type :metabase/validate-logging))))
-
-(defn- format-node? [node]
-  (when (api/list-node? node)
-    (let [[x] (:children node)]
-      (and (api/token-node? x)
-           (or (= (hooks.common/node->qualified-symbol x) 'clojure.core/format)
-               (= (api/sexpr x) 'format))))))
-
-(defn- warn-against-log+format-instead-of-logf
-  "Tell people to use things like infof instead of info + format."
-  [{[f] :children, :as node} [x :as args]]
-  (when (and (= (count args) 1)
-             (api/list-node? x))
-    (when (format-node? x)
-      (api/reg-finding! (assoc (meta node)
-                               :message (format "Use %s instead of %s + format"
-                                                (str (api/sexpr f) "f")
-                                                (api/sexpr f))
-                               :type :metabase/validate-logging)))))
-
-(defn info
-  "Valid log, debug, etc."
-  [{:keys [node], :as x}]
-  (common-checks node)
-  (let [[_f & args]         (:children node)
-        [_e & [x :as args]] (if (and (api/token-node? (first args))
-                                     (or (api/string-node? (second args))
-                                         (format-node? (second args))))
-                              args
-                              (cons nil args))]
-    (when (api/string-node? x)
-      (check-for-i18n-format-specifiers node x)
-      (check-not-format-string node x))
-    (warn-against-log+format-instead-of-logf node args))
-  x)
-
-;;;; logf only
-
-(defn- check-format-string-arg-count
-  "Make sure the number of args passed to something like tracef match the number of format string specifiers."
-  [{[f] :children, :as node} format-string args]
-  (let [expected-arg-count (hooks.common/format-string-specifier-count (api/sexpr format-string))
-        actual-arg-count   (count args)]
-    (when (zero? expected-arg-count)
-      (api/reg-finding! (assoc (meta node)
-                               :message (format "Don't use %s with no format string arguments, use %s instead."
-                                                (api/sexpr f)
-                                                (str/replace (str (api/sexpr f)) #"f$" ""))
-                               :type :metabase/validate-logging)))
-    (when-not (= expected-arg-count actual-arg-count)
-      (api/reg-finding! (assoc (meta node)
-                               :message (format "log format string expects %d arguments instead of %d."
-                                                expected-arg-count
-                                                actual-arg-count)
-                               :type :metabase/validate-logging)))))
-
-(defn infof
-  "Valid logf, debugf, etc."
-  [{:keys [node], :as x}]
-  (common-checks node)
-  (let [[_f & args]               (:children node)
-        [_e format-string & args] (if (api/string-node? (first args))
-                                    (cons nil args)
-                                    args)]
-    ;; TODO -- maybe we can error if you did not pass a format string, e.g. (log/infof 1 2) is obviously incorrect.
-    (when (api/string-node? format-string)
-      (check-for-i18n-format-specifiers node format-string)
-      (check-format-string-arg-count node format-string args)))
-  x)

.clj-kondo/src/hooks/metabase/util/log/capture.clj

@@ -1,26 +0,0 @@
-(ns hooks.metabase.util.log.capture
-  (:require
-   [clj-kondo.hooks-api :as api]))
-
-(defn with-log-messages-for-level [x]
-  (letfn [(update-binding [[lhs-node _rhs-node]]
-            [lhs-node (api/list-node
-                       (list
-                        (api/token-node 'clojure.core/fn)
-                        (api/vector-node [])))])
-          (update-bindings [bindings-node]
-            (-> (api/vector-node
-                 (into []
-                       (comp (partition-all 2)
-                             (mapcat update-binding))
-                       (:children bindings-node)))
-                (with-meta (meta bindings-node))))
-          (update-node [node]
-            (let [[_with-log-messages-for-level bindings & body] (:children node)]
-              (-> (api/list-node
-                   (list*
-                    (api/token-node 'clojure.core/let)
-                    (update-bindings bindings)
-                    body))
-                  (with-meta (meta node)))))]
-    (update x :node update-node)))

.clj-kondo/src/hooks/metabase/util/malli/registry.clj

@@ -1,20 +0,0 @@
-(ns hooks.metabase.util.malli.registry
-  (:refer-clojure :exclude [def])
-  (:require
-   [clj-kondo.hooks-api :as api]))
-
-(defn def
-  "Register the schema keyword so LSP can jump to it."
-  [x]
-  (letfn [(update-def-keyword [k]
-            (api/reg-keyword! k 'metabase.util.malli.registry/def))
-          (update-children [[_def k :as children]]
-            (if (api/keyword-node? k)
-              (update (vec children) 1 update-def-keyword)
-              children))
-          (update-node [node]
-            (if (api/list-node? node)
-              (-> (api/list-node (update-children (:children node)))
-                  (with-meta (meta node)))
-              node))]
-    (update x :node update-node)))

.clj-kondo/src/hooks/metabase/util/timing.clj

@@ -1,16 +0,0 @@
-(ns hooks.metabase.util.timing
-  "Custom CLJ Kondo hooks for timing-related linting rules."
-  (:require [clj-kondo.hooks-api :as api]))
-
-(defn discourage-millis-duration
-  "Discourage slow and unreliable duration calculations using System/currentTimeMillis "
-  [{:keys [node]}]
-  (let [sexpr (api/sexpr node)]
-    (when (and (list? sexpr) (= (first sexpr) '-) (>= (count sexpr) 2))
-      (let [first-arg (second sexpr)]
-        (when (= first-arg (list 'System/currentTimeMillis))
-          (api/reg-finding!
-           (assoc (meta node)
-                  :message "Avoid System/currentTimeMillis for calculating durations. Use u/start-timer and u/since-ms for more reliability."
-                  :type :metabase/discourage-millis-duration
-                  :level :warning)))))))

.clj-kondo/src/hooks/metabase/xrays/api/automagic_dashboards_test.clj

@@ -1,29 +0,0 @@
-(ns hooks.metabase.xrays.api.automagic-dashboards-test
-  (:require
-   [clj-kondo.hooks-api :as hooks]))
-
-(comment
-
-  (def input (hooks/parse-string
-              "(with-indexed-model! [{:keys [model model-index model-index-value]}
-                                     {:query :some-query}]
-                  :foo :bar :body)"))
-
-  (println (hooks/sexpr input))
-
-  (let [f (load-file ".clj-kondo/hooks/metabase/xrays/api/automagic_dashboards_test.clj")]
-    (f {:node input})))
-
-(defn with-indexed-model!
-  [{node :node}]
-  (let [[_macro-call binding-and-query-info & body] (:children node)
-        [binding query-info] (:children binding-and-query-info)
-        node* (hooks/list-node
-               [(hooks/token-node 'do-with-indexed-model!)
-                query-info
-                (hooks/list-node
-                 (list* (hooks/token-node 'fn)
-                        (hooks/vector-node [binding])
-                        body))])]
-    #_(println (hooks/sexpr node*))
-    {:node node*}))

.clj-kondo/src/hooks/toucan/util/test.clj

@@ -1,20 +0,0 @@
-(ns hooks.toucan.util.test
-  (:require [clj-kondo.hooks-api :as api]))
-
-(defn- with-temp-inner [body bindings]
-  (let [binding-infos (for [[model {[binding value] :children}] (partition 2 bindings)]
-                        {:model   model
-                         :binding binding
-                         :value   (or value
-                                      (api/token-node 'nil))})]
-    (-> (api/vector-node
-         [(api/vector-node (map :model binding-infos))
-          (-> (api/list-node (list* (api/token-node `let)
-                                    (api/vector-node (mapcat (juxt :binding :value) binding-infos))
-                                    body))
-              (with-meta (meta body)))])
-        (with-meta (meta body)))))
-
-(defn with-temp* [{:keys [node]}]
-  (let [[_ bindings & body] (:children node)]
-    {:node (with-temp-inner body (:children bindings))}))

.clj-kondo/test.clj

@@ -0,0 +1,10 @@
+(ns test
+  (:require [metabase.query-processor.streaming :as streaming]
+            [toucan.models :as models]))
+
+(models/defmodel Card :foo)
+
+(map->Card {:foo 1})
+(map->CardInstance {:foo 1})
+
+(streaming/streaming-response [x 1 (inc x)])

.clj-kondo/test/hooks/clojure/core/defmulti_test.clj

@@ -1,63 +0,0 @@
-(ns hooks.clojure.core.defmulti-test
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clj-kondo.impl.utils]
-   [clojure.test :refer :all]
-   [hooks.clojure.core.defmulti]))
-
-(defn- lint-defmulti [form]
-  (binding [clj-kondo.impl.utils/*ctx* {:config     {:linters {:metabase/check-defmulti-arglists {:level :warning}}}
-                                        :ignores    (atom nil)
-                                        :findings   (atom [])
-                                        :namespaces (atom {})}]
-    (hooks.clojure.core.defmulti/lint-defmulti {:node (hooks/parse-string (pr-str form))})
-    @(:findings clj-kondo.impl.utils/*ctx*)))
-
-(deftest ^:parallel defmulti-missing-arglists-test
-  (testing "missing arglists"
-    (is (=? [{:message "All defmultis should have an attribute map with :arglists metadata. [:metabase/check-defmulti-arglists]"}]
-            (lint-defmulti '(defmulti expand-visualization
-                              (fn [card _ _]
-                                (-> card :visualization first))))))))
-
-(deftest ^:parallel defmulti-invalid-arglists-test
-  (testing "invalid arglists"
-    (are [form] (=? [{:message ":arglists should be a quoted list of vectors [:metabase/check-defmulti-arglists]"}]
-                    (lint-defmulti form))
-      '(defmulti expand-visualization
-         {:arglists '()}
-         (fn [card _ _]
-           (-> card :visualization first)))
-      '(defmulti expand-visualization
-         {:arglists ([a])}              ; unquoted
-         (fn [card _ _]
-           (-> card :visualization first)))
-      '(defmulti expand-visualization
-         {:arglists '[(a)]}
-         (fn [card _ _]
-           (-> card :visualization first)))
-      '(defmulti expand-visualization
-         {:arglists '((a))}
-         (fn [card _ _]
-           (-> card :visualization first))))))
-
-(deftest ^:parallel defmulti-arglists-with-underscore-args-test
-  (testing "arglists, but some symbols are _"
-    (are [form] (=? [{:message ":arglists should contain actual arg names, not underscore (unused) symbols [:metabase/check-defmulti-arglists]"}]
-                    (lint-defmulti form))
-      '(defmulti expand-visualization
-         {:arglists '([card _ _])}
-         (fn [card _ _]
-           (-> card :visualization first)))
-      '(defmulti expand-visualization
-         {:arglists '([card _bad _arg])}
-         (fn [card _ _]
-           (-> card :visualization first))))))
-
-(deftest ^:parallel defmulti-arglists-ok-test
-  (testing "good"
-    (is (= []
-           (lint-defmulti '(defmulti expand-visualization
-                             {:arglists '([card x y])}
-                             (fn [card _ _]
-                               (-> card :visualization first))))))))

.clj-kondo/test/hooks/clojure/core/ns_test.clj

@@ -1,76 +0,0 @@
-(ns hooks.clojure.core.ns-test
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clj-kondo.impl.utils]
-   [clojure.test :refer :all]
-   [hooks.clojure.core.ns]))
-
-(defn- lint-ns [form config]
-  (binding [clj-kondo.impl.utils/*ctx* {:config     config
-                                        :ignores    (atom nil)
-                                        :findings   (atom [])
-                                        :namespaces (atom {})}]
-    (hooks.clojure.core.ns/lint-ns {:node   (hooks/parse-string
-                                             (binding [*print-meta* true]
-                                               (pr-str form)))
-                                    :config config})
-    @(:findings clj-kondo.impl.utils/*ctx*)))
-
-(defn- lint-modules [form config]
-  (lint-ns form (assoc-in config [:linters :metabase/modules :level] :warning)))
-
-(deftest ^:parallel module-checker-allowed-modules-test
-  (are [task-namespace] (=? [{:message "Module task should not be used in the api module. [:metabase/modules api :uses]"
-                              :type :metabase/modules}]
-                            (lint-modules
-                             '(ns metabase.api.search
-                                (:require
-                                 [metabase.request.core :as request]
-                                 [task-namespace :as task]))
-                             '{:metabase/modules {api     {:uses #{request}}
-                                                  request {:api #{metabase.request.core}}}}))
-    metabase.task
-    metabase.task.core))
-
-(deftest ^:parallel module-checker-api-namespaces-test
-  (is (=? [{:message "Namespace metabase.search.config is not an allowed external API namespace for the search module. [:metabase/modules search :api]"
-            :type :metabase/modules}]
-          (lint-modules
-           '(ns metabase.api.search
-              (:require
-               [metabase.search.config :as search.config]
-               [metabase.search.core :as search]))
-           '{:metabase/modules {api    {:uses #{search}}
-                                search {:api  #{metabase.search.core}}}}))))
-
-(deftest ^:parallel module-checker-api-namespaces-ignore-test
-  (is (empty? (lint-modules
-               '(ns metabase.api.search
-                  (:require
-                   ^{:clj-kondo/ignore [:metabase/modules]}
-                   [metabase.search.config :as search.config]
-                   [metabase.search.core :as search]))
-               '{:metabase/modules {api    {:uses #{search}}
-                                    search {:api #{metabase.search.core}}}}))))
-
-(deftest ^:parallel module-checker-enterprise-test
-  (is (=? [{:message "Module search should not be used in the enterprise/search module. [:metabase/modules enterprise/search :uses]"
-            :type :metabase/modules}]
-          (lint-modules
-           '(ns metabase-enterprise.search.core
-              (:require
-               [metabase.search.core :as search]))
-           '{:metabase/modules {search {:api #{metabase.search.core}}}}))))
-
-(deftest ^:parallel require-newlines-test
-  (binding [clj-kondo.impl.utils/*ctx* {:config     {:linters {:metabase/require-shape-checker {:level :warnings}}}
-                                        :ignores    (atom nil)
-                                        :findings   (atom [])
-                                        :namespaces (atom {})}]
-    (hooks.clojure.core.ns/lint-ns {:node (hooks/parse-string "
-(ns metabase.task.cache
-  (:require [metabase.task.bunny]
-            [metabase.task.rabbit]))")})
-    (is (=? [{:message "Put your requires on a newline from the :require keyword [:metabase/require-shape-checker]",
-              :type    :metabase/require-shape-checker}]
-            @(:findings clj-kondo.impl.utils/*ctx*)))))

.clj-kondo/test/hooks/clojure/test_test.clj

@@ -1,55 +0,0 @@
-(ns hooks.clojure.test-test
-  (:require
-   [clj-kondo.hooks-api :as api]
-   [clj-kondo.impl.utils]
-   [clojure.edn :as edn]
-   [clojure.test :refer :all]
-   [hooks.clojure.test]))
-
-(set! *warn-on-reflection* true)
-
-(defn- deftest-warnings
-  [form]
-  (binding [clj-kondo.impl.utils/*ctx* {:config     {:linters {:metabase/disallow-hardcoded-driver-names-in-tests {:level :warning}}}
-                                        :ignores    (atom nil)
-                                        :findings   (atom [])
-                                        :namespaces (atom {})}]
-    (hooks.clojure.test/deftest {:node   (api/parse-string form)
-                                 :config {:linters
-                                          {:metabase/disallow-hardcoded-driver-names-in-tests
-                                           {:drivers
-                                            #{:athena}}}}})
-    (mapv :message @(:findings clj-kondo.impl.utils/*ctx*))))
-
-(deftest ^:parallel disallow-hardcoded-driver-names-in-tests-test
-  (is (= []
-         (deftest-warnings
-           "(mt/test-drivers (mt/normal-drivers)
-              (do-something))")))
-  (is (= ["Do not hardcode driver name :athena in driver tests! [:metabase/disallow-hardcoded-driver-names-in-tests]"]
-         (deftest-warnings
-           "(mt/test-drivers (mt/normal-drivers)
-              (when-not (= driver/*driver* :athena)
-                (do-something)))")))
-  (testing "make sure :clj-kondo/ignore is propagated correctly"
-    (is (= []
-           (deftest-warnings
-             "(mt/test-drivers (mt/normal-drivers)
-                #_{:clj-kondo/ignore [:metabase/disallow-hardcoded-driver-names-in-tests]}
-                (when-not (= driver/*driver* :athena)
-                  (do-something)))")))))
-
-(deftest ^:parallel check-driver-keywords-test
-  (testing "Make sure we keep hooks.clojure.test/driver-keywords up to date"
-    (let [driver-keywords (-> (slurp ".clj-kondo/config.edn")
-                              edn/read-string
-                              (get-in [:linters :metabase/disallow-hardcoded-driver-names-in-tests :drivers]))
-          driver-modules (->> (slurp "modules/drivers/deps.edn")
-                              edn/read-string
-                              :deps
-                              vals
-                              (keep (comp keyword :local/root))
-                              (into #{}))]
-      (doseq [driver driver-modules]
-        (is (contains? driver-keywords driver)
-            (format "hooks.clojure.test/driver-keywords should contain %s, please add it" driver))))))

.clj-kondo/test/hooks/common/modules_test.clj

@@ -1,10 +0,0 @@
-(ns hooks.common.modules-test
-  (:require
-   [clojure.test :refer :all]
-   [hooks.common.modules]))
-
-(deftest ^:parallel module-test
-  (are [symb expected] (= expected
-                          (hooks.common.modules/module symb))
-    'metabase.qp.middleware.wow        'qp
-    'metabase-enterprise.whatever.core 'enterprise/whatever))

.clj-kondo/test/hooks/common_test.clj

@@ -1,48 +0,0 @@
-(ns hooks.common-test
-  (:require
-   [clj-kondo.hooks-api :as api]
-   [clj-kondo.impl.utils]
-   [clojure.test :refer :all]
-   [hooks.common]))
-
-(deftest ^:parallel ignored-linters-test
-  (doseq [ignored [":metabase/modules"
-                   "[:metabase/modules]"
-                   "(:metabase/modules)"]
-          prefix ["#_"
-                  "^"]
-          :let [s (format "%s{:clj-kondo/ignore %s} [metabase.search.config :as search.config]"
-                          prefix
-                          ignored)]]
-    (testing (pr-str s)
-      (is (= #{:metabase/modules}
-             (hooks.common/ignored-linters (api/parse-string s)))))))
-
-(deftest ^:parallel merge-ignored-linters-test
-  (let [node-1  (api/parse-string "#_{:clj-kondo/ignore [:a]} [:a]")
-        node-2  (api/parse-string "#_{:clj-kondo/ignore [:b]} [:b]")
-        node-3  (api/parse-string "#_{:clj-kondo/ignore [:c]} [:c]")
-        node-1' (hooks.common/merge-ignored-linters node-1 node-2 node-3)]
-    (is (= #{:a :b :c}
-           (hooks.common/ignored-linters node-1')))
-    (testing "Updated metadata should match the shape Kondo expects"
-      (is (=? {:clj-kondo/ignore {:linters api/vector-node?}}
-              (meta node-1')))
-      (let [children (-> node-1' meta :clj-kondo/ignore :linters :children)]
-        (is (= (count children) 3))
-        (is (every? api/keyword-node? children))
-        (is (= [:a :b :c]
-               (sort (map api/sexpr children))))))))
-
-(deftest ^:parallel node->qualified-symbol-test
-  (binding [clj-kondo.impl.utils/*ctx* {:namespaces (atom nil)}]
-    (is (= 'metabase.util.i18n/tru
-           (hooks.common/node->qualified-symbol (api/parse-string "metabase.util.i18n/tru"))))))
-
-(deftest ^:parallel node->qualified-symbol-test-2
-  (binding [clj-kondo.impl.utils/*ctx* {:namespaces (atom {:clj {:clj '{hooks.common-test {:qualify-ns {i18n metabase.util.i18n}}}}})
-                                        :lang       :clj
-                                        :base-lang  :clj
-                                        :ns         {:name 'hooks.common-test}}]
-    (is (= 'metabase.util.i18n/tru
-           (hooks.common/node->qualified-symbol (api/parse-string "i18n/tru"))))))

.clj-kondo/test/hooks/metabase/api/macros_test.clj

@@ -1,110 +0,0 @@
-(ns hooks.metabase.api.macros-test
-  (:require
-   [clj-kondo.hooks-api :as api]
-   [clj-kondo.impl.utils]
-   [clojure.test :refer :all]
-   [hooks.metabase.api.macros]))
-
-(defn- is-valid-node [x]
-  (is (api/node? x))
-  (doseq [child (:children x)]
-    (is-valid-node child)))
-
-(deftest ^:parallel defendpoint-test
-  (letfn [(defendpoint [form]
-            (let [node (-> form pr-str api/parse-string)]
-              (is-valid-node node)
-              (-> {:node node}
-                  hooks.metabase.api.macros/defendpoint
-                  :node
-                  api/sexpr)))]
-    (are [form expected] (= expected
-                            (defendpoint form))
-      '(api.macros/defendpoint :post "/" :- [:map [:collection_id :int]]
-         "Create a new [[Timeline]]."
-         [_route-params
-          _query-params
-          {:keys [icon], collection-id :collection_id, :as body} :- [:map
-                                                                     [:name    ms/NonBlankString]
-                                                                     [:default {:optional true} [:maybe :boolean]]]]
-         (body icon)
-         (body collection-id))
-      '(do
-         api.macros/defendpoint
-         :post
-         "/"
-         (do
-           [:map [:collection_id :int]]
-           [:map
-            [:name    ms/NonBlankString]
-            [:default {:optional true} [:maybe :boolean]]])
-         (clojure.core/let [_route-params {}
-                            _query-params {}
-                            {:keys [icon], collection-id :collection_id, :as body} {}]
-           (body icon)
-           (body collection-id)))
-
-      '(api.macros/defendpoint :post "/"
-         [_route-params
-          _query-params
-          body
-          request
-          respond
-          raise]
-         (try
-           (respond :x)
-           (catch Throwable e
-             (raise e))))
-      '(do
-         api.macros/defendpoint
-         :post
-         "/"
-         (do)
-         (clojure.core/let [_route-params {}
-                            _query-params {}
-                            body          {}
-                            request       {}
-                            respond       (clojure.core/constantly nil)
-                            raise         (clojure.core/constantly nil)]
-           (try
-             (respond :x)
-             (catch Throwable e
-               (raise e))))))))
-
-(defn- defendpoint [form]
-  (hooks.metabase.api.macros/defendpoint
-    {:node (-> form pr-str api/parse-string)}))
-
-(defn- defendpoint-warnings
-  [form]
-  (binding [clj-kondo.impl.utils/*ctx* {:config     {:linters {:metabase/validate-defendpoint-route-uses-kebab-case       {:level :warning}
-                                                               :metabase/validate-defendpoint-query-params-use-kebab-case {:level :warning}}}
-                                        :ignores    (atom nil)
-                                        :findings   (atom [])
-                                        :namespaces (atom {})}]
-    (defendpoint form)
-    @(:findings clj-kondo.impl.utils/*ctx*)))
-
-(deftest ^:parallel validate-route-kebab-case-test
-  (is (=? [{:message "REST API routes and query params should use kebab-case, not snake_case"
-            :type    :metabase/validate-defendpoint-route-uses-kebab-case
-            :row     pos-int?
-            :col     pos-int?}]
-          (defendpoint-warnings
-            '(api.macros/defendpoint :get "/:id/syncable_schemas" ; snake_case route should trigger a warning
-               "Returns a list of all syncable schemas found for the database `id`."
-               [{:keys [id]}]
-               id)))))
-
-(deftest ^:parallel validate-query-params-kebab-case-test
-  (is (=? [{:message "REST API routes and query params should use kebab-case, not snake_case",
-            :type    :metabase/validate-defendpoint-query-params-use-kebab-case
-            :row     pos-int?
-            :col     pos-int?}]
-          (defendpoint-warnings
-            '(api.macros/defendpoint :get "/:id/syncable-schemas"
-               "Returns a list of all syncable schemas found for the database `id`."
-               [{:keys [id]}
-                {:keys [filter_by]} :- [:map
-                                        [:filter_by {:optional true} :string]]]
-               id)))))

.clj-kondo/test/hooks/metabase/model_persistence/test_util_test.clj

@@ -1,19 +0,0 @@
-(ns hooks.metabase.model-persistence.test-util-test
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clojure.test :refer :all]
-   [hooks.metabase.model-persistence.test-util]))
-
-(deftest ^:parallel with-persistence-enabled-test
-  (is (= '(clojure.core/let [persist-models! (clojure.core/fn [])]
-            (persist-models!)
-            :wow)
-         (as-> '(mt/with-persistence-enabled! [persist-models!]
-                  (persist-models!)
-                  :wow) <>
-           (pr-str <>)
-           (hooks/parse-string <>)
-           {:node <>}
-           (hooks.metabase.model-persistence.test-util/with-persistence-enabled! <>)
-           (:node <>)
-           (hooks/sexpr <>)))))

.clj-kondo/test/hooks/metabase/settings/models/setting_test.clj

@@ -1,34 +0,0 @@
-(ns hooks.metabase.settings.models.setting-test
-  (:require
-   [clj-kondo.hooks-api :as hooks]
-   [clojure.test :refer :all]
-   [hooks.metabase.settings.models.setting]))
-
-#_{:clj-kondo/ignore [:metabase/validate-deftest]}
-(deftest ^:parallel defsetting-test
-  (let [node (-> '(defsetting active-users-count
-                    (deferred-tru "Cached number of active users. Refreshed every 5 minutes.")
-                    :visibility :admin
-                    :type       :integer
-                    :default    0
-                    :getter     (fn []
-                                  (if-not ((requiring-resolve 'metabase.app-db.core/db-is-set-up?))
-                                    0
-                                    (cached-active-users-count))))
-                 pr-str
-                 hooks/parse-string)]
-    (is (= '(let [_ (deferred-tru "Cached number of active users. Refreshed every 5 minutes.")
-                  _ {:default 0
-                     :type :integer
-                     :getter (fn []
-                               (if-not ((requiring-resolve 'metabase.app-db.core/db-is-set-up?))
-                                 0
-                                 (cached-active-users-count)))
-                     :visibility :admin}]
-              :active-users-count
-              (defn active-users-count "Docstring." [])
-              (defn active-users-count! "Docstring." [_value-or-nil]))
-           (-> {:node node, :ns 'hooks.metabase.settings.models.setting-test}
-               hooks.metabase.settings.models.setting/defsetting
-               :node
-               hooks/sexpr)))))

.clj-kondo/test/hooks/metabase/util/i18n_test.clj

@@ -1,33 +0,0 @@
-(ns hooks.metabase.util.i18n-test
-  (:require [clj-kondo.hooks-api :as api]
-            [clj-kondo.impl.utils]
-            [clojure.string :as str]
-            [clojure.test :refer [deftest testing is are]]
-            [hooks.metabase.util.i18n]))
-
-(defn- warnings
-  [form]
-  (binding [clj-kondo.impl.utils/*ctx* {:config     {:linters {:metabase/validate-string-or-str-args-to-i18n {:level :warning}
-                                                               :metabase/validate-escaped-single-quotes-in-i18n {:level :warning}}}
-                                        :ignores    (atom nil)
-                                        :findings   (atom [])
-                                        :namespaces (atom {})}]
-    (hooks.metabase.util.i18n/strict-apostrophes {:node (api/parse-string (pr-str form))})
-    (mapv :message @(:findings clj-kondo.impl.utils/*ctx*))))
-
-(deftest ^:parallel strict-apostrophes-warns
-  (are [form] (= ["Format string contains invalid single quote usage. Use '' for literals or '{...}' for escaping."]
-                 (warnings (quote form)))
-    (metabase.util.i18n/tru "this isn't good bob")
-    (metabase.util.i18n/tru "'this is not good either'")
-    (metabase.util.i18n/tru "''this isn't''")
-    (metabase.util.i18n/tru "nope you can not escape 'like {{0}} so {{1}}'")
-    (metabase.util.i18n/tru (str "it works" "when strings" "are concatenated'"))))
-
-(deftest ^:parallel strict-apostrophes-doesnt-warn-on-good-ones
-  (are [form] (= []
-                 (warnings (quote form)))
-    (metabase.util.i18n/tru "this isn''t bad")
-    (metabase.util.i18n/tru (str "not sure why you'" "'d do this" "... but ok"))
-    (metabase.util.i18n/tru "you can '{{0}}' do things like that")
-    (metabase.util.i18n/tru "or '{{ this or }}}}}}}}}}' that")))

.clj-kondo/test/hooks/metabase/util/log/capture_test.clj

@@ -1,19 +0,0 @@
-(ns hooks.metabase.util.log.capture-test
-  (:require
-   [clj-kondo.hooks-api :as api]
-   [clojure.test :refer :all]
-   [hooks.metabase.util.log.capture]))
-
-(deftest ^:parallel with-log-messages-for-level-test
-  (is (= '(clojure.core/let [messages-1 (clojure.core/fn [])
-                             messages-2 (clojure.core/fn [])]
-            (concat (messages-1)
-                    (messages-2)))
-         (-> (hooks.metabase.util.log.capture/with-log-messages-for-level
-               {:node (-> '(with-log-messages-for-level [messages-1 [my.namespace :debug]
-                                                         messages-2 :info]
-                             (concat (messages-1) (messages-2)))
-                          pr-str
-                          api/parse-string)})
-             :node
-             api/sexpr))))

.clj-kondo/test/hooks/metabase/util/log_test.clj

@@ -1,77 +0,0 @@
-(ns hooks.metabase.util.log-test
-  (:require
-   [clj-kondo.hooks-api :as api]
-   [clj-kondo.impl.utils]
-   [clojure.string :as str]
-   [clojure.test :refer :all]
-   [hooks.metabase.util.log]))
-
-(defn- warnings
-  [form]
-  (let [f (if (str/ends-with? (name (first form)) "f")
-            hooks.metabase.util.log/infof
-            hooks.metabase.util.log/info)]
-    (binding [clj-kondo.impl.utils/*ctx* {:config     {:linters {:metabase/validate-logging {:level :warning}}}
-                                          :ignores    (atom nil)
-                                          :findings   (atom [])
-                                          :namespaces (atom {})}]
-      (f {:node (api/parse-string (pr-str form))})
-      (mapv :message @(:findings clj-kondo.impl.utils/*ctx*)))))
-
-(deftest ^:parallel warn-on-missing-format-args-test
-  (testing "should fail, missing a format arg"
-    (are [form] (= ["log format string expects 1 arguments instead of 0."]
-                   (warnings (quote form)))
-      (metabase.util.log/warnf "Migration lock was acquired after %d retries.")
-      (metabase.util.log/warnf e "Migration lock was acquired after %d retries."))))
-
-(deftest ^:parallel warn-on-too-many-format-args-test-1
-  (testing "should fail, too many format args"
-    (are [form] (= ["log format string expects 1 arguments instead of 2."]
-                   (warnings (quote form)))
-      (metabase.util.log/warnf "Migration lock was acquired after %d retries." 1 2)
-      (metabase.util.log/warnf e "Migration lock was acquired after %d retries." 1 2))))
-
-(deftest ^:parallel warn-on-too-many-format-args-test-2
-  (testing "should fail, too many format args"
-    (are [form] (= ["this looks like an i18n format string. Don't use identifiers like {0} in logging."
-                    "Don't use metabase.util.log/warnf with no format string arguments, use metabase.util.log/warn instead."
-                    "log format string expects 0 arguments instead of 1."]
-                   (warnings (quote form)))
-      (metabase.util.log/warnf "Migration lock was acquired after {0} retries." 1)
-      (metabase.util.log/warnf e "Migration lock was acquired after {0} retries." 1))))
-
-(deftest ^:parallel warn-on-format-args-without-logf-test
-  (testing "should fail, has format args but is warn rather than warnf"
-    (are [form] (= ["metabase.util.log/warn used with a format string, use metabase.util.log/warnf instead."]
-                   (warnings (quote form)))
-      (metabase.util.log/warn "Migration lock was acquired after %d retries." 1)
-      (metabase.util.log/warn e "Migration lock was acquired after %d retries." 1))))
-
-(deftest ^:parallel warn-on-format-without-logf-test
-  (testing "should fail, has format args but is warn rather than warnf"
-    (are [form] (= ["Use metabase.util.log/warnf instead of metabase.util.log/warn + format"]
-                   (warnings (quote form)))
-      (metabase.util.log/warn (format "Migration lock was acquired after %d retries." 1))
-      (metabase.util.log/warn e (format "Migration lock was acquired after %d retries." 1)))))
-
-(deftest ^:parallel warn-on-logf-with-no-format-args-test
-  (testing "should fail, has format args but is warn rather than warnf"
-    (are [form] (= ["Don't use metabase.util.log/warnf with no format string arguments, use metabase.util.log/warn instead."]
-                   (warnings (quote form)))
-      (metabase.util.log/warnf "Migration lock cleared.")
-      (metabase.util.log/warnf e "Migration lock cleared."))))
-
-(deftest ^:parallel warn-on-i18n-test-1
-  (testing "should fail -- should not use i18n/tru or i18n/trs"
-    (are [form] (= ["do not i18n the logs!"]
-                   (warnings (quote form)))
-      (metabase.util.log/warnf (metabase.util.i18n/tru "Migration lock was acquired after {0} retries." 1))
-      (metabase.util.log/warnf e (metabase.util.i18n/tru "Migration lock was acquired after {0} retries." 1)))))
-
-(deftest ^:parallel warn-on-i18n-test-2
-  (testing "should fail -- should not use i18n/tru or i18n/trs"
-    (are [form] (= ["do not i18n the logs!"]
-                   (warnings (quote form)))
-      (metabase.util.log/warn (metabase.util.i18n/trs "Migration lock was acquired after {0} retries." 1))
-      (metabase.util.log/warn e (metabase.util.i18n/trs "Migration lock was acquired after {0} retries." 1)))))

.cljfmt.edn

@@ -1,355 +0,0 @@
-;; Cljfmt config. See https://github.com/weavejester/cljfmt#formatting-options
-{:sort-ns-references?
- true
-
- :function-arguments-indentation
- :community
-
- :parallel?
- true
-
- :paths
- ["src"
-  "test"
-  "enterprise/backend"
-  "bin/build"
-  "bin/lint-migrations-file"
-  "bin/release-list"
-  "modules/drivers"
-  ".clj-kondo/src"
-  ".clj-kondo/test"
-  #_"dev"]
-
- ;; See https://github.com/weavejester/cljfmt/blob/master/cljfmt/resources/cljfmt/indents/clojure.clj for the default
- ;; definitions
- ;;
- ;;    [[:block 0]]
- ;;             ^ number of special args
- ;;
- ;; `:block` indentation means format with all arguments indented 2 spaces except for the 'special' arguments which
- ;; normally are supposed to go on the first line. e.g. `let` gets [[:block 1]] because it has one 'special' arg.
- ;;
- ;;    [[:inner 0]]
- ;;             ^ depth
- ;;    [[:inner 2 0]]
- ;;               ^ argument index to restrict this rule to
- ;;
- ;; `:inner` indentation is like `:defn` indentation. `[[:inner 0]]` (default for `defn`) means all arguments at depth
- ;; zero get indented 2 spaces if not on the first line regardless of number of elements on the first line.
- :extra-indents
- {;; clojure.core stuff
-  fn*                                                                                         [[:inner 0]]
-  let*                                                                                        [[:block 1]]
-  with-meta                                                                                   [[:default]]
-  ;; library stuff. Libraries that specify their own `:style/indent` specs are included in the section after this
-  ;; since it is generated automatically.
-  clojure.core.match/match                                                                    [[:block 1]]
-  clojure.test.check.properties/for-all                                                       [[:block 1]]
-  clojure.test.check.properties/for-all*                                                      [[:block 1]]
-  clojure.test.check/quick-check                                                              [[:block 1]]
-  clojure.tools.macro/macrolet                                                                [[:block 1] [:inner 2 0]]
-  clojurewerkz.quartzite.jobs/build                                                           [[:default]]
-  clojurewerkz.quartzite.jobs/with-description                                                [[:default]]
-  clojurewerkz.quartzite.jobs/with-identity                                                   [[:default]]
-  clojurewerkz.quartzite.schedule.cron/schedule                                               [[:default]]
-  clojurewerkz.quartzite.schedule.cron/with-misfire-handling-instruction-do-nothing           [[:default]]
-  clojurewerkz.quartzite.triggers/build                                                       [[:default]]
-  clojurewerkz.quartzite.triggers/with-description                                            [[:default]]
-  clojurewerkz.quartzite.triggers/with-identity                                               [[:default]]
-  clojurewerkz.quartzite.triggers/with-priority                                               [[:default]]
-  clojurewerkz.quartzite.triggers/with-schedule                                               [[:default]]
-  def-map-type                                                                                [[:block 2] [:inner 1]]
-  defprotocol+                                                                                [[:block 1] [:inner 1]]
-  defrecord+                                                                                  [[:block 2] [:inner 1]]
-  deftype+                                                                                    [[:block 2] [:inner 1]]
-  net.cgrand.macrovich/case                                                                   [[:block 0]]
-  potemkin.namespaces/import-vars                                                             [[:default]]
-  potemkin.types/def-map-type                                                                 [[:block 2] [:inner 1]]
-  potemkin.types/defprotocol+                                                                 [[:block 1] [:inner 1]]
-  potemkin.types/defrecord+                                                                   [[:block 2] [:inner 1]]
-  potemkin.types/deftype+                                                                     [[:block 2] [:inner 1]]
-  potemkin/def-map-type                                                                       [[:block 2] [:inner 1]]
-  potemkin/defprotocol+                                                                       [[:block 1] [:inner 1]]
-  potemkin/defrecord+                                                                         [[:block 2] [:inner 1]]
-  potemkin/deftype+                                                                           [[:block 2] [:inner 1]]
-  potemkin/import-vars                                                                        [[:default]]
-  taoensso.nippy/extend-freeze                                                                [[:inner 0]]
-  taoensso.nippy/extend-thaw                                                                  [[:inner 0]]
-  throttle.core/with-throttling                                                               [[:block 1]]
-  ;; the rest of the stuff in this list is generated automatically based on `:style/indent` specs
-  ;; by running [[dev.generate-cljfmt-config/specs]]... use that code to update this list
-  metabase-enterprise.cache.config-test/with-temp-persist-models                              [[:block 1]]
-  metabase-enterprise.impersonation.util-test/with-impersonations!                            [[:inner 0]]
-  metabase-enterprise.sandbox.test-util/with-gtaps!                                           [[:inner 0]]
-  metabase-enterprise.sandbox.test-util/with-gtaps-for-user!                                  [[:inner 0]]
-  metabase-enterprise.sandbox.test-util/with-user-attributes                                  [[:block 2]]
-  metabase-enterprise.serialization.test-util/with-dbs                                        [[:inner 0]]
-  metabase-enterprise.serialization.test-util/with-random-dump-dir                            [[:block 1]]
-  metabase-enterprise.serialization.test-util/with-world                                      [[:block 0]]
-  metabase-enterprise.sso.integrations.jwt-test/with-users-with-email-deleted                 [[:block 1]]
-  metabase-enterprise.test/with-gtaps!                                                        [[:inner 0]]
-  metabase-enterprise.test/with-gtaps-for-user!                                               [[:inner 0]]
-  metabase-enterprise.test/with-user-attributes                                               [[:block 2]]
-  metabase.actions.actions-test/with-actions-test-data-and-actions-permissively-enabled       [[:block 0]]
-  metabase.actions.test-util/with-actions                                                     [[:block 1]]
-  metabase.actions.test-util/with-actions-disabled                                            [[:block 0]]
-  metabase.actions.test-util/with-actions-enabled                                             [[:block 0]]
-  metabase.actions.test-util/with-actions-test-data                                           [[:inner 0]]
-  metabase.actions.test-util/with-actions-test-data-and-actions-enabled                       [[:block 0]]
-  metabase.actions.test-util/with-actions-test-data-tables                                    [[:block 1]]
-  metabase.actions.test-util/with-empty-db                                                    [[:inner 0]]
-  metabase.actions.test-util/with-temp-test-data                                              [[:inner 0]]
-  metabase.api.common/check                                                                   [[:default]]
-  metabase.api.common/define-routes                                                           [[:block 0]]
-  metabase.api.common/let-404                                                                 [[:block 1]]
-  metabase.app-db.core/with-application-db                                                    [[:inner 0]]
-  metabase.app-db.liquibase/with-liquibase                                                    [[:block 1]]
-  metabase.app-db.liquibase/with-scope-locked                                                 [[:block 1]]
-  metabase.app-db.schema-migrations-test.impl/test-migrations                                 [[:block 2]]
-  metabase.cmd.copy/step                                                                      [[:block 1]]
-  metabase.cmd.copy/with-connection-rollback-only                                             [[:block 1]]
-  metabase.cmd.copy/with-disabled-db-constraints                                              [[:block 2]]
-  metabase.collections-rest.api-test/with-collection-hierarchy                                [[:block 1]]
-  metabase.collections-rest.api-test/with-french-user-and-personal-collection                 [[:block 2]]
-  metabase.collections-rest.api-test/with-some-children-of-collection                         [[:block 1]]
-  metabase.collections.models.collection-test/with-collection-hierarchy                       [[:block 1]]
-  metabase.collections.models.collection-test/with-current-user-perms-for-collections         [[:block 1]]
-  metabase.collections.models.collection-test/with-personal-and-impersonal-collections        [[:block 1]]
-  metabase.config/build-type-case                                                             [[:block 0]]
-  metabase.dashboards.models.dashboard-test/with-dash-in-collection                           [[:inner 0]]
-  metabase.driver-api.core/match                                                              [[:inner 0]]
-  metabase.driver-api.core/match-one                                                          [[:inner 0]]
-  metabase.driver-api.core/replace                                                            [[:inner 0]]
-  metabase.driver-api.core/replace-in                                                         [[:inner 0]]
-  metabase.driver.bigquery-cloud-sdk.query-processor/with-temporal-type                       [[:default]]
-  metabase.driver.druid.client/DELETE                                                         [[:default]]
-  metabase.driver.druid.client/GET                                                            [[:default]]
-  metabase.driver.druid.client/POST                                                           [[:default]]
-  metabase.driver.druid.query-processor-test/druid-query                                      [[:block 0]]
-  metabase.driver.druid.query-processor-test/druid-query-returning-rows                       [[:block 0]]
-  metabase.driver.mongo.query-processor/mongo-let                                             [[:block 1]]
-  metabase.driver.sql-jdbc.actions/with-jdbc-transaction                                      [[:block 1]]
-  metabase.driver.sql-jdbc.connection/with-connection-spec-for-testing-connection             [[:block 1]]
-  metabase.driver.sql-jdbc.execute.diagnostic/capturing-diagnostic-info                       [[:block 1]]
-  metabase.driver.sql.query-processor/apply-top-level-clause                                  [[:default]]
-  metabase.driver/with-driver                                                                 [[:block 1]]
-  metabase.embedding-rest.api.embed-test/do-response-formats                                  [[:block 1]]
-  metabase.embedding-rest.api.embed-test/with-embedding-enabled-and-new-secret-key            [[:block 0]]
-  metabase.embedding-rest.api.embed-test/with-embedding-enabled-and-temp-card-referencing     [[:block 3]]
-  metabase.embedding-rest.api.embed-test/with-embedding-enabled-and-temp-dashcard-referencing [[:block 3]]
-  metabase.embedding-rest.api.embed-test/with-new-secret-key                                  [[:block 0]]
-  metabase.embedding-rest.api.embed-test/with-temp-card                                       [[:block 1]]
-  metabase.embedding-rest.api.embed-test/with-temp-dashcard                                   [[:block 1]]
-  metabase.embedding-rest.api.preview-embed-test/with-embedding-enabled-and-new-secret-key    [[:block 0]]
-  metabase.embedding-rest.api.preview-embed-test/with-new-secret-key                          [[:block 0]]
-  metabase.lib.binning/with-binning                                                           [[:default]]
-  metabase.lib.core/with-binning                                                              [[:default]]
-  metabase.lib.core/with-join-alias                                                           [[:default]]
-  metabase.lib.core/with-join-conditions                                                      [[:default]]
-  metabase.lib.join/with-join-alias                                                           [[:default]]
-  metabase.lib.join/with-join-conditions                                                      [[:default]]
-  metabase.lib.test-util.macros/$ids                                                          [[:inner 0]]
-  metabase.lib.test-util.macros/mbql-5-query                                                  [[:inner 0]]
-  metabase.lib.test-util.macros/mbql-query                                                    [[:inner 0]]
-  metabase.lib.util.match/match                                                               [[:inner 0]]
-  metabase.lib.util.match/match-one                                                           [[:inner 0]]
-  metabase.lib.util.match/match-lite                                                          [[:inner 0]]
-  metabase.lib.util.match/match-lite-recursive                                                [[:inner 0]]
-  metabase.lib.util.match/replace                                                             [[:inner 0]]
-  metabase.lib.util.match/replace-in                                                          [[:inner 0]]
-  metabase.models.interface/define-batched-hydration-method                                   [[:inner 0]]
-  metabase.models.interface/define-simple-hydration-method                                    [[:inner 0]]
-  metabase.parameters.chain-filter-test/with-clean-field-values-for-field                     [[:block 1]]
-  metabase.parameters.chain-filter-test/with-fk-field-to-field-remapping!                     [[:block 0]]
-  metabase.parameters.chain-filter-test/with-human-readable-values-remapping!                 [[:block 0]]
-  metabase.permissions.core/allow-changing-all-users-group-members                            [[:block 0]]
-  metabase.permissions.core/disable-perms-cache                                               [[:block 0]]
-  metabase.public-sharing-rest.api-test/with-sharing-enabled-and-temp-card-referencing        [[:block 3]]
-  metabase.public-sharing-rest.api-test/with-sharing-enabled-and-temp-dashcard-referencing    [[:block 3]]
-  metabase.public-sharing-rest.api-test/with-temp-public-card                                 [[:block 1]]
-  metabase.public-sharing-rest.api-test/with-temp-public-dashboard                            [[:block 1]]
-  metabase.public-sharing-rest.api-test/with-temp-public-dashboard-and-card                   [[:block 1]]
-  metabase.pulse.api.alert-test/with-alert-in-collection                                      [[:block 1]]
-  metabase.pulse.dashboard-subscription-test/with-link-card-fixture-for-dashboard             [[:block 2]]
-  metabase.pulse.models.pulse-test/with-dashboard-subscription-in-collection                  [[:block 1]]
-  metabase.pulse.models.pulse-test/with-pulse-in-collection                                   [[:inner 0]]
-  metabase.queries-rest.api.card-test/with-cards-in-readable-collection                       [[:block 1]]
-  metabase.queries-rest.api.card-test/with-cards-in-writeable-collection                      [[:block 1]]
-  metabase.queries-rest.api.card-test/with-ordered-items                                      [[:inner 0]]
-  metabase.queries-rest.api.card-test/with-temp-native-card                                   [[:block 1]]
-  metabase.queries-rest.api.card-test/with-temp-native-card-with-params                       [[:block 1]]
-  metabase.query-processor.debug/debug>                                                       [[:block 0]]
-  metabase.query-processor.error-type/deferror                                                [[:block 1]]
-  metabase.query-processor.middleware.cache-backend.interface/with-cached-results             [[:block 4]]
-  metabase.query-processor.middleware.process-userland-query-test/with-query-execution        [[:block 1]]
-  metabase.query-processor.pipeline-queries-test/pmbql-query                                  [[:block 1]]
-  metabase.query-processor.pipeline-queries-test/run-pmbql-query                              [[:block 1]]
-  metabase.query-processor.store/cached                                                       [[:block 1]]
-  metabase.query-processor.store/with-metadata-provider                                       [[:inner 0]]
-  metabase.query-processor.streaming/streaming-response                                       [[:block 1]]
-  metabase.query-processor.test-util/format-rows-by                                           [[:default]]
-  metabase.query-processor.timeseries-test.util/test-timeseries-drivers                       [[:block 0]]
-  metabase.query-processor.timeseries-test/run-mbql-query                                     [[:inner 0]]
-  metabase.request.core/as-admin                                                              [[:block 0]]
-  metabase.request.core/with-current-request                                                  [[:inner 0]]
-  metabase.request.core/with-current-user                                                     [[:inner 0]]
-  metabase.request.core/with-limit-and-offset                                                 [[:inner 0]]
-  metabase.request.session/as-admin                                                           [[:block 0]]
-  metabase.request.session/with-current-user                                                  [[:inner 0]]
-  metabase.sample-data.impl-test/with-temp-sample-database-db                                 [[:block 1]]
-  metabase.search.api-test/do-test-users                                                      [[:block 1]]
-  metabase.server.middleware.session/as-admin                                                 [[:block 0]]
-  metabase.server.middleware.session/with-current-user                                        [[:inner 0]]
-  metabase.server.streaming-response-test/with-streaming-response-thread-pool                 [[:block 0]]
-  metabase.server.streaming-response-test/with-test-driver-db!                                [[:block 0]]
-  metabase.server.streaming-response/streaming-response                                       [[:block 2]]
-  metabase.session.api/http-401-on-error                                                      [[:block 0]]
-  metabase.settings.core/define-multi-setting                                                 [[:inner 0]]
-  metabase.settings.core/defsetting                                                           [[:block 1]]
-  metabase.settings.models.setting.multi-setting/define-multi-setting                         [[:inner 0]]
-  metabase.settings.models.setting/defsetting                                                 [[:block 1]]
-  metabase.sync.fetch-metadata/log-if-error                                                   [[:block 1]]
-  metabase.sync.sync-metadata.fields-test/with-test-db                                        [[:block 0]]
-  metabase.sync.util/do-with-start-and-finish-debug-logging                                   [[:default]]
-  metabase.sync.util/sum-for                                                                  [[:block 1]]
-  metabase.sync.util/sync-operation                                                           [[:block 3]]
-  metabase.sync.util/with-db-logging-disabled                                                 [[:default]]
-  metabase.sync.util/with-duplicate-ops-prevented                                             [[:default]]
-  metabase.sync.util/with-emoji-progress-bar                                                  [[:block 1]]
-  metabase.sync.util/with-error-handling                                                      [[:block 1]]
-  metabase.sync.util/with-start-and-finish-logging                                            [[:default]]
-  metabase.sync.util/with-start-and-finish-logging*                                           [[:default]]
-  metabase.sync.util/with-sync-events                                                         [[:default]]
-  metabase.task-history.models.task-history/with-task-history                                 [[:block 1]]
-  metabase.task.core/rerun-on-error                                                           [[:block 1]]
-  metabase.task.impl/rerun-on-error                                                           [[:block 1]]
-  metabase.test.data.datasets/test-driver                                                     [[:inner 0]]
-  metabase.test.data.datasets/test-drivers                                                    [[:inner 0]]
-  metabase.test.data.one-off-dbs/with-blank-db                                                [[:block 0]]
-  metabase.test.data.one-off-dbs/with-blueberries-db                                          [[:block 0]]
-  metabase.test.data.users/with-test-user                                                     [[:inner 0]]
-  metabase.test.data/$ids                                                                     [[:inner 0]]
-  metabase.test.data/dataset                                                                  [[:inner 0]]
-  metabase.test.data/mbql-query                                                               [[:inner 0]]
-  metabase.test.data/query                                                                    [[:block 1]]
-  metabase.test.data/run-mbql-query                                                           [[:inner 0]]
-  metabase.test.data/with-empty-h2-app-db!                                                    [[:block 0]]
-  metabase.test.data/with-temp-copy-of-db                                                     [[:block 0]]
-  metabase.test.util.public-settings/with-additional-premium-features                         [[:block 1]]
-  metabase.test.util.public-settings/with-premium-features                                    [[:block 1]]
-  metabase.test.util.thread-local/test-helpers-set-global-values!                             [[:block 0]]
-  metabase.test.util/discard-setting-changes                                                  [[:block 1]]
-  metabase.test.util/let-url                                                                  [[:block 1]]
-  metabase.test.util/throw-if-called!                                                         [[:block 1]]
-  metabase.test.util/with-temp-scheduler                                                      [[:block 0]]
-  metabase.test.util/with-temp-vals-in-db                                                     [[:block 3]]
-  metabase.test.util/with-user-in-groups                                                      [[:inner 0]]
-  metabase.test/$ids                                                                          [[:inner 0]]
-  metabase.test/as-admin                                                                      [[:inner 0]]
-  metabase.test/dataset                                                                       [[:inner 0]]
-  metabase.test/discard-setting-changes                                                       [[:block 1]]
-  metabase.test/format-rows-by                                                                [[:default]]
-  metabase.test/let-url                                                                       [[:block 1]]
-  metabase.test/mbql-query                                                                    [[:inner 0]]
-  metabase.test/query                                                                         [[:block 1]]
-  metabase.test/run-mbql-query                                                                [[:inner 0]]
-  metabase.test/test-driver                                                                   [[:inner 0]]
-  metabase.test/test-drivers                                                                  [[:inner 0]]
-  metabase.test/test-helpers-set-global-values!                                               [[:block 0]]
-  metabase.test/throw-if-called!                                                              [[:block 1]]
-  metabase.test/with-actions                                                                  [[:block 1]]
-  metabase.test/with-actions-disabled                                                         [[:block 0]]
-  metabase.test/with-actions-enabled                                                          [[:block 0]]
-  metabase.test/with-actions-test-data                                                        [[:inner 0]]
-  metabase.test/with-actions-test-data-and-actions-enabled                                    [[:block 0]]
-  metabase.test/with-actions-test-data-tables                                                 [[:block 1]]
-  metabase.test/with-additional-premium-features                                              [[:block 1]]
-  metabase.test/with-current-user                                                             [[:inner 0]]
-  metabase.test/with-driver                                                                   [[:block 1]]
-  metabase.test/with-empty-db                                                                 [[:inner 0]]
-  metabase.test/with-empty-h2-app-db!                                                         [[:block 0]]
-  metabase.test/with-metadata-provider                                                        [[:inner 0]]
-  metabase.test/with-premium-features                                                         [[:block 1]]
-  metabase.test/with-temp                                                                     [[:inner 0]]
-  metabase.test/with-temp-copy-of-db                                                          [[:block 0]]
-  metabase.test/with-temp-scheduler                                                           [[:block 0]]
-  metabase.test/with-temp-test-data                                                           [[:inner 0]]
-  metabase.test/with-temp-vals-in-db                                                          [[:block 3]]
-  metabase.test/with-test-user                                                                [[:inner 0]]
-  metabase.test/with-user-in-groups                                                           [[:inner 0]]
-  metabase.upload.impl-test/with-upload-table!                                                [[:inner 0]]
-  metabase.upload.types/with-currency                                                         [[:default]]
-  metabase.upload.types/with-parens                                                           [[:default]]
-  metabase.util.async/cancelable-thread                                                       [[:block 0]]
-  metabase.util.date-2/with-time-zone-same-instant                                            [[:default]]
-  metabase.util.encryption-test/with-secret-key                                               [[:block 1]]
-  metabase.util.honey-sql-2/with-database-type-info                                           [[:default]]
-  metabase.util.i18n/deferred-trs                                                             [[:default]]
-  metabase.util.i18n/deferred-tru                                                             [[:default]]
-  metabase.util.i18n/trs                                                                      [[:default]]
-  metabase.util.i18n/trsn                                                                     [[:default]]
-  metabase.util.i18n/tru                                                                      [[:default]]
-  metabase.util.i18n/trun                                                                     [[:default]]
-  metabase.util.jvm/auto-retry                                                                [[:block 1]]
-  metabase.util.jvm/varargs                                                                   [[:block 1]]
-  metabase.util.jvm/with-us-locale                                                            [[:block 0]]
-  metabase.util.malli/disable-enforcement                                                     [[:block 0]]
-  metabase.util.malli/with                                                                    [[:default]]
-  metabase.util.malli/with-api-error-message                                                  [[:default]]
-  metabase.util.namespaces/import-fns                                                         [[:default]]
-  metabase.util.queue-test/await-test-while                                                   [[:block 1]]
-  metabase.util/auto-retry                                                                    [[:block 1]]
-  metabase.util/case-enum                                                                     [[:block 1]]
-  metabase.util/for-map                                                                       [[:block 1]]
-  metabase.util/ignore-exceptions                                                             [[:block 0]]
-  metabase.util/or-with                                                                       [[:block 1]]
-  metabase.util/profile                                                                       [[:block 1]]
-  metabase.util/prog1                                                                         [[:inner 0]]
-  metabase.util/varargs                                                                       [[:inner 0]]
-  metabase.util/with-us-locale                                                                [[:block 0]]
-  metabuild-common.core/exit-when-finished-nonzero-on-exception                               [[:block 0]]
-  metabuild-common.core/step                                                                  [[:block 1]]
-  metabuild-common.entrypoint/exit-when-finished-nonzero-on-exception                         [[:block 0]]
-  metabuild-common.steps/step                                                                 [[:block 1]]
-  methodical.core/defmethod                                                                   [[:inner 0]]
-  methodical.core/defmulti                                                                    [[:inner 0]]
-  methodical.core/with-dispatcher                                                             [[:default]]
-  methodical.core/with-method-table                                                           [[:default]]
-  methodical.core/with-prefers                                                                [[:default]]
-  methodical.interface/with-dispatcher                                                        [[:default]]
-  methodical.interface/with-method-table                                                      [[:default]]
-  methodical.interface/with-prefers                                                           [[:default]]
-  methodical.macros/defmethod                                                                 [[:inner 0]]
-  methodical.macros/defmulti                                                                  [[:inner 0]]
-  saml20-clj.sp.response/validate-confirmation-datas                                          [[:block 1]]
-  toucan2.connection/with-transaction                                                         [[:block 1]]
-  toucan2.core/build                                                                          [[:block 0]]
-  toucan2.core/compile                                                                        [[:block 0]]
-  toucan2.core/debug                                                                          [[:block 0]]
-  toucan2.core/define-after-insert                                                            [[:inner 0]]
-  toucan2.core/define-after-select                                                            [[:inner 0]]
-  toucan2.core/define-after-update                                                            [[:inner 0]]
-  toucan2.core/define-before-delete                                                           [[:inner 0]]
-  toucan2.core/define-before-insert                                                           [[:inner 0]]
-  toucan2.core/define-before-select                                                           [[:inner 0]]
-  toucan2.core/define-default-fields                                                          [[:inner 0]]
-  toucan2.core/define-named-query                                                             [[:block 1]]
-  toucan2.core/deftransforms                                                                  [[:block 1]]
-  toucan2.core/with-transaction                                                               [[:block 1]]
-  toucan2.tools.after-insert/define-after-insert                                              [[:inner 0]]
-  toucan2.tools.after-select/define-after-select                                              [[:inner 0]]
-  toucan2.tools.after-update/define-after-update                                              [[:inner 0]]
-  toucan2.tools.after/define-after-impl                                                       [[:default]]
-  toucan2.tools.before-delete/define-before-delete                                            [[:inner 0]]
-  toucan2.tools.before-insert/define-before-insert                                            [[:inner 0]]
-  toucan2.tools.before-select/define-before-select                                            [[:inner 0]]
-  toucan2.tools.compile/build                                                                 [[:block 0]]
-  toucan2.tools.compile/compile                                                               [[:block 0]]
-  toucan2.tools.compile/resolved                                                              [[:block 0]]
-  toucan2.tools.debug/debug                                                                   [[:block 0]]
-  toucan2.tools.default-fields/define-default-fields                                          [[:inner 0]]
-  toucan2.tools.named-query/define-named-query                                                [[:block 1]]
-  toucan2.tools.simple-out-transform/define-out-transform                                     [[:inner 0]]
-  toucan2.tools.transformed/deftransforms                                                     [[:block 1]]
-  toucan2.tools.with-temp/with-temp                                                           [[:inner 0]]
-  toucan2.util/try-with-error-context                                                         [[:inner 0]]}}

.codespellignore

@@ -1,23 +0,0 @@
-Brite
-afterAll
-ags
-altho
-cancelation
-cancelations
-datas
-edn
-eduction
-hasTables
-horizontalX
-horizontalY
-juxt
-methodd
-notIn
-pass-thru
-ser
-serieses
-sortings
-trs
-trsn
-tru
-trun

.codespellrc

@@ -1,3 +0,0 @@
-[codespell]
-skip = *.csv,*.edn,*.geojson,*.json,*.tsv,*.xml,docs/developers-guide/drivers/driver-tests.md,docs/developers-guide/e2e-tests.md,docs/questions/query-builder/expressions-list.md,docs/questions/visualizations/country-codes.md,e2e/test/scenarios/admin/i18n/content-translation/constants.ts,frontend/src/cljs,frontend/src/metabase/querying/expressions/tokenizer/lezer.js,frontend/src/metabase/static-viz/constants/char-sizes.ts,frontend/src/metabase/visualizations/lib/mapping_codes.ts,modules/drivers/mongo/src/metabase/driver/mongo/operators.clj
-ignore-words = .codespellignore

.devcontainer/Dockerfile

@@ -1,10 +1,11 @@
-FROM mcr.microsoft.com/vscode/devcontainers/java:21
+FROM mcr.microsoft.com/vscode/devcontainers/java:11
 
-# Set up nodesource, install node, yarn, fontconfig for static viz, rlwrap for dev ergonomics
+RUN apt-key adv --refresh-keys --keyserver keyserver.ubuntu.com\
+  && apt-get update && export DEBIAN_FRONTEND=noninteractive \
+  && apt-get -y install --no-install-recommends yarn
 
-RUN ( curl -fsSL https://deb.nodesource.com/setup_22.x | bash ) \
-  && export DEBIAN_FRONTEND=noninteractive \
-  && apt-get update && apt-get -y install --no-install-recommends nodejs yarn rlwrap fontconfig
+RUN curl -fsSL https://deb.nodesource.com/setup_14.x | bash
+RUN apt-get update && apt-get -y install --no-install-recommends nodejs
 
-# install Clojure
-RUN curl https://download.clojure.org/install/linux-install-1.12.0.1488.sh | bash
+RUN curl -O https://download.clojure.org/install/linux-install-1.10.3.933.sh \
+  && bash ./linux-install-1.10.3.933.sh