32 lines
961 B
Racket
32 lines
961 B
Racket
#lang racket/base
|
|
|
|
(provide
|
|
#%ornate-parens
|
|
#%s-shaped-bag-delim
|
|
#%inequality-brackets
|
|
#%double-inequality-brackets
|
|
#%moon-faces
|
|
|
|
#%cjk-corner-quotes
|
|
)
|
|
|
|
(require (for-syntax racket/base))
|
|
|
|
(define-syntax (pass-through-list stx)
|
|
(syntax-case stx ()
|
|
[(ptm e ...) #'(e ...)]))
|
|
(define-syntax #%ornate-parens (make-rename-transformer #'pass-through-list))
|
|
(define-syntax #%s-shaped-bag-delim (make-rename-transformer #'pass-through-list))
|
|
(define-syntax #%inequality-brackets (make-rename-transformer #'pass-through-list))
|
|
(define-syntax #%double-inequality-brackets (make-rename-transformer #'pass-through-list))
|
|
(define-syntax #%moon-faces (make-rename-transformer #'pass-through-list))
|
|
|
|
(define-syntax (pass-through-one stx)
|
|
(syntax-case stx ()
|
|
[(ptm e) #'e]))
|
|
;(define-syntax (#%cjk-corner-quotes) (make-rename-transformer #'pass-through-one))
|
|
(define-syntax (#%cjk-corner-quotes stx)
|
|
(syntax-case stx ()
|
|
[(ccq str) #'(pregexp str)]))
|
|
|