如何将flowtype与spacemacs结合起来

Question

我是spacemacs粉丝。我想使用Facebook Flow，但我不知道如何将它与spacemacs集成。我使用流程nuclide，但我需要重新学习一切，以提高生产力。 flow知识库上有this script与emacs一起使用。我需要一个关于如何在spacemacs中使用它的指南。

谢谢。

Answer 1

我用Bodil的流动flycheck配置在这里：https://github.com/bodil/emacs.d/blob/d28264cf072bb8a62459a48813d0cb30804b4f5b/bodil/bodil-js.el#L121-L154

我把它加入与spacemacs的react-mode和默认eslint flychecker工作，下面我dotspacemacs/user-config（https://github.com/saltycrane/.spacemacs.d/blob/9d985ace9251529c2b8d7857e2ec9835b103084c/init.el#L383-L414）：

;; Flow (JS) flycheck config (http://flowtype.org) 
;; from https://github.com/bodil/emacs.d/blob/master/bodil/bodil-js.el 
(require 'f) 
(require 'json) 
(require 'flycheck) 

(defun flycheck-parse-flow (output checker buffer) 
    (let ((json-array-type 'list)) 
    (let ((o (json-read-from-string output))) 
     (mapcar #'(lambda (errp) 
        (let ((err (cadr (assoc 'message errp)))) 
        (flycheck-error-new 
        :line (cdr (assoc 'line err)) 
        :column (cdr (assoc 'start err)) 
        :level 'error 
        :message (cdr (assoc 'descr err)) 
        :filename (f-relative 
           (cdr (assoc 'path err)) 
           (f-dirname (file-truename 
              (buffer-file-name)))) 
        :buffer buffer 
        :checker checker))) 
       (cdr (assoc 'errors o)))))) 

(flycheck-define-checker javascript-flow 
    "Javascript type checking using Flow." 
    :command ("flow" "--json" source-original) 
    :error-parser flycheck-parse-flow 
    :modes react-mode 
    :next-checkers ((error . javascript-eslint)) 
) 
(add-to-list 'flycheck-checkers 'javascript-flow) 

还可以肯定的Flow命令行工具已安装。像这样安装：

npm install -g flow-bin 

我认为Bodil旨在使消息简短，但我想有flycheck显示更详细的消息。如果有人知道如何做到这一点，我会很感激。

编辑2016-08-12：我发布的原始版本在初始加载时给出了Symbol's function definition is void: flycheck-define-checker错误。我更新了上面的代码以添加require 'flycheck以摆脱该错误。

Answer 2

saltycrane的答案对我来说工作得很好。谢谢！正如他指出的那样，解决方案提供了非常短的错误信息。我将错误消息改进得更加详细，看起来更像流cli输出的输出。

对想要使用此脚本的新用户的说明，请确保将其编辑为使用底部的flycheck-define-checker中的正确模式。我在js2-mode中使用这个，而盐酸盐使用react-mode。编辑它以使用您正在使用的任何内容。

(require 'f) 
(require 'json) 
(require 'flycheck) 
(defun flycheck-parse-flow (output checker buffer) 
    (let ((json-array-type 'list)) 
    (let ((o (json-read-from-string output))) 
     (mapcar #'(lambda (errp) 
        (let ((err (cadr (assoc 'message errp))) 
         (err2 (cadr (cdr (assoc 'message errp))))) 
        (flycheck-error-new 
        :line (cdr (assoc 'line err)) 
        :column (cdr (assoc 'start err)) 
        :level 'error 
        :message (concat (cdr (assoc 'descr err)) ". " (cdr (assoc 'descr err2))) 
        :filename (f-relative 
           (cdr (assoc 'path err)) 
           (f-dirname (file-truename 
              (buffer-file-name)))) 
        :buffer buffer 
        :checker checker))) 
       (cdr (assoc 'errors o)))))) 

(flycheck-define-checker javascript-flow 
    "Static type checking using Flow." 
    :command ("flow" "--json" source-original) 
    :error-parser flycheck-parse-flow 
    :modes js2-mode) 
(add-to-list 'flycheck-checkers 'javascript-flow)