michael/lean2
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

refactor(emacs/lean-flycheck): remove lean-flycheck-initialized

Browse source
This commit is contained in:
Soonho Kong 2014-08-25 11:25:36 -07:00
parent 495809d86d
commit 812934f31f
1 changed files with 16 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
src/emacs/lean-flycheck.el
View file

@ -6,10 +6,8 @@
(require 'lean-settings)
(defvar lean-flycheck-initialized nil
"Return true if lean-flycheck has been initialized")
(defun lean-flycheck-command ()
"Concat lean-flychecker-checker-name with options"
(cl-concatenate 'list
`(,(lean-get-executable lean-flycheck-checker-name))
lean-flycheck-checker-options
@ -18,29 +16,23 @@
(defun lean-flycheck-init ()
"Initialize lean-flychek checker"
(unless lean-flycheck-initialized
(require 'flycheck)
(eval
`(flycheck-define-checker lean-checker-file
"A Lean syntax checker (file)."
:command ,(lean-flycheck-command)
:error-patterns
((error line-start "FLYCHECK_BEGIN ERROR\n"
(file-name) ":" line ":" column ": error: "
(eval
`(flycheck-define-checker lean-checker
"A Lean syntax checker."
:command ,(lean-flycheck-command)
:error-patterns
((error line-start "FLYCHECK_BEGIN ERROR\n"
(file-name) ":" line ":" column ": error: "
(minimal-match
(message (one-or-more (one-or-more not-newline) "\n") ))
"FLYCHECK_END" line-end)
(warning line-start "FLYCHECK_BEGIN WARNING\n"
(file-name) ":" line ":" column ": warning "
(minimal-match
(message (one-or-more (one-or-more not-newline) "\n") ))
"FLYCHECK_END" line-end)
(warning line-start "FLYCHECK_BEGIN WARNING\n"
(file-name) ":" line ":" column ": warning "
(minimal-match
(message (one-or-more (one-or-more not-newline) "\n") ))
"FLYCHECK_END" line-end))
:modes (lean-mode)
:predicate
(lambda () (and buffer-file-name
(string= "lean" (file-name-extension buffer-file-name))))))
(add-to-list 'flycheck-checkers 'lean-checker-file)
(setq lean-flycheck-initialized t)))
"FLYCHECK_END" line-end))
:modes (lean-mode)))
(add-to-list 'flycheck-checkers 'lean-checker))
(defun lean-flycheck-turn-on ()
(interactive)
@ -48,7 +40,6 @@
(when (interactive-p)
(message "use flycheck in lean-mode"))
(setq lean-flycheck-use t))
(lean-flycheck-init)
(flycheck-mode t))
(defun lean-flycheck-turn-off ()
@ -65,9 +56,6 @@
(lean-flycheck-turn-off)
(lean-flycheck-turn-on)))
(add-hook 'lean-mode-hook '(lambda ()
(when lean-flycheck-use (lean-flycheck-turn-on))))
(defun lean-flycheck-try-parse-error-with-pattern (err pattern)
"Try to parse a single ERR with a PATTERN.