How My Heart Sings

オレオレ版taskpaper.vim

taskpaper.vimは、HogBaySoftwareが提唱しているtodo-listのフォーマットをvimで扱うためのプラグインです。taskpaperのフォーマットを扱うプラグインの類いはBBEdit向けほか、リッチなものから簡素なものまで、有料なものだってあるのです。

元はただの書式付きテキストファイルなんで、有料の専用ソフトを買うのも何だかなーと思って、自分はvimで使っています。いや、有料のソフトのほうがリッチなんですけど。で、このvim用プラグインは簡素なほうなので、拡張してみました。ちょうべんり。

"setlocal iskeyword+=@-@
setlocal iskeyword+=@-@,(

taskpaperはタスクに@due(20110202）みたいに自由にタグを付けて管理できるのですが、元のままだと例のようなタグは括弧の手前までしか認識してくれないので。

function! s:ToggleDoneWithRepeat()

    let line = getline(".")
    if (line =~ '^\s*- ')
        let repl = line
        if (line =~ '@done')
            let repl = substitute(line, "@done\(.*\)", "", "g")
            echo "undone!"
            call setline(".", repl)
        else
            let today = strftime("%Y-%m-%d", localtime())
            let done_str = " @done(" . today . ")"

            let aUserInputDate = input("Input next due date(yyyymmdd): ")
            let next_due_str = " @due(" . aUserInputDate . ")"

            let repl = substitute(line, "@due\(.*\)", "", "g")
            let repl = substitute(repl, "$", next_due_str , "g")
            
            let repl2 = substitute(line, "$", done_str , "g")
            echo "done, archive and repeat!"
            call setline(".", repl)
            call setline("$", repl2)
        endif
    else 
        echo "not a task."
    endif

endfunction

" toggle @done context tag on a task and archive 
function! s:ToggleDoneAndArchive()

    let line = getline(".")
    if (line =~ '^\s*- ')
        let repl = line
        if (line =~ '@done')
            let repl = substitute(line, "@done\(.*\)", "", "g")
            echo "undone!"
            call setline(".", repl)
        else
            let today = strftime("%Y-%m-%d", localtime())
            let done_str = " @done(" . today . ")"

            let repl = substitute(line, "$", done_str , "g")
            echo "done and Archive!"
            call setline(".", "")
            call setline("$", repl)
        endif
    else 
        echo "not a task."
    endif

endfunction

元のプラグインからコピペして、ファンクションを二つ追加しました。最初のはdoneにする際に対話的にdue dateを入力させ次回用のタスクにタグとして付ける・完了したタスクはファイルのお尻に移動するところまで一発で実行するもの。次のは一発でタスクを完了させてファイルのお尻に移動するだけのもの。後追加しなきゃいけないのは呼び出し周辺で、これはプラグインのソースを見ればすぐ分る。キーバインドはお好みで。

"map <buffer> <silent> <LocalLeader>tk mA <Plug>ToggleDone ddGp 'A
"map <buffer> <silent> <LocalLeader>tr mA yy p <Plug>ToggleDone 'A

最初はすぐ上のような感じで簡易に汚ないことをしていて、別に問題無かったのですが、これだとファインクションが出してるメッセージが消えちゃうしということで、ちゃんと作ろうと思ったのです。ちなみに、ウインドウズでしか試していません。