Support specifying initialization options

Author: tigersoldier

lsp-javacomp.el

@@ -2,7 +2,7 @@
 
 ;; Version: 1.0
 ;; Package-Requires: ((emacs "25.1") (lsp-mode "3.0") (s "1.2.0"))
-;; Keywords: java
+;; Keywords: java tools lsp
 ;; URL: https://github.com/tigersoldier/lsp-javacomp
 
 ;; This program is free software: you can redistribute it and/or modify
@@ -52,6 +52,40 @@ Requires to be ended with a slash."
   :type '(set string)
   :group 'lsp-javacomp)
 
+(defcustom lsp-javacomp-server-log-level nil
+  "Server log level.
+This option sets the value of the logLevel initialization option.
+Possible values are \"severe\", \"warning\", \"info\", \"fine\",
+\"finer\", \"finest\". If it's set to nil, the option is not sent
+to the server."
+  :type '(choice
+          (const nil)
+          (const "severe")
+          (const "warning")
+          (const "info")
+          (const "fine")
+          (const "finer")
+          (const "finest"))
+  :group 'lsp-javacomp)
+
+(defcustom lsp-javacomp-server-log-path nil
+  "Server log path.
+This option sets the value of the logPath initialization option."
+  :type '(choice (const nil) string)
+  :group 'lsp-javacomp)
+
+(defcustom lsp-javacomp-server-ignore-paths nil
+  "A list of string paths to be ignored by the server.
+This option sets the value of the ignorePaths initialization option."
+  :type '(repeat string)
+  :group 'lsp-javacomp)
+
+(defcustom lsp-javacomp-server-type-index-files nil
+  "A list of string paths of the type index files.
+This option sets the value of the typeIndexFiles initialization option."
+  :type '(repeat string)
+  :group 'lsp-javacomp)
+
 (defconst lsp-javacomp-latest-release-url
   "https://api.github.com/repos/tigersoldier/JavaComp/releases/latest"
   "URL to retrieve the latest release of JavaComp server.")
@@ -93,6 +127,13 @@ Return a cons of (start . end) for the bound of the prefix."
       (setq start (1+ start)))
     (cons start end)))
 
+(defun lsp-javacomp--get-init-params (_)
+  "Return initialization options."
+  (list :logPath lsp-javacomp-server-log-path
+        :logLevel lsp-javacomp-server-log-level
+        :ignorePths lsp-javacomp-server-ignore-paths
+        :typeIndexFiles lsp-javacomp-server-type-index-files))
+
 ;;;###autoload
 (defun lsp-javacomp-install-server (&optional prompt-exists)
   "Download the JavaComp server JAR file if it does not exist.
@@ -107,10 +148,12 @@ file already exists."
 
 ;;;###autoload
 (defun lsp-javacomp-update-server ()
+  "Update JavaComp jar file to the latest version."
   (interactive)
   (lsp-javacomp--download-server))
 
 (defun lsp-javacomp--download-server ()
+  "Download latest JavaComp jar file."
   (message "Getting the latest JavaComp server...")
   (url-retrieve lsp-javacomp-latest-release-url #'lsp-javacomp--latest-release-callback))
 
@@ -119,8 +162,7 @@ file already exists."
 
 STATS is passed by `url-retrieve'.
 
-See https://developer.github.com/v3/repos/releases/#get-the-latest-release
-"
+See https://developer.github.com/v3/repos/releases/#get-the-latest-release"
   (search-forward "\n\n")
   (if-let (err (plist-get stats :error))
       (error "Failed to get the latest release of JavaComp server: %s" (car err))
@@ -142,6 +184,7 @@ See https://developer.github.com/v3/repos/releases/#get-the-latest-release
                          :command-fn #'lsp-javacomp--command
                          :ignore-regexps '("^SLF4J: "
                                            "^Listening for transport dt_socket at address: ")
+                         :extra-init-params #'lsp-javacomp--get-init-params
                          :prefix-function #'lsp-javacomp--get-prefix)
 
 (provide 'lsp-javacomp)