;;; lsp-javascript-flow.el --- Javascript/Flow support for lsp-mode  -*- lexical-binding: t; -*-

;; Copyright (C) 2017 George Pittarelli <g@gjp.cc>
;; Copyright (C) 2017 Ozan Sener <hi@ozan.email>

;; Author: Ozan Sener <hi@ozan.email>
;; Version: 1.0
;; Package-Version: 20180613.508
;; Package-Requires: ((lsp-mode "3.0") (emacs "25.1"))
;; Keywords: languages tools
;; URL: https://github.com/emacs-lsp/lsp-javascript

;; This program 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.

;; This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; Javascript and Flow support for lsp-mode using
;;   https://github.com/flowtype/flow-language-server

;;; Code:

(require 'lsp-mode)

;;;###autoload
(defcustom lsp-javascript-flow-server
  "flow-language-server"
  "The flow-language-server executable to use.
Leave as just the executable name to use the default behavior of
finding the executable with `exec-path'."
  :group 'lsp-javascript-flow
  :risky t
  :type 'file)

;;;###autoload
(defcustom lsp-javascript-flow-server-args
  '()
  "Extra arguments for the javascript-flow-stdio language server"
  :group 'lsp-javascript-flow
  :risky t
  :type '(repeat string))

(defun lsp-javascript-flow--ls-command ()
  "Generate the language server startup command."
  `(,lsp-javascript-flow-server
    "--stdio"
    ,@lsp-javascript-flow-server-args))

(defconst lsp-javascript-flow--get-root
  (lsp-make-traverser #'(lambda (dir)
                          (directory-files dir nil "package.json"))))

(lsp-define-stdio-client
 lsp-javascript-flow "javascript"
 lsp-javascript-flow--get-root
 nil
 :ignore-messages '("\[INFO].*?nuclide")
 :command-fn 'lsp-javascript-flow--ls-command)

(provide 'lsp-javascript-flow)
;;; lsp-javascript-flow.el ends here