plugin/emacs: add lsp-quicklintjs Emacs command

Unlike M-x lsp, M-x lsp-quicklintjs doesn't prompt for a root folder.
It does this by always before calling (lsp) saving on its own state
file the buffer default directory as a project root.

Signed-off-by: wagner riffel <[email protected]>

Author: wgrr

plugin/emacs/lsp-quicklintjs.el

@@ -43,6 +43,21 @@
 (require 'lsp-mode)
 (require 'quicklintjs)
 
+;;;###autoload
+(defun lsp-quicklintjs ()
+  "Like `lsp', but set root folder to `default-directory' to avoid project root\
+prompts."
+  (interactive)
+  ;; Don't mess with user's session state file
+  (set (make-local-variable 'lsp-session-file)
+       (expand-file-name (locate-user-emacs-file
+                          ".lsp-quicklintjs-session-v1")))
+  (let* ((session (lsp-session)))
+    (cl-pushnew (expand-file-name default-directory)
+                (lsp-session-folders session) :test 'equal)
+    (lsp--persist-session session))
+ (lsp))
+
 ;;;###autoload
 (with-eval-after-load 'lsp-mode
   (lsp-register-client