;;; lsp-camel.el --- LSP Camel server integration        -*- lexical-binding: t; -*-


;;; Code:

(require 'lsp-mode)

(defgroup lsp-camel nil
  "LSP support for Camel, using camel-language-server"
  :group 'lsp-mode
  :tag "Language Server"
  :package-version '(lsp-mode . "8.0.1"))

;; Define a variable to store camel language server jar version
(defconst lsp-camel-jar-version "1.5.0")

;; Define a variable to store camel language server jar name
(defconst lsp-camel-jar-name (format "camel-lsp-server-%s.jar" lsp-camel-jar-version))

;; Directory in which the servers will be installed. Lsp Server Install Dir: ~/.emacs.d/.cache/camells
(defcustom lsp-camel-jar-file (f-join lsp-server-install-dir "camells" lsp-camel-jar-name)
  "Camel Language server jar command."
  :type 'string
  :group 'lsp-camel
  :type 'file
  :package-version '(lsp-mode . "8.0.1"))

(defcustom lsp-camel-jar-download-url
  (format "https://repo1.maven.org/maven2/com/github/camel-tooling/camel-lsp-server/%s/%s" lsp-camel-jar-version lsp-camel-jar-name)
  "Automatic download url for lsp-camel."
  :type 'string
  :group 'lsp-camel
  :package-version '(lsp-mode . "8.0.1"))

(lsp-dependency
 'camells
 '(:system lsp-camel-jar-file)
 `(:download :url lsp-camel-jar-download-url
	     :store-path lsp-camel-jar-file))

(defcustom lsp-camel-server-command `("java" "-jar" , lsp-camel-jar-file)
  "Camel server command."
  :type '(repeat string)
  :group 'lsp-camel
  :package-version '(lsp-mode . "8.0.1"))

(defun lsp-camel--create-connection ()
  (lsp-stdio-connection
   (lambda () lsp-camel-server-command)
   (lambda () (f-exists? lsp-camel-jar-file))))

(lsp-register-client
 (make-lsp-client :new-connection (lsp-camel--create-connection)
		  :activation-fn (lsp-activate-on "xml" "java")
		  :priority 0
		  :server-id 'camells
		  :add-on? t
		  :multi-root t
		  :initialized-fn (lambda (workspace)
				    (with-lsp-workspace workspace
				      (lsp--set-configuration (lsp-configuration-section "camel"))))
		  :download-server-fn (lambda (_client callback error-callback _update?)
					(lsp-package-ensure 'camells callback error-callback))))

(lsp-consistency-check lsp-camel)

(provide 'lsp-camel)
;;; lsp-camel.el ends here