Perl から Growl をちゃんと使おう

Cocoa::Growl

http://search.cpan.org/dist/Cocoa-Growl/

そんな不満を打破するべく僕は Cocoa::Growl を書いた。
XS で Objective-C をつかい、直接 Growl.framework を使う Growl モジュールだ。

Growl.framework が同封されていてデフォルトではそれをロードするが、/Library/Frameworks に Growl.framework を置いてあれば、

perl Makefile.PL USE_LOCAL_GROWL_FRAMEWORK=1

とすることで、そちらのライブラリにリンクするようビルドすることも出来る。

使い方は簡単。

use strict;
use warnings;
use Cocoa::Growl ':all';

growl_register(
    app           => 'Advent Calendar Notify',
    notifications => ['記号プログラミング'],
);

growl_notify(
    name        => '記号プログラミング',
    title       => 'ライター募集のお知らせ',
    description => '君も記号プログラミングしてみないか？ ｳﾎｯ',
    icon        => 'http://api.dan.co.jp/twicon/hasegawayosuke/bigger',
);

アプリケーションを register で登録して、notify を呼び出すだけ。
これだけで

こんな通知アプリケーションが書けます。

しかしこれだけではまだ全然満足できない。
Growl通知のクリックイベントがとりたいぃぃぃい！！！ というわけで AnyEvent::Impl::NSRunLoop と言うやつも作ったのだ。

http://search.cpan.org/dist/AnyEvent-Impl-NSRunLoop/

これを use しておくと Cocoa アプリケーションで使われているイベントループ上で AnyEvent アプリケーションを書くことが出来る。
つまり、このモジュールを併用することで Cocoa::Growl はクリックイベントをハンドリングすることができるのだ！

use AnyEvent;
use AnyEvent::Impl::NSRunLoop;

my $cv = AE::cv;

growl_notify(
    name        => '記号プログラミング',
    title       => 'ライター募集のお知らせ',
    description => '君も記号プログラミングしてみないか？ ｳﾎｯ',
    icon        => 'http://api.dan.co.jp/twicon/hasegawayosuke/bigger',
    on_click    => sub {
        `open /articles/advent-calendar/2010/sym/`;
        $cv->send;
    },
    on_timeout => sub {
        $cv->send;
    },
);

$cv->recv;

このサンプルはGrowl通知がクリックされたらURLをブラウザで開くというものだ。

on_click は通知がクリックされた時に呼ばれるコールバック、on_timeout はそれ以外の理由で通知が消えたときに呼ばれるコールバックで、
この例ではどちらかが起こったときにスクリプトが終了するように $cv->send しているというわけだ。

この様にして自分専用のコールバック関数が定義することで、Growl をクリックした瞬間に処理が走らせられるので、例えば家族からの「お腹すいた」のネットワーク Growl をトリガーに Plagger でピザを注文するなんて事も出来るのです。

さて今日はシンプルに Twitter Stream を Growl に垂れ流すアプリケーションを書きましょう。

use strict;
use warnings;
use Config::Pit;
use AnyEvent::Twitter::Stream;
use AnyEvent::Impl::NSRunLoop;
use Cocoa::Growl ':all';
use Encode;

my $config = pit_get(
    "twitter.com",
    require => {
        "username" => "your username on twitter",
        "password" => "your password on twitter",
    }
);

AnyEvent::HTTP::set_proxy $ENV{HTTP_PROXY} if $ENV{HTTP_PROXY};

growl_register(
    app           => 'twitter stream notifier',
    notifications => ['twitter stream'],
);

my $cv = AnyEvent->condvar;

my $streamer = AnyEvent::Twitter::Stream->new(
    username => $config->{username},
    password => $config->{password},
    method   => 'filter',
    track    => 'twitter',
    on_tweet => sub {
        my $tweet = shift;
        growl_notify(
            name        => 'twitter stream',
            title       => encode_utf8( $tweet->{user}{screen_name} ),
            description => encode_utf8( $tweet->{text} ),
            icon        => encode_utf8( $tweet->{user}{profile_image_url} ),
            on_click    => sub {
                my $url = encode_utf8("http://twitter.com/$tweet->{user}{screen_name}");
                `open $url`;
            },
        );
    },
    on_error => sub { warn shift; $cv->send },
    on_eof => $cv,
);

$cv->recv;

いろんなブログで A::T::Stream なコードは既出なので誰でも書けるかと思います。
ちなみに、twitter という検索語でフィルタを実行したら、画面がとんでもない事になりました。

ぜひ皆さんもやってみて下さい！

その他 Perl と Growl の組み合わせとしては、Gearman を使いサーバ側で云々という話もありますが、長くなるので省略します。
詳しくは Win32 のトラックを参照してください。

次は... 誰かな？