1 files changed, 124 insertions, 0 deletions
diff --git a/elpa/lsp-mode-20220505.630/lsp-magik.el b/elpa/lsp-mode-20220505.630/lsp-magik.el
new file mode 100644
index 0000000..5e3a32a
--- /dev/null
+++ b/elpa/lsp-mode-20220505.630/lsp-magik.el
@@ -0,0 +1,124 @@
+;;; lsp-magik.el --- Language server client for Magik  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2022 Keronic
+
+;; Author: <robin.putters@keronic.com>
+;; Keywords: lsp, magik
+
+;; 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:
+
+;; LSP client for the Magik programming language
+;; https://github.com/StevenLooman/magik-tools
+
+;;; Code:
+
+(require `lsp-mode)
+
+(defgroup lsp-magik nil
+  "LSP support for Magik."
+  :link '(url-link "https://github.com/StevenLooman/magik-tools")
+  :group 'lsp-mode
+  :tag "Lsp Magik"
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-java-home nil
+  "Path to Java Runtime, Java 11 minimum."
+  :type `string
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-smallworld-gis nil
+  "Path to Smallworld Core."
+  :type `string
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-aliases nil
+  "Path to gis_aliases file."
+  :type `string
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-environment nil
+  "Path to environment file."
+  :type `string
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-typing-type-database-paths []
+  "Paths to type databases."
+  :type `lsp-string-vector
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-typing-enable-checks nil
+  "Enable typing checks."
+  :type `boolean
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-trace-server "off"
+  "Traces the communication between VS Code and the Magik language server."
+  :type `(choice (const "off") (const "message") (const "verbose"))
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-java-path (cond ((eq system-type 'windows-nt) "$JAVA_HOME/bin/java")
+                                     (t "java"))
+  "Path of the java executable."
+  :type 'string
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-lsp-path (expand-file-name "magik-lsp/magik-language-server-0.5.1.jar" user-emacs-directory)
+  "Path of the language server."
+  :type 'string
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(defcustom lsp-magik-lint-override-config-file nil
+  "Override path to magiklintrc.properties."
+  :type 'string
+  :group `lsp-magik
+  :package-version '(lsp-mode . "8.0.1"))
+
+(lsp-register-client
+ (make-lsp-client :new-connection (lsp-stdio-connection
+                                   (lambda ()
+                                     (list
+                                      (substitute-in-file-name lsp-magik-java-path)
+                                      "-jar"
+                                      (substitute-in-file-name lsp-magik-lsp-path)
+                                      "--debug")))
+                  :activation-fn (lsp-activate-on "magik")
+                  :initialized-fn (lambda (workspace)
+                                    (with-lsp-workspace workspace
+                                      (lsp--set-configuration (lsp-configuration-section "magik"))))
+                  :server-id 'magik))
+
+(lsp-register-custom-settings `(("magik.javaHome" lsp-magik-java-home)
+                                ("magik.smallworldGis" lsp-magik-smallworld-gis)
+                                ("magik.aliases" lsp-magik-aliases)
+                                ("magik.environment" lsp-magik-environment)
+                                ("magik.typing.typeDatabasePaths" lsp-magik-typing-type-database-paths)
+                                ("magik.typing.enableChecks" lsp-magik-typing-enable-checks)
+                                ("magik.trace.server" lsp-magik-trace-server)
+                                ("magik.lint.overrideConfigFile" lsp-magik-lint-override-config-file)))
+
+(lsp-consistency-check lsp-magik)
+
+(provide 'lsp-magik)
+;;; lsp-magik.el ends here