summaryrefslogtreecommitdiff
path: root/elisp/geiser-racket.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-09-02 02:34:47 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-09-02 02:34:47 +0200
commit67a2d3eac579b10e2f526f1282b459fcf8f12804 (patch)
treeda37308f7919a1f4ff051702cfe1948fba5d5f6a /elisp/geiser-racket.el
parentde61b6f6580be0daad3e7aa97acd1534c30fbedf (diff)
downloadgeiser-guile-67a2d3eac579b10e2f526f1282b459fcf8f12804.tar.gz
geiser-guile-67a2d3eac579b10e2f526f1282b459fcf8f12804.tar.bz2
Image display functionality refactored to its own module
Diffstat (limited to 'elisp/geiser-racket.el')
-rw-r--r--elisp/geiser-racket.el13
1 files changed, 4 insertions, 9 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 6a9847b..8794f84 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -14,6 +14,7 @@
(require 'geiser-edit)
(require 'geiser-doc)
(require 'geiser-eval)
+(require 'geiser-image)
(require 'geiser-syntax)
(require 'geiser-custom)
(require 'geiser-base)
@@ -63,12 +64,6 @@ 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:
@@ -99,10 +94,10 @@ This function uses `geiser-racket-init-file' if it exists."
(defconst geiser-racket--prompt-regexp "\\(mzscheme\\|racket\\)@[^ ]*?> ")
(defun geiser-racket--startup (remote)
- (if geiser-racket-image-cache-directory
+ (if geiser-image-cache-dir
(geiser-eval--send/wait
- `(:eval (image-cache ,geiser-racket-image-cache-directory) geiser/user))
- (setq geiser-racket-image-cache-directory
+ `(:eval (image-cache ,geiser-image-cache-dir) geiser/user))
+ (setq geiser-image-cache-dir
(geiser-eval--send/result '(:eval (image-cache) geiser/user)))))