blob: 5e3a32a10badd216954274ce11ebfeadff428c70 (
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
|
;;; 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
|