Vimから検索&投稿できるようにしてみたい - Stellaqua

変数名やら関数名やらを考えるのは当然プログラミング中な訳で、自分の場合はVimmerなのでVimから名付けて.ね〜むのAPIを叩いて、検索&登録できないかちょっと考えてみました。

どうするのが良いか色々考えたんですが、Vimの関数として定義しておいて、":hoge 作成する"みたいな感じで検索できるのが良いかな、という事でVim スクリプトで実装してみる事に。

…とは言え、Vim スクリプトなんてまともに触った事が無い…Vim スクリプトだけで何とかするのは無理と判断して、検索&登録の機能自体はPHPで実装しちゃって、Vim スクリプトから呼び出す形にしました。

Vim スクリプトを書いてみよう

という事で、今回の話のメインはVimから呼び出すところなので、Vim スクリプトのところだけコードを晒してみます。

if exists('loaded_namedwords')
    finish
endif
let loaded_namedwords = 1

if !exists('g:nw_command')
    let g:nw_command = '!php ~/bin/namedwords/nwcli.php'
endif

function! GetNamedwords(meaning)
    exec g:nw_command." search '".a:meaning."'"
endfunction

function! PostNamedwords(meaning, namedword, ...)
    let mode = 'create'

    let cmd_str = g:nw_command
    let cmd_str = cmd_str." ".mode
    let cmd_str = cmd_str." '".a:meaning."'"
    let cmd_str = cmd_str." '".a:namedword."'"

    if a:0 == 0
        let cmd_str = cmd_str." ''"
    else
        let cmd_str = cmd_str." '".a:1."'"
    endif

    if a:0 >= 2
        let cmd_str = cmd_str." '".a:2."'"
    elseif exists('g:nw_author')
        let cmd_str = cmd_str." '".g:nw_author."'"
    endif

    exec cmd_str
endfunction

exec 'command! -nargs=+ Nwget :call GetNamedwords(<f-args>)'
exec 'command! -nargs=+ Nwpost :call PostNamedwords(<f-args>)'