From 9b31ffba524337003c00a62997a27a62a270100e Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Mon, 20 Aug 2012 06:15:04 +0200
Subject: Racket: configurable image cache directory

Brought to you by a comma-command in the REPL and the REPL startup
function.
---
 elisp/geiser-racket.el | 37 +++++++++++++++++++++++++------------
 1 file changed, 25 insertions(+), 12 deletions(-)

(limited to 'elisp')

diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 52f7a32..0cb4663 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -63,6 +63,12 @@ This executable is used by `run-gracket', and, if
   :type '(repeat string)
   :group 'geiser-racket)
 
+(geiser-custom--defcustom geiser-racket-image-cache-directory nil
+  "The directory where temporary image files generated by Racket are stored.
+If set to nil, the default system temp dir is used."
+  :type 'file
+  :group 'geiser-racket)
+
 
 ;;; REPL support:
 
@@ -92,6 +98,24 @@ This function uses `geiser-racket-init-file' if it exists."
 
 (defconst geiser-racket--prompt-regexp "\\(mzscheme\\|racket\\)@[^ ]*?> ")
 
+(defun geiser-racket--startup (remote)
+  (when geiser-racket-image-cache-directory
+    (geiser-eval--send/wait
+     (format ",set-image-cache %S\n'done"
+             geiser-racket-image-cache-directory))))
+
+
+;;; Remote REPLs
+
+(defun connect-to-racket ()
+  "Start a Racket REPL connected to a remote process.
+
+The remote process needs to be running a REPL server started
+using start-geiser, a procedure in the geiser/server module."
+  (interactive)
+  (geiser-connect 'racket))
+
+
 
 ;;; Evaluation support:
 
@@ -280,18 +304,6 @@ This function uses `geiser-racket-init-file' if it exists."
  (for*/vector 1))
 
 
-
-;;; Remote REPLs
-
-(defun connect-to-racket ()
-  "Start a Racket REPL connected to a remote process.
-
-The remote process needs to be running a REPL server started
-using start-geiser, a procedure in the geiser/server module."
-  (interactive)
-  (geiser-connect 'racket))
-
-
 
 ;;; Implementation definition:
 
@@ -299,6 +311,7 @@ using start-geiser, a procedure in the geiser/server module."
   (unsupported-procedures '(callers callees generic-methods))
   (binary geiser-racket--binary)
   (arglist geiser-racket--parameters)
+  (repl-startup geiser-racket--startup)
   (prompt-regexp geiser-racket--prompt-regexp)
   (marshall-procedure geiser-racket--geiser-procedure)
   (find-module geiser-racket--get-module)
-- 
cgit v1.2.3