suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changed the save-to-desktop feature to remove slashes from path names

Browse Source 
svn: r4443
This commit is contained in:
Robby Findler 2006-09-26 22:04:03 +00:00
parent 1c9cc76add
commit 02e1833c8c
1 changed files with 4 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/sirmail/readr.ss
View File

@ -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)