そしたら、シンバル売場に銅鑼が無いw

ま、津田沼の楽器屋にある訳ないな。お茶の水まで逝けってこった。

package Plagger::Plugin::Filter::TrackEndTimeFromTitle;

use strict;
use base qw( Plagger::Plugin );
use Encode;
use HTML::Entities;
use Plagger::Event;

sub register {
    my($self, $context) = @_;
    $context->register_hook($self,
                            'update.entry.fixup' => \&filter,);
}

sub filter {
    my($self, $context, $args) = @_;
    my $e = $args->{entry};
    my ($title, $artist,$duration);
    my $starttime = $e -> date;
    my $event = $e -> event;

    $title = $e->title;
    $title = encode('UTF-8',$title);

    #Last.FM/audioscrobbler
    if($title =~ /(.*?)\s\342\200\223\s(.*?)\Z/){
        $artist = decode('UTF-8',$1);
        $title = decode('UTF-8',$2);
    }

    $duration = get_duration($self, $context, $artist, $title);

    unless($duration eq '') {
        my $event = Plagger::Event -> new;
        $event -> dtstart($e -> date);
        $event -> dtend($e -> date + DateTime::Duration->new(seconds => ($duration/1000)));
        $e -> add_event($event);
    }
}

sub get_duration {
    my ($self,$context,$artist, $title) = @_;
    my $url  = URI->new('http://ws.audioscrobbler.com/2.0/');
    my $file = $self->cache->path_to('track.getInfo_result.html');

    $artist = encode('UTF-8', $artist) unless $context->conf->{no_decode_utf8};
    $title = encode('UTF-8', $title) unless $context->conf->{no_decode_utf8};
    $context->log( info => 'Getting song duration from ' . $artist . " / " . $title );

    my $ua = Plagger::UserAgent->new;
    $url->query_form(method => 'track.getinfo',
                     artist => $artist,
                     track => $title,
                     api_key => $self->conf->{api_key} || 'b25b959554ed76058ac220b7b2e0a026',);

    my $res = $ua->mirror( $url->as_string => $file );
    if($res->is_error) {
        $context->log( error => $res->status );
        return;
    }

    open my $fh, "<:encoding(utf-8)", $file
        or return $context->log(error => "$file: $!");

    my $duration;
    while (<$fh>) {
        if(m!(.*?)!){
            $duration = $1;
            $context->log(info => "duration: $duration");
            last;
        }
    }
    return $duration;
}

plugins:
  - module: Subscription::Config
    config:
      feed:
        - url: http://ws.audioscrobbler.com/1.0/user/yoozoosato/recenttracks.rss

  - module: Filter::Rule
    rule:
      module: Fresh
      mtime:
        path: ./lastfm.tmp
        autoupdate: 1

  - module: Filter::TrackEndTimeFromTitle
    config:
      api_key: YOUR_API_KEY

ひかりの玉（僕は勝手に「たましいくん」と命名した）がギターの音に合わせて動いているの分かります？

普通にprocessingで同じようなことができるんでしょーけど、ruby-processing使えばサクッと動くもんが実装できるので、本来の目的である「表現」に注力できるのが最大の魅力？なのかな？ processingをちゃんと使った事ないので良くわかりません。すいません。

「いやいや、それpro(以下ry」というご指摘がありましたらコメントやメールでいただけると嬉しいです。

last.fmのAPIにtrac.getInfoというのがあるので、そこにリクエストを投げるとこんな感じのレスポンスが返ってくる。

実験的にアーティスト名the police、楽曲名every breath you takeでリクエスト投げるとこんな。

楽曲の時間はdurationにミリ秒単位で格納されているので、これを取り出せばOKっすね。
今回必要なのはこのdurationだけなんだけど、色々とおもしろい情報が返ってくるので発想が膨らんでしまうなぁ。。画像とかamazonだし。

楽曲の「再生開始時刻」はpubDateから取得できるから、
・楽曲情報をどっかから持ってきて
・再生開始時刻 + 楽曲の長さ　で
・「再生終了時刻」が求められる
はず

もうちょっと楽ちんに、一発で「再生開始時刻」と「再生終了時刻」を出せないかなぁ。。

Processingは、もともとJavaで開発された製品なんですが、JRubyを活かし、Rubyから利用できるようにしたのがRuby- processingです。

RubyらしさとJavaの良さ。そんなものを活かした技術。この機会を利用して、ソフトウェアの可能性を、もう一度考え直してみよう。

何故か(w)僕も裏方として色々とお手伝いしているので、お時間のあるかたは是非ご参加ください。
ustream.tvでも勉強会の模様を配信する予定です。

詳細はコチラから。

いつまで経ってもこの画面から先に行かない。
困った。

サポートwikiに書いてある通りに作業しただけなのになぁ。。

# やっぱtracにしちゃおうかなぁ。。

【15:40ごろ追記】
一回全部無かった事にして、サブドメインを追加する所からもう一度やり直してみたら動いた。

原因は単純で、DreamHost + fast_cgiでRailsアプリを動かす時と同じ理屈でCGI実行ユーザーを別ユーザーにしてしまったため。すげーケアレスミス。

あながあったらはいりたい。

Aにこじつけられれば次回のLTで何か喋るかもしれない。

まずはHCV検査の結果。

「検出せず」のままで一安心。（写真中、赤ボールペンで囲まれている部分）

肝機能のAST、ALT、γGTPも正常値に戻った。

とは言ってもこの辺の項目は自覚症状ないから、数字で言われても「あー、そうですか」みたいな感じ。気分的には嬉しいけど。

逆に身体で痛感できる血球値の方は全然変っていなかったりして、ちょっと凹んだ。

相変わらずヘモグロビン濃度とか10台。道理で階段の昇り降りがまだツライわけだよな。レッドゾーン振り切ってた時は歩くのがやっとだったからあの時に比べたら遥かにマシだけど、相変わらずの貧血状態は未だしんどい。
でも白血球が正常値に戻っているので、風邪とかインフルエンザにも人並みの抵抗力が戻っているはず。ちゃんと予防するのに超した事はないけど。

http://wiki.somethingnew2.com/lt/index.php?Events%2F2008%2F11

■日時
　11/20（木）19:15開場、19:30開始
　懇親会（飲み会）は21:00頃開始予定

■場所
　 タワーホール船堀
　都営新宿線の船堀駅から徒歩1分です

■Vol.11のテーマ
　Aから始まるテーマ

話したい人、聴きたい人とも11/6（木）から募集開始します。
定員20名くらいかな。

詳細は上記リンクからご確認下さい。ご質問などはこちらのフォームでもこのエントリのコメント欄でも構いません。

ということでどうぞよろしくお願いいたします。

・外出先でE-Mobile使ってインターネット接続
・サーバーに接続して作業
　作業内容は障害対応だったり、障害対応だったり、障害対応だったり・・・
　（ウソです。最近はあんまり障害対応はしてません。放置するのでｗ）

という状況で電池がどのくらい持つのかをテストしてみようと思います。
自宅でフル充電 & Windows起動してサスペンド状態にしたX200を持ってきて、9:30すぎにパカっと開いてみました。

試してみよう。

試してみよう。

lispと言えばEmacs lispくらいしか知らない & そのEmacs lispも基本的には使ってるだけで自分では書いた事ないレベルの僕には濃すぎて、トークの内容には全然付いて行けなかったっすw
すいません。

でもありとあらゆる点で勉強になった。

今年はlisp誕生50周年らしいけど、おばあちゃんの知恵袋的な発想があちこちに転がっていて眼からウロコが何枚おちたか判らん。貴重な機会を与えてくれてどうもありがとうございました。 > スタッフの皆様
Ustream.tvで中継されていた & 録画されていたはず、なので明日もう一回気になる部分はおさらいしてみよう。

ダイナミックな発想を持つには色んな人が持っている引き出しの中身を見せてもらうのが一番早いし、勉強会ってのはその手段として最速かつ最も合理的な手段だなぁとあらためて再認識。

TODOの内容を変更できないってのもいかがなものかと・・・。