;;; lsp-xml.el --- LSP XML server integration -*- lexical-binding: t; -*- ;; Copyright (C) 2019 Ivan Yonchovski ;; Author: Ivan Yonchovski ;; 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 . ;;; 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: -> " :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 . "7.1")) (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.13.1") (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 . "7.1")) (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