From 1a19a73d7d1b6ed86e6ed7dacdd25b80de587223 Mon Sep 17 00:00:00 2001 From: Norio Suzuki Date: Thu, 3 Oct 2024 08:25:25 +0900 Subject: [PATCH] lsp-graphql: add new defcustom `lsp-graphql-target-file-extensions` --- clients/lsp-graphql.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/clients/lsp-graphql.el b/clients/lsp-graphql.el index 2a93dc3844..114a78d986 100644 --- a/clients/lsp-graphql.el +++ b/clients/lsp-graphql.el @@ -43,13 +43,18 @@ :risky t :group 'lsp-graphql) +(defcustom lsp-graphql-target-file-extensions '("ts" "js" "jsx" "tsx" "vue" "graphql" "graphqls" "gql") + "List of target file extensions for the GraphQL language server." + :type '(repeat string) + :group 'lsp-graphql) + (defun lsp-graphql-activate-p (filename &optional _) "Check if the GraphQL language server should be enabled based on FILENAME." - (or (string-match-p (rx (one-or-more anything) "." - (or "ts" "js" "jsx" "tsx" "vue" "graphql" "gql")eos) - filename) - (and (derived-mode-p 'js-mode 'js2-mode 'typescript-mode 'typescript-ts-mode) - (not (derived-mode-p 'json-mode))))) + (let ((target-extensions (mapconcat 'identity lsp-graphql-target-file-extensions "\\|"))) + (or (string-match-p (format "\\.%s\\'" target-extensions) filename) + (and (derived-mode-p 'js-mode 'js2-mode 'typescript-mode 'typescript-ts-mode) + (not (derived-mode-p 'json-mode)))))) + (lsp-register-client (make-lsp-client :new-connection (lsp-stdio-connection (lambda()