diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2020-08-30 14:01:47 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2020-08-30 14:01:47 +0200 |
| commit | 5c05b03e8a5c450f7358ceec7ea602f29c49d54e (patch) | |
| tree | 9b5c01f1d237b04bb3cb3d13a80c6339ad8ca888 /guile-studio-configure.scm | |
| parent | 8d974636a5b2aa2465243a1256c5a80d14ab8551 (diff) | |
Use flycheck-guile package.0.0.3
Diffstat (limited to 'guile-studio-configure.scm')
| -rw-r--r-- | guile-studio-configure.scm | 37 |
1 files changed, 1 insertions, 36 deletions
diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index fd75dc6..f13d860 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -203,42 +203,7 @@ with the " ;; Check syntax on the fly (require 'flycheck) - (flycheck-define-checker guile - "A Guile syntax checker with `guild compile'." - :command ("guild" "compile" "--to=cps" - "--warn=unused-variable" - "--warn=unused-toplevel" - "--warn=unbound-variable" - "--warn=macro-use-before-definition" - "--warn=arity-mismatch" - "--warn=duplicate-case-datum" - "--warn=bad-case-datum" - "--warn=format" - source) - :predicate - (lambda () - (and (boundp 'geiser-impl--implementation) - (eq geiser-impl--implementation 'guile))) - :verify - (lambda (checker) - (let ((geiser-impl (bound-and-true-p geiser-impl--implementation))) - (list - (flycheck-verification-result-new - :label "Geiser Implementation" - :message (cond - ((eq geiser-impl 'guile) "Guile") - (geiser-impl (format "Other: %s" geiser-impl)) - (t "Geiser not active")) - :face (cond - ((or (eq geiser-impl 'guile)) 'success) - (t '(bold error))))))) - :error-patterns - ((warning - line-start (file-name) ":" line ":" column ": warning:" (message) line-end) - (error - line-start (file-name) ":" line ":" column ":" (message) line-end)) - :modes (scheme-mode geiser-mode)) - (add-to-list 'flycheck-checkers 'guile) + (require 'flycheck-guile) (global-flycheck-mode 1) ;; Remember location in buffers |