summaryrefslogtreecommitdiff
path: root/src/geiser/emacs.scm
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2020-07-20 04:41:00 +0100
committerjao <jao@gnu.org>2020-07-20 04:41:00 +0100
commitaab5226dfe937861c54729744e8add15d931f758 (patch)
tree7397e3edaffb23d5efb6aad1762681834faabfa3 /src/geiser/emacs.scm
parent20043b13bb9756079d73c68ffd3942cecedb2b9e (diff)
downloadgeiser-guile-aab5226dfe937861c54729744e8add15d931f758.tar.gz
geiser-guile-aab5226dfe937861c54729744e8add15d931f758.tar.bz2
geiser -> src
Diffstat (limited to 'src/geiser/emacs.scm')
-rw-r--r--src/geiser/emacs.scm58
1 files changed, 58 insertions, 0 deletions
diff --git a/src/geiser/emacs.scm b/src/geiser/emacs.scm
new file mode 100644
index 0000000..6f2fc29
--- /dev/null
+++ b/src/geiser/emacs.scm
@@ -0,0 +1,58 @@
+;;; emacs.scm -- procedures for emacs interaction: entry point
+
+;; Copyright (C) 2009, 2010, 2011 Jose Antonio Ortega Ruiz
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the Modified BSD License. You should
+;; have received a copy of the license along with this program. If
+;; not, see <http://www.xfree86.org/3.3.6/COPYRIGHT2.html#5>.
+
+;; Start date: Sun Feb 08, 2009 18:39
+
+(define-module (geiser emacs)
+ #:use-module (ice-9 match)
+ #:use-module (system repl command)
+ #:use-module (system repl error-handling)
+ #:use-module (system repl server)
+ #:use-module (geiser evaluation)
+ #:use-module ((geiser modules) #:renamer (symbol-prefix-proc 'ge:))
+ #:use-module ((geiser completion) #:renamer (symbol-prefix-proc 'ge:))
+ #:use-module ((geiser xref) #:renamer (symbol-prefix-proc 'ge:))
+ #:use-module ((geiser doc) #:renamer (symbol-prefix-proc 'ge:)))
+
+(define this-module (resolve-module '(geiser emacs)))
+
+(define-meta-command ((geiser-no-values geiser) repl)
+ "geiser-no-values
+No-op command used internally by Geiser."
+ (values))
+
+(define-meta-command ((geiser-newline geiser) repl)
+ "geiser-newline
+Meta-command used by Geiser to emit a new line."
+ (newline))
+
+(define-meta-command ((geiser-eval geiser) repl (mod form args) . rest)
+ "geiser-eval module form args ()
+Meta-command used by Geiser to evaluate and compile code."
+ (if (null? args)
+ (call-with-error-handling
+ (lambda () (ge:compile form mod)))
+ (let ((proc (eval form this-module)))
+ (ge:eval `(,proc ,@args) mod))))
+
+(define-meta-command ((geiser-load-file geiser) repl file)
+ "geiser-load-file file
+Meta-command used by Geiser to load and compile files."
+ (call-with-error-handling
+ (lambda () (ge:compile-file file))))
+
+
+(define-meta-command ((geiser-start-server geiser) repl)
+ "geiser-start-server
+Meta-command used by Geiser to start a REPL server."
+ (let* ((sock (make-tcp-server-socket #:port 0))
+ (port (sockaddr:port (getsockname sock))))
+ (spawn-server sock)
+ (write (list 'port port))
+ (newline)))