branch: elpa/geiser-guile
commit 48e2b0059f7c92f6010cd338d76e6b4d9c69c2a9
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Scheme version checks
And, if you happen to be launching it all the time, a way of skipping
them via a customizable variable.
Should address issue #15.
---
elisp/geiser-guile.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 9182807..bc96973 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -289,6 +289,11 @@ This function uses `geiser-guile-init-file' if it exists."
;;; REPL startup
+(defconst geiser-guile-minimum-version "2.0")
+
+(defun geiser-guile--version (binary)
+ (shell-command-to-string (format "%s -c '(display (version))'" binary)))
+
(defun geiser-guile-update-warning-level ()
"Update the warning level used by the REPL.
The new level is set using the value of `geiser-guile-warning-level'."
@@ -364,6 +369,8 @@ it spawn a server thread."
(define-geiser-implementation guile
(binary geiser-guile--binary)
(arglist geiser-guile--parameters)
+ (version-command geiser-guile--version)
+ (minimum-version geiser-guile-minimum-version)
(repl-startup geiser-guile--startup)
(prompt-regexp geiser-guile--prompt-regexp)
(debugger-prompt-regexp geiser-guile--debugger-prompt-regexp)
