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
