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

Autosaving when Scribble buttons are clicked

Browse Source
This commit is contained in:
Jay McCarthy 2010-08-26 10:27:02 -06:00
parent 7190d423f7
commit bd14fbb4ee
1 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/scribble/tools/drracket-buttons.rkt
View File

@ -24,7 +24,9 @@
(λ (drs-frame) (λ (drs-frame)
(let* ([t (send drs-frame get-definitions-text)] (let* ([t (send drs-frame get-definitions-text)]
[fn (send t get-filename)]) [fn (send t get-filename)])
(if (and fn (not (send t is-modified?))) (if fn
(begin
(send t save-file fn)
(let-values ([(p) (open-output-string)] (let-values ([(p) (open-output-string)]
[(base name dir?) (split-path fn)]) [(base name dir?) (split-path fn)])
(parameterize ([current-namespace (make-base-namespace)] (parameterize ([current-namespace (make-base-namespace)]
@ -46,8 +48,8 @@
(system (format "open ~s" (path->string (path-replace-suffix fn suffix))))])) (system (format "open ~s" (path->string (path-replace-suffix fn suffix))))]))
(let ([s (get-output-string p)]) (let ([s (get-output-string p)])
(unless (equal? s "") (unless (equal? s "")
(message-box "Scribble" s drs-frame)))) (message-box "Scribble" s drs-frame)))))
(message-box "Not Named" "Cannot render unsaved file")))))) (message-box "Scribble" "Cannot render buffer without filename"))))))
(define drracket-buttons (define drracket-buttons
(let ([html-button (let ([html-button