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

Change scribble so that is overwrites the destination file when it makes a .pdf file

Browse Source 
instead of copying the file into place. This makes Lion's Preview happier (specifically
it now recognizes the file as a revision of the old one and updates itself instead of
treating it as a new file and opening a second window)

original commit: f9e1c41cb0a7f84766207d7a092443dbb5a17e1c
This commit is contained in:
Robby Findler 2011-09-18 20:35:53 -05:00
parent 867af4149a
commit 7265c614d4
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/scribble/private/indirect-renderer.rkt
View File

@ -1,6 +1,7 @@
#lang scheme/base #lang scheme/base
(require scheme/class scheme/file scheme/path) (require scheme/class scheme/file scheme/path
racket/port)
(provide make-indirect-renderer-mixin) (provide make-indirect-renderer-mixin)
@ -40,7 +41,11 @@
(convert (file-name-from-path tmp))) (convert (file-name-from-path tmp)))
(when (super report-output?) ; use the original (when (super report-output?) ; use the original
(printf " [Output to ~a]\n" dst)) (printf " [Output to ~a]\n" dst))
(when (file-exists? dst) (delete-file dst)) (call-with-output-file dst
(copy-file (build-path tmp-dir (file-name-from-path dst)) dst)) (λ (out-port)
(call-with-input-file (build-path tmp-dir (file-name-from-path dst))
(λ (in-port)
(copy-port in-port out-port))))
#:exists 'truncate))
(cleanup))) (cleanup)))
(super-new))) (super-new)))