From 02e1833c8cd1cf73dc8fcb8e87490e8e75de5961 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 26 Sep 2006 22:04:03 +0000 Subject: [PATCH] changed the save-to-desktop feature to remove slashes from path names svn: r4443 --- collects/sirmail/readr.ss | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) diff --git a/collects/sirmail/readr.ss b/collects/sirmail/readr.ss index bdef3defbf..1e67d1db25 100644 --- a/collects/sirmail/readr.ss +++ b/collects/sirmail/readr.ss @@ -2515,20 +2515,15 @@ (send t change-style url-delta s e))) (when (eq? (system-type) 'macosx) (when fn - (let ([full-fn (if (and (path-string? fn) - (let-values ([(base name dir?) (split-path fn)]) - (or (eq? base 'relative) - (path? base)))) - (path->string (normalize-path (build-path "~/Desktop" fn))) - fn)]) + (let ([safer-fn (normalize-path (string-append "~/Desktop/" (regexp-replace #rx"/" fn "-")))]) (insert " " set-standard-style) - (insert "[save & open]" + (insert "[save to ~/Desktop/ & open]" (lambda (t s e) (send t set-clickback s e (lambda (a b c) - (to-file full-fn) + (to-file safer-fn) (parameterize ([current-input-port (open-input-string "")]) - (system* "/usr/bin/open" full-fn))) + (system* "/usr/bin/open" (path->string safer-fn)))) #f #f) (send t change-style url-delta s e))))))) (insert "\n" set-standard-style)