Fix --settings option

Author: ericdallo

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Fix --settings flag
+
 ## 1.4.21
 
 ## 1.4.20

src/leiningen/clojure_lsp.clj

@@ -20,11 +20,12 @@
 (defn args
   [command-and-options project-settings]
   (cond
-    (and (not-empty project-settings) (has-settings? command-and-options))
+    (and (not-empty project-settings)
+         (has-settings? command-and-options))
     (args-with-merged-settings command-and-options project-settings)
 
     (not-empty project-settings)
-    (concat command-and-options ["--settings" (str project-settings)])
+    (concat command-and-options ["--settings" (str (:settings project-settings))])
 
     :else
     command-and-options))

test/leiningen/clojure_lsp_test.clj

@@ -1,6 +1,7 @@
 (ns leiningen.clojure-lsp-test
-  (:require [clojure.test :refer :all]
-            [leiningen.clojure-lsp :as clojure-lsp]))
+  (:require
+   [clojure.test :refer :all]
+   [leiningen.clojure-lsp :as clojure-lsp]))
 
 (deftest args-test
   (testing "Should return the arguments when project settings is an empty map"
@@ -13,7 +14,7 @@
 
   (testing "Should return the arguments when there is project settings"
     (is (= ["diagnostics" "--settings" "{:foo 1}"]
-           (clojure-lsp/args ["diagnostics"] {:foo 1}))))
+           (clojure-lsp/args ["diagnostics"] {:settings {:foo 1}}))))
 
   (testing "Should return the arguments when there is settings options and also project settings"
     (is (= ["diagnostics" "--settings" "{:foo 1, :bar \"Test\"}"]