blob: 209fa09edcbfa33138e4e157279634157fcf4d39 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
|
;;; lsp-xml.el --- LSP XML server integration -*- lexical-binding: t; -*-
;; Copyright (C) 2019 Ivan Yonchovski
;; Author: Ivan Yonchovski <yyoncho@gmail.com>
;; Keywords:
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Commentary:
;;
;;; Code:
(require 'lsp-mode)
(defgroup lsp-xml nil
"Settings for rls."
:group 'tools
:tag "Language Server"
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-trace-server "off"
"Traces the communication between VS Code and the XML language server."
:type '(choice
(const "off")
(const "messages")
(const "verbose"))
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-catalogs nil
"Array of XML Catalogs"
:type '(repeat string)
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-logs-client t
"Should the server log to client output"
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-format-split-attributes nil
"Split multiple attributes each onto a new line"
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-format-join-cdata-lines nil
"Join lines in a CDATA tag's content"
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-format-join-comment-lines nil
"Join comment content on format"
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-format-space-before-empty-close-tag t
"Insert space before end of self closing tag.
Example: <tag/> -> <tag />"
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-format-join-content-lines nil
"Normalize the whitespace of content inside an element.
Newlines and excess whitespace are removed."
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-format-preserve-empty-content nil
"Preserve empty content/whitespace in a tag."
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-format-enabled t
"Enable/disable ability to format document"
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-format-quotations "doubleQuotes"
"Which type of quotes to use for attribute values when
formatting."
:type '(choice
(const "doubleQuotes")
(const "singleQuotes"))
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-file-associations nil
"Allows XML schemas to be associated to file name patterns.
Example: [{ \"systemId\":\"path/to/file.xsd\",\"pattern\":
\"file1.xml\" },{ \"systemId\":
\"http://www.w3.org/2001/XMLSchema.xsd\",\"pattern\":
\"**/*.xsd\" }]"
:type '(repeat string)
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-completion-auto-close-tags t
"Enable/disable autoclosing of XML tags. IMPORTANT: Turn off
editor.autoClosingTags for this to work"
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-server-vmargs ["-noverify" "-Xmx64M" "-XX:+UseG1GC"
"-XX:+UseStringDeduplication"]
"Specifies extra VM arguments used to launch the XML Language
Server. Eg. use `-noverify -Xmx1G -XX:+UseG1GC
-XX:+UseStringDeduplication` to bypass class verification,
increase the heap size to 1GB and enable String deduplication
with the G1 Garbage collector"
:type 'lsp-string-vector
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-server-work-dir (expand-file-name ".lsp4xml" "~")
"Set a custom folder path for cached XML Schemas. An absolute
path is expected, although the ~ prefix (for the user home
directory) is supported."
:type 'string
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-validation-no-grammar "hint"
"The message severity when a document has no associated
grammar."
:type '(choice (:tag "ignore" "hint" "info" "warning" "error"))
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-validation-enabled t
"Enable/disable all validation."
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-validation-resolve-external-entities nil
"Enable/disable resolution (downloading) of external entities from the internet."
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "8.0.0"))
(defcustom lsp-xml-validation-schema t
"Enable/disable schema based validation. Ignored if
\"xml.validation.enabled\": false."
:type 'boolean
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(lsp-register-custom-settings '
(("xml.validation.schema" lsp-xml-validation-schema t)
("xml.validation.resolveExternalEntities" lsp-xml-validation-resolve-external-entities)
("xml.validation.enabled" lsp-xml-validation-enabled t)
("xml.validation.noGrammar" lsp-xml-validation-no-grammar)
("xml.server.workDir" lsp-xml-server-work-dir)
("xml.server.vmargs" lsp-xml-server-vmargs)
("xml.completion.autoCloseTags" lsp-xml-completion-auto-close-tags t)
("xml.fileAssociations" lsp-xml-file-associations)
("xml.format.quotations" lsp-xml-format-quotations)
("xml.format.enabled" lsp-xml-format-enabled t)
("xml.format.preserveEmptyContent" lsp-xml-format-preserve-empty-content t)
("xml.format.joinContentLines" lsp-xml-format-join-content-lines t)
("xml.format.spaceBeforeEmptyCloseTag" lsp-xml-format-space-before-empty-close-tag t)
("xml.format.joinCommentLines" lsp-xml-format-join-comment-lines t)
("xml.format.joinCDATALines" lsp-xml-format-join-cdata-lines t)
("xml.format.splitAttributes" lsp-xml-format-split-attributes t)
("xml.logs.client" lsp-xml-logs-client t)
("xml.catalogs" lsp-xml-catalogs)
("xml.trace.server" lsp-xml-trace-server)))
(defconst lsp-xml-jar-version "0.18.0")
(defconst lsp-xml-jar-name (format "org.eclipse.lemminx-%s-uber.jar" lsp-xml-jar-version))
(defcustom lsp-xml-jar-file (f-join lsp-server-install-dir "xmlls" lsp-xml-jar-name)
"Xml server jar command."
:type 'string
:group 'lsp-xml
:type 'file
:package-version '(lsp-mode . "6.1"))
(defcustom lsp-xml-jar-download-url
(format
"https://repo.eclipse.org/content/repositories/lemminx-releases/org/eclipse/lemminx/org.eclipse.lemminx/%s/%s"
lsp-xml-jar-version
lsp-xml-jar-name)
"Automatic download url for lsp-xml."
:type 'string
:group 'lsp-xml
:package-version '(lsp-mode . "8.0.0"))
(lsp-dependency
'xmlls
'(:system lsp-xml-jar-file)
`(:download :url lsp-xml-jar-download-url
:store-path lsp-xml-jar-file))
(defcustom lsp-xml-server-command `("java" "-jar" ,lsp-xml-jar-file)
"Xml server command."
:type '(repeat string)
:group 'lsp-xml
:package-version '(lsp-mode . "6.1"))
(defun lsp-xml--create-connection ()
(lsp-stdio-connection
(lambda () lsp-xml-server-command)
(lambda () (f-exists? lsp-xml-jar-file))))
(lsp-register-client
(make-lsp-client :new-connection (lsp-xml--create-connection)
:activation-fn (lsp-activate-on "xml")
:priority 0
:server-id 'xmlls
:multi-root t
:initialized-fn (lambda (workspace)
(with-lsp-workspace workspace
(lsp--set-configuration (lsp-configuration-section "xml"))))
:download-server-fn (lambda (_client callback error-callback _update?)
(lsp-package-ensure 'xmlls callback error-callback))))
(lsp-consistency-check lsp-xml)
(provide 'lsp-xml)
;;; lsp-xml.el ends here
|
