diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-09-02 02:34:47 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-09-02 02:34:47 +0200 |
| commit | 67a2d3eac579b10e2f526f1282b459fcf8f12804 (patch) | |
| tree | da37308f7919a1f4ff051702cfe1948fba5d5f6a /elisp/geiser-racket.el | |
| parent | de61b6f6580be0daad3e7aa97acd1534c30fbedf (diff) | |
| download | geiser-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.el | 13 |
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))))) |