From 9b31ffba524337003c00a62997a27a62a270100e Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz 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. --- scheme/racket/geiser/user.rkt | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'scheme') diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt index 38eefd8..5d3ab32 100644 --- a/scheme/racket/geiser/user.rkt +++ b/scheme/racket/geiser/user.rkt @@ -79,6 +79,9 @@ [(geiser-eval) (geiser-eval)] [(geiser-no-values) (datum->syntax #f (void))] [(add-to-load-path) (add-to-load-path (read))] + [(set-image-cache) (image-cache (read))] + [(image-cache) (image-cache)] + [(gcd) (current-directory)] [(cd) (current-directory (read))] [else form])] [_ form]))) @@ -88,12 +91,18 @@ (printf "racket@~a> " (namespace->module-name (current-namespace) (last-entered))))) +(define image-cache + (let ([ensure-dir (lambda (dir) + (and (path-string? dir) + (begin (make-directory* dir) dir)))]) + (make-parameter #f ensure-dir))) + (define (geiser-prompt-read prompt) (make-repl-reader (geiser-read prompt))) (define (geiser-save-tmpimage imgbytes) ;; Save imgbytes to a new temporary file and return the filename - (define filename (make-temporary-file "geiser-img-~a.png")) + (define filename (make-temporary-file "geiser-img-~a.png" #f (image-cache))) (with-output-to-file filename #:exists 'truncate (lambda () (display imgbytes))) filename) -- cgit v1.2.3