Marc Abramowitz » camel-case-from-underscored

3/19/2006

March 19th 2006 Posted to Programming, Scheme

Continuing Marc’s exploration of Lisp, today we present a Scheme function that might be marginally useful:

(define (camel-case-from-underscored underscored-name)
  (regexp-substitute/global #f "_"
    (string-capitalize underscored-name) 'pre 'post))

Here’s it in action - try to contain your excitement:

$ guile
guile> (load "string_stuff.scm")
guile> (camel-case-from-underscored "super_cool_button")
"SuperCoolButton"

Christopher Smith

March 19th, 2006 | 4:05 pm

Now, for a real challenge: make a function that will convert back and forth between the two formats.

Amazon.com Widgets