hatena.vim

function! g:Hatena(arg, line1, line2)
perl << EOF
    use Text::Hatena;

    my ($success, $firstline) = VIM::Eval('a:line1');
    my ($success, $lastline) = VIM::Eval('a:line2');

    my $base_text  = join "\n", $curbuf->Get($firstline .. $lastline);
    my $parse_text = Text::Hatena->parse($base_text);

    my @html = split("\n", $parse_text);
    shift @html;
    pop   @html;

    $curbuf->Append($lastline, @html);
    $curbuf->Delete($firstline, $lastline);
EOF
endfunction

command! -range=% -nargs=? Hatena :call g:Hatena(<q-args>, <line1>, <line2>)