Ugly format for custom define-like

[quangIO]

.fmt.rkt

#lang racket/base

(provide the-formatter-map)
(require fmt/conventions)

(define (the-formatter-map s)
  (case s
    [("my-define") (format-define-like)]
    [else #f]))

file.rkt

#lang racket
(require (for-syntax syntax/parse))

(define-syntax (my-define stx)
  (syntax-parse stx
    [(_ (name:id args ...) body ...) #'(define name
                                         (λ (args ...)
                                           body ...))]))

after raco fmt file.std (notice the extra newline after stx)

#lang racket
(require (for-syntax syntax/parse))

(define-syntax (my-define stx
                 )
  (syntax-parse stx
    [(_ (name:id args ...) body ...) #'(define name
                                         (λ (args ...)
                                           body ...))]))

[sorawee]

Thanks for the report!