[Fix #3209] Fix cljfmt options serialization for format-code (#3866)

Author: kovan

CHANGELOG.md

@@ -6,6 +6,10 @@
 
 - [#3865](https://github.com/clojure-emacs/cider/pull/3865): Add default session feature to bypass sesman's project-based dispatch (`cider-set-default-session`, `cider-clear-default-session`).
 
+### Bugs fixed
+
+- [#3209](https://github.com/clojure-emacs/cider/issues/3209): Fix `cider-format` dropping non-map cljfmt options (e.g. `remove-consecutive-blank-lines?`).
+
 ## 1.21.0 (2026-02-07)
 
 ### Changes

lisp/cider-client.el

@@ -265,17 +265,16 @@ you need to encode it as the following plist:
 If non-nil, FORMAT-OPTIONS specifies the options cljfmt will use to format
 the code.  See `cider-format-code-options' for details."
   (when format-options
-    (let* ((indents (cadr (assoc "indents" format-options)))
-           (alias-map (cadr (assoc "alias-map" format-options))))
-      (apply #'nrepl-dict
-             `(,@(when indents
-                   `("indents" ,(thread-last indents
-                                             (seq-mapcat #'identity)
-                                             (apply #'nrepl-dict))))
-               ,@(when alias-map
-                   `("alias-map" ,(thread-last alias-map
-                                               (seq-mapcat #'identity)
-                                               (apply #'nrepl-dict)))))))))
+    (apply #'nrepl-dict
+           (thread-last format-options
+                        (seq-mapcat
+                         (pcase-lambda (`(,key ,value))
+                           (list key
+                                 (if (member key '("indents" "alias-map"))
+                                     (thread-last value
+                                                  (seq-mapcat #'identity)
+                                                  (apply #'nrepl-dict))
+                                   value))))))))
 
 (defcustom cider-print-fn 'pprint
   "Sets the function to use for printing.

test/cider-client-tests.el

@@ -143,6 +143,23 @@
       (let ((ns "  (ns bar)\n"))
         (expect (cider-ns-form-p ns) :to-equal 0))))
 
+(describe "cider--nrepl-format-code-request-options"
+  (it "preserves non-map formatter options"
+    (let ((opts (cider--nrepl-format-code-request-options
+                 '(("remove-consecutive-blank-lines?" t)
+                   ("remove-multiple-non-indenting-spaces?" t)))))
+      (expect (nrepl-dict-get opts "remove-consecutive-blank-lines?") :to-be-truthy)
+      (expect (nrepl-dict-get opts "remove-multiple-non-indenting-spaces?") :to-be-truthy)))
+
+  (it "encodes nested map formatter options as nREPL dicts"
+    (let* ((opts (cider--nrepl-format-code-request-options
+                  '(("indents" (("org.me/foo" (("inner" 0)))))
+                    ("alias-map" (("me" "org.me"))))))
+           (indents (nrepl-dict-get opts "indents"))
+           (alias-map (nrepl-dict-get opts "alias-map")))
+      (expect (nrepl-dict-get indents "org.me/foo") :to-equal '(("inner" 0)))
+      (expect (nrepl-dict-get alias-map "me") :to-equal "org.me"))))
+
 (describe "cider-expected-ns"
   (before-each
     (spy-on 'cider-connected-p :and-return-value t)