Use flycheck-guile package. master 0.0.3
authorRicardo Wurmus <rekado@elephly.net>
Sun, 30 Aug 2020 12:01:47 +0000 (14:01 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Sun, 30 Aug 2020 12:01:47 +0000 (14:01 +0200)
Makefile
guile-studio-configure.scm
guix/rekado/guile-studio.scm

index b3c7fbc34728cb65eb088e1afbafdbcbac8e4868..43fc140f7806ddc660a67d6f4f55a2c770fbc029 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -1,4 +1,4 @@
-VERSION = 0.0.2
+VERSION = 0.0.3
 
 SOURCES = \
   guile-studio-configure.scm \
index fd75dc61dfeb1bae52e80805e56631b3d1a95bae..f13d860279f8a992acbf7dae2502119282996fb3 100644 (file)
@@ -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
index 5592853a6ed40e1d2c9da415cb371d922483e221..d19258aaff997f30c0c1e14dbf30fa0264c79f64 100644 (file)
@@ -14,8 +14,8 @@
 (define-public guile-studio
   (package
     (name "guile-studio-devel")
-    (version "0.0.2")
-    (source (local-file (string-append "../../guile-studio-" version ".tar.gz")))
+    (version "0.0.3")
+    (source (local-file (string-append "guile-studio-" version ".tar.gz")))
     (build-system gnu-build-system)
     (arguments
      `(#:modules
@@ -52,6 +52,7 @@
        ("emacs-geiser" ,emacs-geiser)
        ("emacs-company" ,emacs-company)
        ("emacs-flycheck" ,emacs-flycheck)
+       ("emacs-flycheck-guile" ,emacs-flycheck-guile)
        ("emacs-smart-mode-line" ,emacs-smart-mode-line)
        ("emacs-paren-face" ,emacs-paren-face)
        ("adwaita-icon-theme" ,adwaita-icon-theme)))