fix(ts-qurry): Change to init options (emacs-lsp#4667)

* fix(ts-qurry): Change to init options * use init options
kassick · Dec 31, 2024 · 5d96434 · 5d96434
1 parent c7a3fcb
commit 5d96434
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/clients/lsp-ts-query.el b/clients/lsp-ts-query.el
@@ -91,10 +91,6 @@ and not the global storage."
   (f-join lsp-ts-query-server-store-path
           (pcase system-type ('windows-nt "ts_query_ls.exe") (_ "ts_query_ls"))))
 
-(lsp-register-custom-settings
- '(("ts_query_ls.settings.parser_install_directories" lsp-ts-query-parser-install-directories)
-   ("ts_query_ls.settings.language_retrieval_patterns" lsp-ts-query-language-retrieval-patterns)))
-
 (lsp-dependency
  'ts-query-ls
  '(:system "ts_query_ls")
@@ -112,6 +108,11 @@ or FILE-NAME."
                (equal "scm" ext))
       t)))
 
+(defun lsp-ts-query--make-init-options ()
+  "Init options for ts-query server."
+  `( :parser_install_directories ,lsp-ts-query-parser-install-directories
+     :language_retrieval_patterns ,lsp-ts-query-language-retrieval-patterns))
+
 (lsp-register-client
  (make-lsp-client
   :new-connection (lsp-stdio-connection
@@ -123,6 +124,7 @@ or FILE-NAME."
   :activation-fn #'lsp-ts-query--check-enabled
   :priority -1
   :add-on? t
+  :initialization-options #'lsp-ts-query--make-init-options
   :server-id 'ts-query-ls
   :download-server-fn
   (lambda (_client callback error-callback _update?)