Cleanup per melpa review.
This commit is contained in:
@@ -1,10 +1,10 @@
|
|||||||
;;; flycheck-vale.el --- flycheck integration for vale
|
;;; flycheck-vale.el --- flycheck integration for vale -*- lexical-binding: t -*-
|
||||||
;; Copyright (c) 2017 Austin Bingham
|
;; Copyright (c) 2017 Austin Bingham
|
||||||
;;
|
;;
|
||||||
;; Author: Austin Bingham <austin.bingham@gmail.com>
|
;; Author: Austin Bingham <austin.bingham@gmail.com>
|
||||||
;; Version: 0.1
|
;; Version: 0.1
|
||||||
;; URL: https://github.com/abingham/flycheck-vale
|
;; URL: https://github.com/abingham/flycheck-vale
|
||||||
;; Package-Requires: ((emacs "24.4") (flycheck "0.22"))
|
;; Package-Requires: ((emacs "24.4") (flycheck "0.22") (let-alist "1.0.4"))
|
||||||
;;
|
;;
|
||||||
;; This file is not part of GNU Emacs.
|
;; This file is not part of GNU Emacs.
|
||||||
;;
|
;;
|
||||||
@@ -44,7 +44,9 @@
|
|||||||
;;
|
;;
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
|
(require 'cl-lib)
|
||||||
(require 'flycheck)
|
(require 'flycheck)
|
||||||
|
(require 'let-alist)
|
||||||
|
|
||||||
(defgroup flycheck-vale nil
|
(defgroup flycheck-vale nil
|
||||||
"Variables related to flycheck-vale."
|
"Variables related to flycheck-vale."
|
||||||
@@ -131,9 +133,9 @@ passing the results to CALLBACK."
|
|||||||
flycheck-vale-program
|
flycheck-vale-program
|
||||||
"--output"
|
"--output"
|
||||||
"JSON")))
|
"JSON")))
|
||||||
(lexical-let ((checker checker)
|
(let ((checker checker)
|
||||||
(callback callback)
|
(callback callback)
|
||||||
(buf (current-buffer)))
|
(buf (current-buffer)))
|
||||||
(set-process-sentinel
|
(set-process-sentinel
|
||||||
proc
|
proc
|
||||||
#'(lambda (process event)
|
#'(lambda (process event)
|
||||||
|
Reference in New Issue
Block a user