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

Added variable to turn on/off vale for specific buffers.

Browse Source
This commit is contained in:
Austin Bingham
2017-05-16 15:25:18 +02:00
parent dc9f5276ed
commit b6eafed59c
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
flycheck-vale.el
View File

@@ -65,6 +65,9 @@
:type '(string) :type '(string)
:group 'flycheck-vale) :group 'flycheck-vale)
(defvar-local flycheck-vale-enabled t
"Buffer-local variable determining if flycheck-vale should be applied.")
(defconst flycheck-vale--level-map (defconst flycheck-vale--level-map
'(("error" . error) '(("error" . error)
("warning" . warning))) ("warning" . warning)))
@@ -147,9 +150,16 @@ passing the results to CALLBACK."
This adds the vale checker to the list of flycheck checkers." This adds the vale checker to the list of flycheck checkers."
(add-to-list 'flycheck-checkers 'vale)) (add-to-list 'flycheck-checkers 'vale))
;;;###autoload
(defun flycheck-vale-toggle-enabled ()
"Toggle `flycheck-vale-enabled'."
(interactive)
(setq flycheck-vale-enabled (not flycheck-vale-enabled)))
(flycheck-define-generic-checker 'vale (flycheck-define-generic-checker 'vale
"A flycheck checker using vale natural language linting." "A flycheck checker using vale natural language linting."
:start #'flycheck-vale--start :start #'flycheck-vale--start
:predicate (lambda () flycheck-vale-enabled)
:modes flycheck-vale-modes) :modes flycheck-vale-modes)
(provide 'flycheck-vale) (provide 'flycheck-vale)