[nongnu] elpa/geiser-guile 19f55b0 097/284: New implementation registration mechanism, for the elisp side of things.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 19f55b0b94c727a5eb34d39274c2f1038c122d95
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    New implementation registration mechanism, for the elisp side of things.
    
    Implementations must invoke define-geiser-implementation with an
    appropriate set of methods. Simple inheritance is supported. Each
    geiser module defines and registers the method names it uses.
---
 elisp/geiser-guile.el | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index fca4b01..806bc97 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -69,15 +69,6 @@ This function uses `geiser-guile-init-file' if it exists."
 
 (defconst geiser-guile-prompt-regexp "^[^() \n]+@([^)]*?)> ")
 
-(defun switch-to-guile (&optional ask)
-  (interactive "P")
-  (switch-to-geiser ask 'guile))
-
-(defun run-guile ()
-  "Run Geiser using Guile."
-  (interactive)
-  (run-geiser 'guile))
-
 
 ;;; Evaluation support:
 
@@ -158,6 +149,22 @@ This function uses `geiser-guile-init-file' if it exists."
   (save-excursion
     (goto-char (point-min))
     (re-search-forward geiser-guile--module-re nil t)))
+
+
+;;; Implementation definition:
+
+(define-geiser-implementation guile
+  (binary geiser-guile-binary)
+  (arglist geiser-guile-parameters)
+  (startup)
+  (prompt-regexp geiser-guile-prompt-regexp)
+  (marshall-procedure geiser-guile-geiser-procedure)
+  (find-module geiser-guile-get-module)
+  (find-symbol-begin geiser-guile-symbol-begin)
+  (display-error geiser-guile-display-error)
+  (display-help)
+  (check-buffer geiser-guile-guess))
+
 
 (provide 'geiser-guile)
 ;;; geiser-guile.el ends here