But this is editing the user's preferences, not setting the defaults. Robby
On Mon, Sep 13, 2010 at 3:52 PM, Eli Barzilay <e...@barzilay.org> wrote: > On Sep 13, Robby Findler wrote: >> DrRacket doesn't yet have good tool support for such things, but it >> should at least look at the #lang line for indentation and probably >> will do that at some point (in which case the dialog will change to >> be letting you add things to what the #lang line specifies instead >> of just specifying everything). But not today, I'm sorry to say. > > Here's the code from my class tool: > > (define (add-form-specs) > (define (sethash! t key val) > (unless (hash-ref t key #f) (hash-set! t key val))) > (define (setalist l key val) > (if (assoc key l) l (cons (list key val) l))) > (let ([t (car (preferences:get 'framework:tabify))]) > (for ([s '(define: define-type)]) > (sethash! t s 'define)) > (for ([s '(lambda: cases)]) > (sethash! t s 'lambda))) > (let* ([l1 (preferences:get 'framework:square-bracket:cond/offset)] > [l2 (setalist l1 "define-type" 1)] > [l2 (setalist l2 "cases" 1)] > [l2 (setalist l2 "match" 1)]) > (unless (equal? l1 l2) > (preferences:set 'framework:square-bracket:cond/offset l2)))) > > (A minor extension to the preferences could probably even do that > without writing the file.) > > -- > ((lambda (x) (x x)) (lambda (x) (x x))) Eli Barzilay: > http://barzilay.org/ Maze is Life! > _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/dev
