[nongnu] elpa/geiser-racket 51cd041 101/191: Image display functionality refactored to its own module

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 51cd04123dfb8e47304d20387f0817088f52260b
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Image display functionality refactored to its own module
---
 elisp/geiser-racket.el | 13 ++++---------
 1 file 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)))))