Add .cljd (ClojureDart) support and consolidate Clojure file detection

- Add .cljd extension to valid_paths/clojure-file? (canonical check)
- Remove duplicate clojure-file? from paren_repair, delegate to valid-paths
- Add .cljd and .lpy to project namespace filter and extension regex
- Update error messages in form_edit tools to include .cljd
- Add test coverage for .cljd and .lpy in valid_paths_test and file_write_test
- Document test runner -n and -v flags in CLAUDE.md

Author: Bruce Hauman

CLAUDE.md

@@ -3,6 +3,8 @@
 ## Build Commands
 - Run REPL with MCP server: `clojure -X:mcp` (starts on port 7888)
 - Run all tests: `clojure -M:test`
+- Run specific namespace tests: `clojure -M:test -n clojure-mcp.utils.valid-paths-test`
+- Run specific test var: `clojure -M:test -v clojure-mcp.utils.valid-paths-test/clojure-file?-test`
 - Run linter: `clj-kondo --lint src` or `clj-kondo --lint src test` for both
 
 ## Code Style Guidelines

src/clojure_mcp/tools/form_edit/combined_edit_tool.clj

@@ -16,7 +16,7 @@
       (throw (ex-info "Missing required parameter: file_path"
                       {:inputs inputs})))
     (when-not (valid-paths/clojure-file? file_path)
-      (throw (ex-info "File must have a Clojure extension (.clj, .cljs, .cljc, .bb, .edn)"
+      (throw (ex-info "File must have a Clojure extension (.clj, .cljs, .cljc, .cljd, .bb, .edn)"
                       {:file_path file_path})))
     ;; Use the utils/validate-path-with-client function to ensure path is valid
     (valid-paths/validate-path-with-client file_path nrepl-client)))

src/clojure_mcp/tools/form_edit/tool.clj

@@ -21,7 +21,7 @@
       (throw (ex-info "Missing required parameter: file_path"
                       {:inputs inputs})))
     (when-not (valid-paths/clojure-file? file_path)
-      (throw (ex-info "File must have a Clojure extension (.clj, .cljs, .cljc, .bb, .edn)"
+      (throw (ex-info "File must have a Clojure extension (.clj, .cljs, .cljc, .cljd, .bb, .edn)"
                       {:file_path file_path})))
     ;; Use the utils/validate-path-with-client function to ensure path is valid
     (valid-paths/validate-path-with-client file_path nrepl-client)))

src/clojure_mcp/tools/paren_repair/core.clj

@@ -8,17 +8,8 @@
    [clojure-mcp.sexp.paren-utils :as paren-utils]
    [clojure-mcp.tools.form-edit.core :as form-edit-core]
    [clojure-mcp.utils.diff :as diff]
-   [clojure-mcp.utils.file :as file-utils]))
-
-(def clojure-extensions
-  "Set of file extensions considered Clojure files."
-  #{".clj" ".cljs" ".cljc" ".edn"})
-
-(defn clojure-file?
-  "Returns true if the file path has a Clojure file extension."
-  [file-path]
-  (let [path-str (str file-path)]
-    (some #(string/ends-with? path-str %) clojure-extensions)))
+   [clojure-mcp.utils.file :as file-utils]
+   [clojure-mcp.utils.valid-paths :as valid-paths]))
 
 (defn repair-file!
   "Repairs delimiter errors in a Clojure file and optionally formats it.
@@ -47,7 +38,7 @@
        :diff nil}
 
       ;; Not a Clojure file
-      (not (clojure-file? file-path))
+      (not (valid-paths/clojure-file? file-path))
       {:success false
        :file-path file-path
        :message "Not a Clojure file (skipping)"

src/clojure_mcp/tools/project/core.clj

@@ -272,7 +272,9 @@
           processed-namespaces (->> source-files
                                     (filter #(or (str/ends-with? % ".clj")
                                                  (str/ends-with? % ".cljs")
-                                                 (str/ends-with? % ".cljc")))
+                                                 (str/ends-with? % ".cljc")
+                                                 (str/ends-with? % ".cljd")
+                                                 (str/ends-with? % ".lpy")))
                                     (map (fn [file-path]
                                              ;; Remove source path prefix from file path
                                            (let [relative-path (reduce (fn [path src-path]
@@ -284,7 +286,7 @@
                                              (-> relative-path
                                                  (str/replace "/" ".")
                                                  (str/replace "_" "-")
-                                                 (str/replace #"\.(clj|cljs|cljc)$" "")))))
+                                                 (str/replace #"\.(clj|cljs|cljc|cljd|lpy)$" "")))))
                                       ;; Sort namespaces alphabetically
                                     sort
                                     (into []))]

src/clojure_mcp/utils/valid_paths.clj

@@ -99,17 +99,19 @@
      - .clj (Clojure)
      - .cljs (ClojureScript)
      - .cljc (Clojure/ClojureScript shared)
+     - .cljd (ClojureDart)
      - .bb (Babashka)
      - .edn (Extensible Data Notation)
      - .lpy (Librepl)
-     
+
      Also detects files starting with a Babashka shebang (`bb`)."
   [file-path]
   (when file-path
     (let [lower-path (str/lower-case file-path)]
       (or (str/ends-with? lower-path ".clj")
           (str/ends-with? lower-path ".cljs")
           (str/ends-with? lower-path ".cljc")
+          (str/ends-with? lower-path ".cljd")
           (str/ends-with? lower-path ".bb")
           (str/ends-with? lower-path ".lpy")
           (str/ends-with? lower-path ".edn")

test/clojure_mcp/tools/file_write/core_test.clj

@@ -48,6 +48,7 @@
     (is (file-write-core/is-clojure-file? "test.clj"))
     (is (file-write-core/is-clojure-file? "test.cljs"))
     (is (file-write-core/is-clojure-file? "test.cljc"))
+    (is (file-write-core/is-clojure-file? "test.cljd"))
     (is (file-write-core/is-clojure-file? "test.edn"))
     (is (file-write-core/is-clojure-file? "test.bb"))
     (is (file-write-core/is-clojure-file? "/path/to/file.clj"))

test/clojure_mcp/utils/valid_paths_test.clj

@@ -103,6 +103,12 @@
            (valid-paths/preprocess-path "..")))))
 
 (deftest clojure-file?-test
+  (testing "Detect ClojureDart extension"
+    (is (valid-paths/clojure-file? "test.cljd"))
+    (is (valid-paths/clojure-file? "/path/to/file.cljd")))
+  (testing "Detect Basilisp extension"
+    (is (valid-paths/clojure-file? "test.lpy"))
+    (is (valid-paths/clojure-file? "/path/to/file.lpy")))
   (testing "Detect Babashka shebang"
     (let [tmp (io/file (System/getProperty "java.io.tmpdir") "bb-script.sh")]
       (spit tmp "#!/usr/bin/env bb\n(println :hi)")