You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
12 lines
546 B
Racket
12 lines
546 B
Racket
#lang br
|
|
(require racket/class)
|
|
(provide drracket-indenter)
|
|
|
|
(define (drracket-indenter t pos)
|
|
#;(with-handlers ([exn:fail? (λ(exn) #f)]) ; this function won't work until gui-lib 1.26
|
|
(send t compute-racket-amount-to-indent pos (λ(x)
|
|
(case x
|
|
[("with-pattern" "with-shared-id") 'lambda]
|
|
[("define-macro") 'define]
|
|
[else #f]))))
|
|
#f) |