寝てたら腹痛で叩きおこされて、よれよれになるぐらいの下痢をした

http://www.vim.org/scripts/script.php?script_id=1984

早いとの話だったので乗り換えたらホントに爆速でした。開発効率が1.5倍ぐらいになりそうです!!1 fuzzyfinder 自体 life changing なのにさらに……

設定をメモ

let g:fuf_modesDisable = ['mrucmd']
let g:fuf_file_exclude = '\v\~$|\.(o|exe|bak|swp|gif|jpg|png)$|(^|[/\\])\.(hg|git|bzr)($|[/\\])'
let g:fuf_mrufile_exclude = '\v\~$|\.bak$|\.swp|\.howm$|\.(gif|jpg|png)$'
let g:fuf_mrufile_maxItem = 10000
let g:fuf_enumeratingLimit = 20
let g:fuf_keyPreview = '<C-]>'
let g:fuf_previewHeight = 0

nmap bg :FufBuffer<CR>
nmap bG :FufFile <C-r>=expand('%:~:.')[:-1-len(expand('%:~:.:t'))]<CR><CR>
nmap gb :FufFile **/<CR>
nmap br :FufMruFile<CR>
nmap bq :FufQuickfix<CR>
nmap bl :FufLine<CR>
nnoremap <silent> <C-]> :FufTag! <C-r>=expand('<cword>')<CR><CR> 

適当にセコンさんのをパクった。ちなみに僕は FufFile **/ を最もよく使う…… (MRU は候補に必要なファイルが確実にでてくるときしか安心できないのでなかなか使う機会がない)

FufLine が便利そうなので使ってみることに (覚えやすいように bl にマップ)

あと候補が下に出てほしいので preview をオフにして以下のパッチをあてた。

diff --git a/.vim/autoload/fuf.vim b/.vim/autoload/fuf.vim
index 0a91d3a..9d25e88 100644
--- a/.vim/autoload/fuf.vim
+++ b/.vim/autoload/fuf.vim
@@ -766,11 +766,11 @@ let s:bufNrFuf = -1
 "
 function s:openFufBuffer()
   if !bufexists(s:bufNrFuf)
-    topleft 1new
+    botright 1new
     silent file `='[fuf]'`
     let s:bufNrFuf = bufnr('%')
   elseif bufwinnr(s:bufNrFuf) == -1
-    topleft 1split
+    botright 1split
     execute 'silent ' . s:bufNrFuf . 'buffer'
     delete _
   elseif bufwinnr(s:bufNrFuf) != bufwinnr('%')

を書いてみた

http://github.com/cho45/dotfiles/blob/master/bin/worker.rb

例えば、URL を引数にとってダウンロードするコマンド fetch-video.pl があるとして

worker.rb =fetch-video.pl /tmp/video

で /tmp/video をキューに fetch-video.pl を実行するワーカーをつくる (= がついてるのは zsh で補完するためなので別に必要ではない)

あとは

echo http://www.nicovideo.jp/watch/nm5253338 >> /tmp/video
echo http://www.nicovideo.jp/watch/sm8990785 >> /tmp/video
echo http://www.nicovideo.jp/watch/sm8722527 >> /tmp/video

みたいに適当に echo していけばジョブが順に走る。

zsh の機能であったりしそうだけど、わからなかった。なんかもっといい方法はあるかな。

結構長い文字列を比較させるとどこが違っているのかよくわからん…… ということがあるので、クソコードを書いて結果を読みやすくしました。Test::Builder::_is_diag を書きかえています

use Test::More;
use Algorithm::Diff;
use Term::ANSIColor;

sub colordiff {
    my ($a, $b) = @_;
    my $ret = "";

    my $diff = Algorithm::Diff->new([ split /\n/, $a ], [ split /\n/, $b ]);
    $diff->Base(1);
    while ($diff->Next) {
        if ($diff->Same) {
            $ret .= "  " . $_ . "\n" for $diff->Items(1);
        }
        elsif (!$diff->Items(2)) {
            $ret .= colored("- " . $_, 'red').   "\n" for $diff->Items(1);
        }
        elsif (!$diff->Items(1)) {
            $ret .= colored("+ " . $_, 'green'). "\n" for $diff->Items(2);
        }
        else {
            my $lineDiff = Algorithm::Diff->new(
                [ split //, "* " . join("\n* ", $diff->Items(1)) . "\n" ],
                [ split //, "* " . join("\n* ", $diff->Items(2)) . "\n" ]
            );
            $lineDiff->Base(1);

            while ($lineDiff->Next) {
                if ($lineDiff->Same) {
                    $ret .= $_ for $lineDiff->Items(1);
                } elsif (!$lineDiff->Items(2)) {
                    $ret .= colored($_, 'red')   for $lineDiff->Items(1);
                } elsif (!$lineDiff->Items(1)) {
                    $ret .= colored($_, 'green') for $lineDiff->Items(2);
                } else {
                    $ret .= colored($_, 'red')   for $lineDiff->Items(1);
                    $ret .= colored($_, 'green') for $lineDiff->Items(2);
                }
            }
        }
    }
    $ret;
}

{
    *Test::Builder::_is_diag  = sub {
        my ($self, $got, $type, $expect) = @_;

        $self->_diag_fmt( $type, $_ ) for \$got, \$expect;
        my $diff = colordiff($got, $expect);

        no strict;
        local $Test::Builder::Level = $Test::Builder::Level + 1;
        return $self->diag(<<"DIAGNOSTIC");
         got: $got
    expected: $expect
$diff
DIAGNOSTIC
    };
}

あと、printable ではない文字を、そのままテスト結果に吐かれても困るので

{
    no warnings 'redefine';
    *Test::Builder::_diag_fmt = sub {
        my ($self, $type, $val) = @_;
        if ( defined $$val ) {
            if( $type eq 'eq' or $type eq 'ne' ) {
                $$val = dumper($$val);
                $$val = "'$$val'";
            }
            else {
                $self->_unoverload_num($val);
            }
        } else {
            $$val = 'undef';
        }
    };
}

sub dumper ($) {
    my ($str) = @_;
    $str =~ s{([^\x0a\x20-\x7e\x{3040}-\x{309F}\x{30A0}-\x{30FF}])}{
        sprintf('\\x%02x', ord $1);
    }eg;
    $str;
}

とかやっています。見えない文字があるとかは切実に困るので割と便利です

全く知らなくて少しまえに大変にハマったのですが、Data::Dumper は普通に使うと \0 を Dump しないようです。(してるけど見えない?)

my $str = "\0";
Dumper $str; #=> ''

[ unpack("C*", $str) ]; #=> [ 0 ];

普段 p を Data::Dumper に展開するようにしてデバッグしているので本当にハマります。

個人的にはデバッグ用に

• utf8 flagged 文字列かどうかが見た目でわかる
• \0 がちゃんと出てくる
• 表示できそうな文字 (英数字・ひらがなカタカナ程度) 以外は全部 \x{} に

みたいなのが簡単にできるモジュールが欲しいのですが既にあるのかな

http://github.com/cho45/dotfiles/commit/848c2c7fc90918c1dc21dcb2ce79b48611569bb2

またいろいろいじくっていて、大きな変更をいくつか入れたりしています

• lists に対応
  • @mzp さんがなんとなくやっていらっしゃったのを取り込みつつ
  • 今まで存在していた group 機能は廃止され、lists になりました
• 発言者が follower かどうかがわかりやすく
  • 発言者が follower じゃない場合 (一方的に follow している場合)、その人に +o がつくので、だいたいのクライアントだと @ がつきます
• 発言者が protected の場合わかりやすく
  • 発言者が protected の場合、+v がつきます。irssi だと % がつきます
• /me reload を追加
  • 大抵の変更は tig.rb の再起動なしで反映できるようになりました
• ratio を自動計算に
  • あまり賢くないのでまだどうにかしたいですが、ratelimit が緩和されてやる気がなくなったので放置気味
  • 更新頻度に応じてクロール頻度が変わります。
  • /me ratio で確認できます
  • (例: Intervals: #)

$ git clone git://github.com/cho45/net-irc.git
$ cd net-irc
$ ruby examples/tig.rb --debug

というのが欲しい機会はなかなかに多くて、その度に「取得したデータはどこに保存しておこう?」と悩みます。MySQL にいれるほどでもない。/tmp においてしまうと消えてしまってこわい。

のでスクリプトファイル自体に書きこんでしまう、というのを考えてみました。ちょっとこわいですが簡単なスクリプトならこう書いて cron でぶんまわしてもいいかもしれないですね。

retrieve_updates には、文字列の配列リファレンスを返すルーチンを渡してやります。そうすると実行する度に前回との差分を返します。

Opera 10.50 から遂にダイアログ系が全てページごとに別々になった。ページ内ではちゃんとブロックするけど、ブラウザ全体はブロックしない。最も正しい挙動だと思う。

Opera は前々から、alert に script 実行を止めるチェックボックスがついていたり、Basic 認証のダイアログが大量に開いたとしても、同じ認証は1度入力すれば全て消える仕様になっていて、それなりにまともだったけれど、10.50 からは、もう煩わしい大量のダイアログに悩む必要がなくなった。素晴しい!

懸念されるようなこともないことはない。ページ内に Basic 認証のダイアログが表示される形になるので、フィッシィングサイトがでてくる可能性があるかもしれない。一応、Server という部分をクリックすると、ちゃんとダイアログがでて検証可能 (https の場合は証明書の確認・http の場合はフィッシングサイトではないか、という確認) になってる。まぁ知らないサイトの Basic 認証を入力することなんてないと思うけど……