From aab5226dfe937861c54729744e8add15d931f758 Mon Sep 17 00:00:00 2001 From: jao Date: Mon, 20 Jul 2020 04:41:00 +0100 Subject: geiser -> src --- geiser/emacs.scm | 58 -------------------------------------------------------- 1 file changed, 58 deletions(-) delete mode 100644 geiser/emacs.scm (limited to 'geiser/emacs.scm') diff --git a/geiser/emacs.scm b/geiser/emacs.scm deleted file mode 100644 index 6f2fc29..0000000 --- a/geiser/emacs.scm +++ /dev/null @@ -1,58 +0,0 @@ -;;; 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 . - -;; 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))) -- cgit v1.2.3