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

added first cut preferences

Browse Source 
original commit: e0602b131696404ed25ec79b12f8df83bde7ebac
This commit is contained in:
Robby Findler 1996-06-19 21:58:58 +00:00
parent a2747d5866
commit 62001f554c
1 changed files with 25 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
collects/mred/prefs.ss
View File

@ -1,3 +1,5 @@
;; need a preference for pconvert
(define mred:preferences@ (define mred:preferences@
(unit/s mred:preferences^ (unit/s mred:preferences^
(import [mred:debug mred:debug^] (import [mred:debug mred:debug^]
@ -16,20 +18,39 @@
(hash-table-get preferences p (hash-table-get preferences p
(lambda () (lambda ()
(raise (mred:exn:make-exn:unknown-preference (raise (mred:exn:make-exn:unknown-preference
(format "unknown preference: ~a" p))))))) (format "unknown preference: ~a" p)
((debug-info-handler))))))))
(define set-preference (define set-preference
(lambda (p value) (hash-table-put! preferences p value))) (lambda (p value) (hash-table-put! preferences p value)))
(define defaults '((highlight-parens #t))) (define defaults '((highlight-parens #t)
(autosaving-on? #t)
(autosave-delay 60)
(autoload-paths ("/usr/local/lib/plt/mred/autoload/"))))
(define restore-defaults (define restore-defaults
(lambda () (lambda ()
(for-each (lambda (x) (apply set-preference x)) (for-each (lambda (x) (apply set-preference x))
defaults))) defaults)))
(define save-user-preferences (lambda () (mred:debug:printf "saving prefs~n"))) (define save-user-preferences
(define read-user-preferences (lambda () (mred:debug:printf "reading prefs~n"))) (lambda ()
(call-with-output-file preferences-filename
(lambda (p) (write (hash-table-map preferences list) p))
'replace)))
(define read-user-preferences
(lambda ()
(when (file-exists? preferences-filename)
(for-each (lambda (x) (apply set-preference x))
(call-with-input-file preferences-filename read)))))
(define preferences-dialog
(lambda ()
(restore-defaults)
(save-user-preferences)
(wx:message-box "Saved default preferences.")))
(restore-defaults) (restore-defaults)
(read-user-preferences))) (read-user-preferences)))