camelcase.vim

"reference from String::CamelCase

function! camelcase#wordsplit(str)
  return split(a:str, '[_\s]\|[A-Z]\@<![A-Z]\@=\|[A-Z]\@<=[A-Z][a-z]\@=')
endfunction

function! camelcase#camelize(str) 
  return join(map(split(a:str, '[A-Za-z]\@<=_[A-Za-z]\@='), 'toupper(v:val[0]).v:val[1:]'), '')
endfunction

function! camelcase#decamelize(str) 
  return join(map(split(a:str, '[A-Z]\@<![A-Z]\@=\|[A-Z]\@<=[A-Z][a-z]\@='), 'tolower(v:val)'), '_') 
endfunction