config

Personal configuration.
git clone git://code.dwrz.net/config
Log | Files | Refs

lsp-ttcn3.el (1610B)


      1 ;;; lsp-ttcn3.el --- description -*- lexical-binding: t; -*-
      2 
      3 ;; Copyright (C) 2022 emacs-lsp maintainers
      4 
      5 ;; Author: emacs-lsp maintainers
      6 ;; Keywords: lsp, ttcn3
      7 
      8 ;; This program is free software; you can redistribute it and/or modify
      9 ;; it under the terms of the GNU General Public License as published by
     10 ;; the Free Software Foundation, either version 3 of the License, or
     11 ;; (at your option) any later version.
     12 
     13 ;; This program is distributed in the hope that it will be useful,
     14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
     15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     16 ;; GNU General Public License for more details.
     17 
     18 ;; You should have received a copy of the GNU General Public License
     19 ;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
     20 
     21 ;;; Commentary:
     22 
     23 ;; LSP Clients for the TTCN3 Programming Language.
     24 
     25 ;;; Code:
     26 
     27 (require 'lsp-mode)
     28 
     29 (defgroup lsp-ttcn3 nil
     30   "LSP support for TTCN3, using ntt-language-server."
     31   :group 'lsp-mode
     32   :link '(url-link "https://github.com/nokia/ntt"))
     33 
     34 (defcustom lsp-ttcn3-lsp-server-command
     35   '("ntt" "langserver")
     36   "Command to start ttcn3-language-server."
     37   :group 'lsp-ttcn3
     38   :type '(choice
     39           (string :tag "Single string value")
     40           (repeat :tag "List of string values"
     41                   string)))
     42 
     43 (lsp-register-client
     44  (make-lsp-client :new-connection (lsp-stdio-connection lsp-ttcn3-lsp-server-command)
     45                   :activation-fn (lsp-activate-on "ttcn3")
     46                   :priority -1
     47                   :server-id 'ntt))
     48 
     49 (provide 'lsp-ttcn3)
     50 ;;; lsp-ttcn3.el ends here
     51