Adrien/flycheck-vale
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Updated per checkdoc.

Browse Source
This commit is contained in:
Austin Bingham
2017-05-14 16:32:25 +02:00
parent 3a350c060f
commit 661d5a11f1
1 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
flycheck-vale.el
View File

@@ -64,8 +64,8 @@
'(("error" . error) '(("error" . error)
("warning" . warning))) ("warning" . warning)))
(defun flycheck-vale--issue-to-error (result) (defun flycheck-vale--issue-to-error (issue)
"Parse a single vale issue into a flycheck error struct. "Parse a single vale issue, ISSUE, into a flycheck error struct.
We only fill in what we can get from the vale issue directly. The We only fill in what we can get from the vale issue directly. The
rest (e.g. filename) gets filled in elsewhere." rest (e.g. filename) gets filled in elsewhere."
@@ -77,8 +77,7 @@ rest (e.g. filename) gets filled in elsewhere."
:level (assoc-default .Severity flycheck-vale--level-map 'string-equal 'error)))) :level (assoc-default .Severity flycheck-vale--level-map 'string-equal 'error))))
(defun flycheck-vale--output-to-errors (output) (defun flycheck-vale--output-to-errors (output)
"Parse the full JSON output of vale into a sequence of flycheck "Parse the full JSON output of vale, OUTPUT, into a sequence of flycheck error structs."
error structs."
(let* ((full-results (json-read-from-string output)) (let* ((full-results (json-read-from-string output))
;; Get the list of issues for each file. ;; Get the list of issues for each file.
@@ -93,7 +92,7 @@ error structs."
(mapcar 'flycheck-vale--issue-to-error issues))) (mapcar 'flycheck-vale--issue-to-error issues)))
(defun flycheck-vale--start (checker callback) (defun flycheck-vale--start (checker callback)
"Run vale on the current buffer's contents." "Run vale on the current buffer's contents with CHECKER, passing the results to CALLBACK."
(let ((orig-buf (current-buffer)) (let ((orig-buf (current-buffer))
(outbuf (get-buffer-create "*flycheck-vale-output*"))) (outbuf (get-buffer-create "*flycheck-vale-output*")))