plugin/emacs: add LSP Mode support

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

plugin/emacs/CMakeLists.txt

@@ -6,6 +6,7 @@ include(GNUInstallDirs)
 
 install(
   FILES flycheck-quicklintjs.el
+  FILES lsp-quicklintjs.el
   FILES eglot-quicklintjs.el
   DESTINATION "${CMAKE_INSTALL_DATAROOTDIR}/emacs/site-lisp"
 )

plugin/emacs/lsp-quicklintjs.el

@@ -0,0 +1,63 @@
+;;; lsp-quicklintjs --- LSP support for quick-lint-js   -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;; LSP Mode support for quick-lint-js.
+
+;; Example usage in your init.el:
+;;
+;; (require 'lsp-quicklintjs)
+;;
+;; (defun my-lsp-quicklintjs-setup ()
+;;   "Configure lsp-quicklintjs for better experience."
+;;   ;; Remove the time to wait after last change before automatically checking
+;;   ;; buffer.  The default is 0.5 (500ms)
+;;   (setq-local lsp-idle-delay 0))
+;; (add-hook 'js-mode-hook #'my-lsp-quicklintjs-setup)
+
+;;; Code:
+
+(require 'lsp-mode)
+
+(defgroup lsp-quicklintjs nil
+  "quick-lint-js LSP Mode integration."
+  :link '(url-link :tag "Website" "https://quick-lint-js.com"))
+
+(defcustom lsp-quicklintjs-program "quick-lint-js"
+  "Path to quick-lint-js program to run."
+  :group 'lsp-quicklintjs
+  :type 'stringp)
+
+(defcustom lsp-quicklintjs-args nil
+  "Arguments to quick-lint-js."
+  :group 'lsp-quicklintjs
+  :type '(repeat string))
+
+(lsp-register-client
+ (make-lsp-client
+  :new-connection (lsp-stdio-connection `(,lsp-quicklintjs-program "--lsp-server"
+                                                                     ,@lsp-quicklintjs-args))
+  :major-modes '(js-mode)
+  :server-id 'quick-lint-js))
+
+(provide 'lsp-quicklintjs)
+
+;; quick-lint-js finds bugs in JavaScript programs.
+;; Copyright (C) 2020  Matthew Glazar
+;;
+;; This file is part of quick-lint-js.
+;;
+;; quick-lint-js is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+;;
+;; quick-lint-js is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with quick-lint-js.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; lsp-quicklintjs.el ends here

plugin/emacs/test/quicklintjs-test.el

@@ -26,10 +26,11 @@
     (package-refresh-contents))
 
   (quicklintjs-install-deps (if (>= emacs-major-version 26)
-                                '(flycheck eglot)
+                                '(flycheck eglot lsp-mode)
                               '(flycheck)))
   (def-flycheck-tests)
   (def-eglot-tests)
+  (def-lsp-tests)
   (ert-run-tests-batch-and-exit))
 
 (defun def-eglot-tests ()
@@ -38,6 +39,12 @@
     (ert-deftest quicklintjs-is-in-eglot-servers ()
       (should (member '(js-mode "quick-lint-js" "--lsp")  eglot-server-programs)))))
 
+(defun def-lsp-tests ()
+  (when (>= emacs-major-version 26)
+    (require 'lsp-quicklintjs)
+    (ert-deftest quicklintjs-is-in-lsp-clients ()
+      (should  (gethash 'quick-lint-js lsp-clients)))))
+
 (defun def-flycheck-tests ()
   (require 'flycheck)
   (require 'flycheck-ert)