decorator like python in racket

decorator.rkt

#lang racket

(define-syntax (define-decorator stx)
  (syntax-case stx ()
    [(_ (dector EXEC_RESULT) body ...)
     #`(define (dector fun)
         (make-keyword-procedure
          (lambda (kws kw-args . args)
            (let-syntax ([EXEC_RESULT
                          (lambda (stx)
                            #'(keyword-apply fun kws kw-args args))])
              body ...))))]))


;;define a decorator called begin-end
(define-decorator (begin-end EXEC_RESULT) (displayln "begin") EXEC_RESULT (displayln "end"))

;;decorate a function, eg. pretty-print
(require racket/pretty)
(define begin-end-pretty-print (begin-end pretty-print))

;;call the decorated function begin-end-pretty-print
(begin-end-pretty-print (+ 1 1) #:newline? #t)

alternative:
https://docs.racket-lang.org/reference/chaperones.html#%28def._%28%28lib._racket%2Fprivate%2Fbase..rkt%29._impersonate-procedure%29%29

alternative 2:
https://racket.discourse.group/t/decorators-in-racket/3624/6