16 lines
419 B
Scheme
16 lines
419 B
Scheme
(module name-utils scheme/base
|
|
|
|
(provide (except-out (all-defined-out) getter))
|
|
|
|
(define (getter match-pattern replace-pattern)
|
|
(lambda (name)
|
|
(cond
|
|
[(symbol? name) name]
|
|
[(regexp-match match-pattern name) (regexp-replace replace-pattern name "")]
|
|
[else name])))
|
|
|
|
(define get-leading-name (getter "\\." "\\.(.)*"))
|
|
(define get-last-name (getter "\\." "^(.)*\\."))
|
|
|
|
)
|