snake_case を snakeCase にする VimScript

Vim

あからさまに車輪の再発明しました。
いいんです。練習ですし。

元ネタ

はてな

これ見て便利そうだなーと思ったので。

参考

Vimスクリプト基礎文法最速マスター - 永遠に未完成
Big Sky :: モテる男のVim Script短期集中講座
カーソル下の URL を短縮URL に変換する Vim script 書いた - C++でゲームプログラミング

他多数。
あと当然 :help も。

コード

function! ToCamelCase()
    let snake_case = expand('<cword>')

    if !strlen(snake_case)
        return
    endif

    let word_list = split(snake_case, '_')
    let camel_case = word_list[0]

    for word in word_list[1:]
        let camel_case = camel_case . toupper(word[0]) . word[1:]
    endfor

    call setline(getpos(".")[1], substitute(getline("."), snake_case, camel_case, ""))
endfunction

command! ToCamelCase :call ToCamelCase()
nnoremap <silent><C-k>   :<C-u>ToCamelCase<CR>
inoremap <silent><C-k> <Esc>:<C-u>ToCamelCase<CR><Insert>

snake_case は snakeCase に、Snake_case は SnakeCase に変換します。

感想

VimScript 楽しいです。