[racket-dev] [plt] Push #21078: master branch updated

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!