Decouple ::pre-formatted? flag from ::form-col in partial formatting pipeline

Add dedicated ::pre-formatted? flag so ::form-col is purely column position
and format-source uses an explicit signal to skip whole-file formatting.
Soften CONFIG.md language for :partial mode.

Author: Bruce Hauman

CONFIG.md

@@ -23,7 +23,7 @@ Controls cljfmt formatting behavior in editing pipelines (default: `true`). Dete
 
 **When to use each setting:**
 - `true` - Best for maintaining consistent code style across your project. Note: this reformats the entire file after each edit, which may introduce formatting changes to code you did not intend to modify.
-- `:partial` - Recommended for most workflows. Formats only the form being edited (fixing indentation, spacing, etc.) without touching the rest of the file. Prevents collateral formatting changes to unrelated code.
+- `:partial` - Useful when you want the edited form to be formatted but don't want to touch the rest of the file. Prevents collateral formatting changes to unrelated code.
 - `false` - Useful when working with files that have specific formatting requirements or when you want to preserve manual formatting completely
 
 ### `:write-file-guard`

src/clojure_mcp/tools/form_edit/pipeline.clj

@@ -43,6 +43,7 @@
 (s/def ::dry-run (s/nilable #{"diff" "new-source"}))
 
 (s/def ::form-col pos-int?)
+(s/def ::pre-formatted? boolean?)
 
 (s/def ::context
   (s/keys :req [::file-path]
@@ -51,7 +52,7 @@
                 ::zloc ::offsets ::lint-result ::docstring
                 ::comment-substring ::new-content ::expand-symbols
                 ::diff ::type ::output-source ::nrepl-client-atom ::dry-run
-                ::form-col]))
+                ::form-col ::pre-formatted?]))
 
 ;; Pipeline helper functions
 
@@ -265,7 +266,9 @@
             target-col (::form-col ctx)
             formatting-options (core/project-formatting-options nrepl-client-map)
             formatted (core/format-form-in-isolation new-source target-col formatting-options)]
-        (assoc ctx ::new-source-code formatted))
+        (-> ctx
+            (assoc ::new-source-code formatted)
+            (assoc ::pre-formatted? true)))
       ;; Not :partial mode, or position unavailable — pass through
       ctx)))
 
@@ -310,8 +313,8 @@
    If formatting fails but the source is syntactically valid,
    returns the original source unchanged.
 
-   When cljfmt is :partial AND the form was already formatted in isolation
-   (indicated by ::form-col in context), skips whole-file formatting.
+   When ::pre-formatted? is true, skips whole-file formatting (the form
+   was already formatted in isolation by format-new-source-partial).
    Otherwise falls back to full-file formatting (e.g., for sexp-edit-pipeline
    which doesn't do pre-insertion partial formatting).
 
@@ -321,9 +324,8 @@
   (let [nrepl-client-map (some-> ctx ::nrepl-client-atom deref)
         cljfmt-setting (config/get-cljfmt nrepl-client-map)]
     (cond
-      ;; :partial mode with pre-formatted form - skip whole-file formatting
-      ;; ::form-col presence means format-new-source-partial already ran
-      (and (= :partial cljfmt-setting) (::form-col ctx))
+      ;; Form was already formatted in isolation - skip whole-file formatting
+      (::pre-formatted? ctx)
       ctx
 
       ;; true (or :partial without pre-formatting) - full-file formatting

test/clojure_mcp/tools/form_edit/pipeline_test.clj

@@ -399,18 +399,18 @@
         (is (nil? (::sut/form-col result)))))))
 
 (deftest format-source-partial-skips-whole-file-test
-  (testing "format-source skips whole-file formatting when cljfmt is :partial"
+  (testing "format-source skips whole-file formatting when pre-formatted"
     ;; Set cljfmt to :partial
     (config/set-config! *nrepl-client-atom* :cljfmt :partial)
     (try
       ;; Source with intentional bad formatting in the ns form (should be preserved)
-      ;; ::form-col signals that format-new-source-partial already ran
+      ;; ::pre-formatted? signals that format-new-source-partial already ran
       (let [source "(ns   test.core)\n\n(defn example-fn [x y]\n  (+ x y))"
             ctx {::sut/nrepl-client-atom *nrepl-client-atom*
                  ::sut/output-source source
-                 ::sut/form-col 1}
+                 ::sut/pre-formatted? true}
             result (sut/format-source ctx)]
-        ;; With :partial + ::form-col, format-source should return the source unchanged
+        ;; With ::pre-formatted?, format-source should return the source unchanged
         (is (= source (::sut/output-source result)))
         ;; The extra spaces in ns should be preserved
         (is (str/includes? (::sut/output-source result) "(ns   test.core)")))