blob: 0de430ae6ddf8457c9427dc5ac0997126894d7fb (
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
|
;;; lsp-ada.el --- description -*- lexical-binding: t; -*-
;; Copyright (C) 2020 emacs-lsp maintainers
;; Author: emacs-lsp maintainers
;; Keywords: lsp, ada
;; 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 Clients for the Ada Programming Language
;;; Code:
(require 'lsp-mode)
(defgroup lsp-ada nil
"Settings for Ada Language Server."
:group 'tools
:tag "Language Server"
:package-version '(lsp-mode . "6.2"))
(defcustom-lsp lsp-ada-project-file "default.gpr"
"Set the project file full path to configure the language server with.
The ~ prefix (for the user home directory) is supported.
See https://github.com/AdaCore/ada_language_server for a per-project
configuration example."
:type 'string
:group 'lsp-ada
:package-version '(lsp-mode . "6.2")
:lsp-path "ada.projectFile")
(defcustom-lsp lsp-ada-option-charset "UTF-8"
"The charset to use by the Ada Language server. Defaults to 'UTF-8'."
:type 'string
:group 'lsp-ada
:package-version '(lsp-mode . "6.2")
:lsp-path "ada.defaultCharset")
(defcustom-lsp lsp-ada-enable-diagnostics t
"A boolean to disable diagnostics. Defaults to true."
:type 'boolean
:group 'lsp-ada
:package-version '(lsp-mode . "6.2")
:lsp-path "ada.enableDiagnostics")
(defcustom lsp-ada-als-executable "ada_language_server"
"Command to start the Ada language server."
:group 'lsp-ada
:risky t
:type 'file)
(defcustom lsp-ada-alire-executable "alr"
"The alire executable to run when a project is detected."
:type 'string
:group 'lsp-ada
:package-version '(lsp-mode "8.0.1"))
(defun lsp-ada--environment ()
"Add environmental variables if needed."
(let ((project-root (lsp-workspace-root)))
;; When there is an alire project, include its environment
(when (file-exists-p
(concat (file-name-as-directory project-root)
"alire.toml"))
(let ((alr-executable (executable-find lsp-ada-alire-executable)))
(if alr-executable
;; Transform output variables to environment
(let ((env-output (shell-command-to-string (concat alr-executable " printenv --unix"))))
(let ((var-strings (split-string env-output "\n")))
(mapcar (lambda (string)
(if (string-match (rx "export" space (group (one-or-more ascii)) "=" "\"" (group (one-or-more ascii)) "\"") string)
(let ((var-name (match-string 1 string))
(var-value (match-string 2 string)))
(cons var-name var-value))))
var-strings)))
(lsp--error "Found alire.toml but the executable %s could not be found" alr-executable))))))
(lsp-register-client
(make-lsp-client :new-connection (lsp-stdio-connection lsp-ada-als-executable)
:major-modes '(ada-mode)
:priority -1
:initialized-fn (lambda (workspace)
(with-lsp-workspace workspace
(lsp--set-configuration
(lsp-configuration-section "ada"))))
:server-id 'ada-ls
:synchronize-sections '("ada")
:environment-fn 'lsp-ada--environment))
(lsp-consistency-check lsp-ada)
(provide 'lsp-ada)
;;; lsp-ada.el ends here
|
