Merge pull request #186 from asadoll/master

Updating configuration to support HLS 2.9.0.1 schema

lsp-haskell.el

@@ -1,4 +1,4 @@
-;;; lsp-haskell.el --- Haskell support for lsp-mode
+;;; lsp-haskell.el --- Haskell support for lsp-mode -*- lexical-binding: t; -*-
 
 ;; Version: 1.1
 ;; Package-Requires: ((emacs "27.1") (lsp-mode "3.0") (haskell-mode "16.1"))
@@ -433,11 +433,210 @@ but will take exponentially more time."
   :package-version '(lsp-mode . "8.0.1")
   :lsp-path "haskell.plugin.rename.globalOn")
 
-(lsp-defcustom lsp-haskell-plugin-semantic-tokens-global-on t
-  "Enables semantic-tokens plugin"
-  :type 'boolean
-  :group 'lsp-haskell-plugins
-  :package-version '(lsp-mode . "8.0.1")
+;; Updated for haskell-language-server 2.9.0.1
+
+(lsp-defcustom lsp-haskell-plugin-cabal-fmt-config-path "cabal-fmt"
+  "Set path to 'cabal-fmt' executable"
+  :type 'string
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.cabal-fmt.config.path")
+
+(lsp-defcustom lsp-haskell-plugin-cabal-gild-config-path "cabal-gild"
+  "Set path to 'cabal-gild' executable"
+  :type 'string
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.cabal-gild.config.path")
+
+(lsp-defcustom lsp-haskell-plugin-cabal-diagnostics-on t
+  "Enables cabal diagnostics"
+  :type 'boolean
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.cabal.diagnosticsOn")
+
+(lsp-defcustom lsp-haskell-plugin-fourmolu-config-path "fourmolu"
+  "Set path to executable (for \"external\" mode)."
+  :type 'string
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.fourmolu.config.path")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-class-method-token
+  "method"
+  "LSP semantic token type to use for typeclass methods"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.classMethodToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-class-token
+  "class"
+  "LSP semantic token type to use for typeclasses"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.classToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-data-constructor-token
+  "enumMember"
+  "LSP semantic token type to use for data constructors"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.dataConstructorToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-function-token
+  "function"
+  "LSP semantic token type to use for functions"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.functionToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-module-token
+  "namespace"
+  "LSP semantic token type to use for modules"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.moduleToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-operator-token
+  "operator"
+  "LSP semantic token type to use for operators"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.operatorToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-pattern-synonym-token
+  "macro"
+  "LSP semantic token type to use for pattern synonyms"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.patternSynonymToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-record-field-token
+  "property"
+  "LSP semantic token type to use for record fields"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.recordFieldToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-type-constructor-token
+  "enum"
+  "LSP semantic token type to use for type constructors"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.typeConstructorToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-type-family-token
+  "interface"
+  "LSP semantic token type to use for type families"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.typeFamilyToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-type-synonym-token
+  "type"
+  "LSP semantic token type to use for type synonyms"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.typeSynonymToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-type-variable-token
+  "typeParameter"
+  "LSP semantic token type to use for type variables"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.typeVariableToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-config-variable-token
+  "variable"
+  "LSP semantic token type to use for variables"
+  :type '(choice (const "namespace") (const "type") (const "class") (const "enum")
+          (const "interface") (const "struct") (const "typeParameter")
+          (const "parameter") (const "variable") (const "property") (const "enumMember")
+          (const "event") (const "function") (const "method") (const "macro")
+          (const "keyword") (const "modifier") (const "comment") (const "string")
+          (const "number") (const "regexp") (const "operator") (const "decorator"))
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
+  :lsp-path "haskell.plugin.semanticTokens.config.variableToken")
+
+(lsp-defcustom lsp-haskell-plugin-semantic-tokens-global-on nil
+  "Enables semanticTokens plugin"
+  :type 'boolean
+  :group 'lsp-haskell-plugins
+  :package-version '(lsp-mode . "9.0.0")
   :lsp-path "haskell.plugin.semanticTokens.globalOn")
 
 ;; ---------------------------------------------------------------------