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

Get rid of cl-loop

Browse Source
This commit is contained in:
Nathaniel Nicandro
2017-05-20 01:25:13 -05:00
parent 114fe2948c
commit 9d716d2612
1 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
flycheck-vale.el
View File

@@ -66,18 +66,18 @@
"Parse the full JSON output of vale, OUTPUT, into a sequence of flycheck error structs." "Parse the full JSON output of vale, OUTPUT, into a sequence of flycheck error structs."
(let* ((issues (cdar (json-read-from-string output))) (let* ((issues (cdar (json-read-from-string output)))
(filename (buffer-file-name buffer))) (filename (buffer-file-name buffer)))
(cl-loop (mapcar (lambda (issue)
for issue across issues collect (let-alist issue
(let-alist issue (flycheck-error-new
(flycheck-error-new :buffer buffer
:buffer buffer :filename filename
:filename filename :checker checker
:checker checker :line .Line
:line .Line :column (elt .Span 0)
:column (elt .Span 0) :message .Message
:message .Message :level (assoc-default .Severity flycheck-vale--level-map 'string-equal 'error)
:level (assoc-default .Severity flycheck-vale--level-map 'string-equal 'error) :id .Check)))
:id .Check))))) issues)))
(flycheck-def-executable-var vale "vale") (flycheck-def-executable-var vale "vale")