Cleanup in lsp-java

Author: yyoncho

lsp-java-boot.el

@@ -55,20 +55,21 @@
                  :no-wait t)))
 
 (defun lsp-java-boot--sts-add-classpath-listener (_workspace params)
-  (with-lsp-workspace (lsp-find-workspace 'jdtls nil)
-    (lsp-request "workspace/executeCommand"
-                 (list :command "sts.java.addClasspathListener"
-                       :arguments (gethash "callbackCommandId" params))
-                 :no-wait t)))
+  (ignore
+   (with-lsp-workspace (lsp-find-workspace 'jdtls nil)
+     (lsp-request "workspace/executeCommand"
+                  (list :command "sts.java.addClasspathListener"
+                        :arguments (gethash "callbackCommandId" params))
+                  :no-wait t))))
 
 (defun lsp-java-boot--workspace-execute-client-command (_jdt-ls-workspace params)
   "PARAMS is the classpath info."
-  (with-lsp-workspace (lsp-find-workspace 'boot-ls nil)
-    (-let (((&hash "command" "arguments") params))
-      (setf (nth 2 arguments) (if (nth 2 arguments) t :json-false))
-      (lsp-request "workspace/executeCommand"
-                   (list :command command :arguments arguments)
-                   :no-wait t))))
+  (ignore
+   (with-lsp-workspace (lsp-find-workspace 'boot-ls nil)
+     (-let (((&hash "command" "arguments") params))
+       (lsp-request "workspace/executeCommand"
+                    (list :command command :arguments arguments)
+                    :no-wait t)))))
 
 (defun lsp-java-boot--lens-backend (_ callback)
   "Boot backend.

lsp-java.el

@@ -158,11 +158,6 @@ A package or type name prefix (e.g. 'org.eclipse') is a valid entry. An import i
           (const "messages")
           (const "verbose")))
 
-(defcustom lsp-java-enable-file-watch nil
-  "Defines whether the client will monitor the files for changes."
-  :group 'lsp-java
-  :type 'boolean)
-
 (defcustom lsp-java-format-enabled t
   "Specifies whether or not formatting is enabled on the language server."
   :group 'lsp-java
@@ -445,7 +440,7 @@ PARAMS the parameters for actionable notifications."
 
 PARAMS progress report notification data."
   (-let [(&hash "status" "complete") params]
-    (setq lsp-java-progress-string (propertize (s-replace "%" "%%" status) 'face 'lsp-java-progress-face))
+    (setq lsp-java-progress-string (propertize status 'face 'lsp-java-progress-face))
     (when complete
       (run-with-idle-timer 0.8 nil (lambda ()
                                      (setq lsp-java-progress-string nil))))))