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)
("warning" . warning)))
(defun flycheck-vale--issue-to-error (result)
"Parse a single vale issue into a flycheck error struct.
(defun flycheck-vale--issue-to-error (issue)
"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
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))))
(defun flycheck-vale--output-to-errors (output)
"Parse the full JSON output of vale into a sequence of flycheck
error structs."
"Parse the full JSON output of vale, OUTPUT, into a sequence of flycheck error structs."
(let* ((full-results (json-read-from-string output))
;; Get the list of issues for each file.
@@ -93,7 +92,7 @@ error structs."
(mapcar 'flycheck-vale--issue-to-error issues)))
(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))
(outbuf (get-buffer-create "*flycheck-vale-output*")))