And I should heed my own advice about testing.
On Wed, Jun 21, 2017 at 8:40 PM, Jon Zeppieri <zeppi...@gmail.com> wrote:
>
> #lang at-exp racket
>
> (define (normalize-keywords in)
> (regexp-replace*
> @pregexp|{Keywords ?= ?\{\s*([^}]*)\}}|
> in
> (λ (_ s)
You may have noticed that I left out part of the replacement string. :)
> (string-join
> (map capitalize-first (regexp-split #px", *" s))
> ", "))))
Ahem...
(λ (_ s)
(string-append
"Keywords = {"
(string-join
(map capitalize-first (regexp-split #px", *" s))
", ")
"}"))
--
You received this message because you are subscribed to the Google Groups
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to racket-users+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
