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

6
flycheck-vale.el
View File

@@ -66,8 +66,7 @@
"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
@@ -77,7 +76,8 @@
: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")