発言を書き換える robot の作り方は、神記事(Google Wave API開発ガイド（後編）JavaとPythonでGoogle WaveのRobotを作るには（3/4）−＠IT) で完璧に解説されている。記事を見ながら appspot + google wave に入門し、vaginakun を google wave に解き放つことができた。

vaginakun@appspot.com を contact に入れて new wave 作れば、変換エンジンこそ古いものの #vagina の雰囲気を味わえるよ！

#!/usr/bin/env python
# -*- coding: utf-8 -*-

from waveapi import events
from waveapi import model
from waveapi import robot
import urllib

def OnParticipantsChanged(properties, context):
  added = properties['participantsAdded']
  for participant in added:
    Greet(context, participant)

def OnRobotAdded(properties, context):
  root_wavelet = context.GetRootWavelet()
  root_wavelet.CreateBlip().GetDocument().SetText('hello')

def OnBlipCreated(properties, context):
  blip = context.GetBlipById(properties['blipId'])
  text = blip.GetDocument().GetText()
  
  d = urllib.urlopen("http://woremacx.com/text2vagina/?text=" + urllib.quote(text.encode('utf-8')))
  res = d.read()
  
  blip.GetDocument().SetText(res)

def Greet(context, participant):
  root_wavelet = context.GetRootWavelet()
  root_wavelet.CreateBlip().GetDocument().SetText(participant + u" さん、こんにちは！")

if __name__ == '__main__':
  myRobot = robot.Robot('vaginakun',
      image_url='http://vaginakun.appspot.com/assets/icon.png',
      version='4',
      profile_url='http://vaginakun.appspot.com/')
  myRobot.RegisterHandler(events.WAVELET_PARTICIPANTS_CHANGED, OnParticipantsChanged)
  myRobot.RegisterHandler(events.BLIP_SUBMITTED, OnBlipCreated)
  myRobot.RegisterHandler(events.WAVELET_SELF_ADDED, OnRobotAdded)
  myRobot.Run()

参考リンク

• Google Wave API開発ガイド（後編）JavaとPythonでGoogle WaveのRobotを作るには（3/4）−＠IT

これまでは、デジタルチューナをパソコンに USB で繋いで使ってました。しかし、予約が面倒くさかったり、繋いでいる パソコンの消費電力がどう考えても高かったり、録画したファイルをパソコンの HDD から追い出すのが面倒だったりと、あまりいいことがありませんでした。

つきつめて考えると、「放送を録画する」「録画を見る」「パソコンなしに見れる形式・メディアで保存する」これが単純にできれば満足することがわかりました。

そして購入

満足いくテレビ生活を送るために、家電であるブルーレイレコーダを思い切って買いました。

どの機種にしようかかなりぐだぐだ迷ってましたが、最終的には、地上/BSダブルチューナ + ブルーレイ + iLink という条件と、かなりの金額を払う覚悟を決めて買いに行きました。

電気屋でいろいろ教えてもらいつつ、財布と相談しながら選んだのは、SHARP の AQUOS BD-HDW32 になりました。

見るためのモニタも購入

せっかくハイビジョンをある程度まともに扱える機械を買ったので、モニタも新しくしました。

テレビだといろいろ不要な機能がついてしまってどうしても割高になるので、ノングレアで HDMI で入力できるパソコン用モニタにしました。

パソコン屋で展示してあるものを見つつ、MITSUBISHI の RDT231WLM にしました。

また、モニタにあわせて、DVI-D と既存のモニタ用にアナログ RGB を別々に使えるグラフィックカードも同時に買いました。

総括

テレビに対して出費はかなりの額になりましたが、「放送を録画する」「録画を見る」「パソコンなしに見れる形式・メディアで保存する」ということが単純にできるようになり、また、マルチディスプレイになり、パソコンでの作業がやりやすくなりました。

最後に、ぐだぐだしているところで背中を押してくれた人ありがとう。

参考リンク

• ブルーレイディスクレコーダー BD-HDW32：シャープ
• 三菱電機 三菱ディスプレイ：ワイド液晶ディスプレイ RDT231WLM RDT231WLM(BK)

SHARP AQUOS ブルーレイディスクレコーダー HDD320GB BD-HDW32

posted with amazlet at 09.09.06

シャープ (2009-03-04)
売り上げランキング: 2558

おすすめ度の平均:

ブルーレイデスクレコダーを購入してよかった。
使い勝手がいまひとつ
あの woremacx さんが使っている！
思い切ったカイありました．

Amazon.co.jp で詳細を見る

MITSUBISHI 23型三菱液晶ディスプレイ(ノングレア) RDT231WLM(BK)

posted with amazlet at 09.09.06

三菱電機 (2009-05-22)
売り上げランキング: 7045

おすすめ度の平均:

woremacx さんとオソロ！
良いもの買いました

Amazon.co.jp で詳細を見る

偉大なる lazy-people ファウンダーの id:tomyhero 先生にアプリを作っていただきました！

独自に IRC サーバを建ててから 2 年近くが経過しようとしています(参考:woremacx notes: ヴ...について語り合う IRC チャンネルを開設しました)。当初は、あらゆる発言(PRIVMSG)の文末に「ヴ...」がつくという単純なものでした。その後、チャンネルに参加していただいている皆さんのアイディアのおかげで、「ヴ...語変換」と呼べるものにまで発展することができました。しかも、エンジンは個別アプリに使用できるようモジュールとしての実装も作っていただきました。チャンネルに参加していただいている皆さんのご支援がなければ、ここまで発展・存続することはなかっただろうと思っています。

そんな IRC のチャンネルの気分を twitter で簡単に味わえるようになりました。

「それいけヴ...君」です！

使い方

トップページを開きログイン

それいけヴ...君サイトを開く。

「ログイン」リンクをクリックします。

ログインする

確認画面が出てくるので、Allow をクリックします。

この手順が面倒な場合は、自動的に Allow をクリックするようなブラウザ拡張等を作っていただく手もあります。

発言する

入力欄にメッセージを入力し、「語る」ボタンをクリックします。

変換後の発言が表示される

次の発言のためのフォームが表示されるとともに、変換結果が表示されます。

twitter で発言を確認する

カンタンでしたね！

みなさんも、母なる言語を守る為にがんばりましょう！

関連リンク

• woremacx先生の活動に感化されて - Lazy Programmer :-p
• それいけヴ...君
• twitter
• vaginakun

ヴ

dann さんとお会いするにあたり、何かサプライズ的なものを用意したいと思っていました。前日くらいに IRC のとあるチャンネルで何かないかと聞いたところ、lyokato さんより、画用紙に「ヴ」を書いて掲げるというアイディアをいただきました。当日、近くのダイソーで画用紙とマジックを買って、実際に「ヴ」を掲げてみました。「ヴ」のおかげで、はぐれることなく無事お会いすることが出来たのでよかったです。

感想

dann さんもエントリで書かれているように、普段から IRC で会話をしているので、物理的には初対面なのに、感覚としては初対面ではないという不思議な感覚でした。

一つだけ心残りなのは、「Angelooooooooooooos!」と一緒に連呼してもらうのをすっかり忘れていたことです。今後の manko.pm でぜひオ願いします。

短い時間でしたが、dann さんのアツいお話を色々聞かせていただくことができました。今すぐではないけれど、3 年後、5 年後も視野に入れて何か面白いコラボレーションをできたらいいなぁと強く思いました。

dann さん、今回は声をかけていただいて、ありがとうございました！

see also

• manko.pm #001 ヴ が開催されました - manko.perl-mongers.org
• ヴの中に人に会ってきた！ - dann@webdev - dann's portal

NBC でやってるドラマ Chuck が、ひじょーに awesome です。

ドラマのスタートは、

チャックは家電量販店BUYMOREの情報家電部門NERDHERDで働くオタク青年。

過去に彼はスタンフォード大学で学んでいたがルームメイトで親友でもあったブライス・ラークリンの裏切り行為により大学を退学させられてしまう。

現在のチャックは親友に裏切られた心の傷を抱きながらも同じ店で販売員として働くモーガン、同居している姉のエリーエリーのボーイフレンドのキャプテンと共にまったりとした日常を過ごしていた。

チャックの誕生日パーティーの夜、ブライスから久々にメールが届く。ブライスは政府情報機関の極秘情報を全て盗み政府機関に処刑される寸前にチャックに暗号化されたデータを送ったのだ。知らずにメールを開いたチャックは膨大な情報量のサブリミナル画像を強制的に見せられ気絶してしまう。

http://mamono.2ch.net/test/read.cgi/tv2/1195257823/

という感じで、スパイアクションモノです。

チャック・バトアスキー(Zachary Levi)の頭の中に全機密情報がインプットされてしまったので、サラ・ウォーカー(Yvonne Strahovski)とジョン・ケイシー(Adam Baldwin)がチャックを保護する任務につきます。この保護で、チャックはスパイとして活動しながら、今まで通りの生活を送り始めます。この 3 人の関わり合いがぼくは面白いです。チャックが作戦現場で起こすドタバタであったり、チャックとサラの感情の揺れ動きあったり、その他チャックの勤務先での不思議な人間関係があったりと、コミカルなスパイアクションという感じで一度見始めると止まらなくなるドラマです。

そんな awesome なドラマなんですが、日本語字幕付きで流通してるのは、ターミネーター:サラ・コナー クロニクルズ レンタル DVD の 5 枚目に入っている第1話のみで、日本の amazon にある Chuck - Complete First Season (4pc) (Ws Sub Ac3) には残念ながら日本語字幕が付いてないです。

リンク

US からの接続であれば、The WB で Season 1 が、NBC.com で Season 2 が見れます。

なんとかすれば日本からも見れるので、そこらのあらすじサイトを参考に、ぜひわくわくしてください！

• Chuck | Watch Episodes Online for Free - Chuck TV Show, Series - Video Clips, Episode Recaps, Photos, Bios, Downloads & Games NBC Official Site
• The WB - Chuck - Full episodes of Veronica Mars, One Tree Hill, The O.C., Sorority Forever, Childrens' Hospital, Friends, Gilmore Girls, Smallville on TheWB.com, It's TV Online.
• Chuck Wiki (エピソードガイド season1、エピソードガイド season2)

PC 向けだと、"Kifu for Windows" があり、それの flash 版、Java applet 版が主催団体などにも貼られています。

ケータイ向けの便利ソフトとしては kif2swf があるのみで、いろいろまとまったデータを閲覧するのは手間がかかる印象を受けました。

そこで、自動更新型のサイト 携帯向け将棋棋譜サイト - kifu::woremacx を作りました。

やっていることは、適当な間隔で Web をスクレイピングして棋譜データを取得し、解釈し、盤に並べ、kif2swf にデータを埋め込んで、swf を作り直して公開するという簡単なお仕事です。

今のところ UTF-8 のみの出力で、スクレイピング先が 2ch 限定とあまりやる気がない状態だったりしますが、ぼちぼち広げていきたいと思います。

どうぞご利用ください。

kifu::woremacx

• 携帯向け将棋棋譜サイト - kifu::woremacx

関連サイト一覧

• 王子南交差点 / kif2swf
• 将棋の棋譜でーたべーす
• 道路上将棋! 携帯向け無料ｵﾝﾗｲﾝ対戦将棋
• 柿木の将棋ソフトウェア
• 将棋の棋譜貼り専門スレッド 過去ログ
• 将棋棋譜集

さて、はてなブックマークをチェックしていると、未だにこのブログの古い記事を参考にしていただいていることがあるようです。参考にしていただいたりブックマークしていただけるのは非常にうれしいですが、どんな分野においても進歩が速く、情報はすぐに陳腐化していきます。

そこで、うちのブログの古い記事に到達した場合には、情報が古いことを表示することにしました。どのくらいの基準でやろうかと迷いましたが、1ヶ月経過したら古い情報であることにしました。

しくみとしては、たぶん MT 4 から導入されたと思われる relative=js をまねして拡張することで対応しました。個別エントリのテンプレートに <$MTEntryDate format="%x %X" relative="js"$> と書かれているあれです。

ということで、今年も woremacx をよろしくお願いいたします。

主に文章をデジタルデータとして管理する場合、多種多様な方法があり、個々人で慣れた親しんだ環境があるかと思います。

今日は、依存関係のある大量の文章を扱う場面で、全体の構造を把握しながら長文ノートを残しておきたくなり、ちょっと困ってしまいました。

ぼくの場合、扱う対象の全体の構造を、頭の中で明確に再現できるほど理解が深まっている場合だと、テキストファイル系でも平気です。ベタテキストや yaml 的なテキストで書き散らかして、あとで grep するかんじですね。しかし、理解度が乏しい場合、テキストファイルに全部突っ込んでると何が何やらわからなくなります。

今回は、何が何やらわからなくなっている状況なので、自分が取り組んでいることを整理するためツールが欲しくなりました。紙と鉛筆最強なんですが、それは見づらさと消しゴムの大量消費の観点から好きではありません。現代的なマインドマップ、そして、ツリー的に全体像を把握できつつ、各エレメントに長文ノートを残しておける環境が望む環境です。#vagina の皆さんに聞いたり、色々ぐぐったりして、ようやく XMind というマインドマップツールにたどりつきました。

データファイルは、zip でつつまれた xml です。xml なので、大量に入力することがあれば、ちょっとしたコンバータを書いてやればカンタンに取り込めそうです。

今日はほんと良いツールにたどり着きました。開発者の皆さんありがとう。

• XMind - Social Brainstorming and Mind Mapping

imo758 さん: キー判定は抽象化してカスタマイズが楽になってるとなお良かったかも

http://b.hatena.ne.jp/imo758/20081116#bookmark-10849858

asakura-t さん:「Okoshiyasu2」あたりを使ったほうがいいと思うんだ。 http://www12.plala.or.jp/mojo/Oko1.html

http://b.hatena.ne.jp/asakura-t/20081117#bookmark-10849858

とのコメントを頂きました。ありがとうございます。

今回このスクリプトを作るまでに至ったぼくの行動を書いておきたいと思います。

foobar2000 期

出先でネットに繋がってないときに、テープ起こしする必要がありました。

ぼくのノートパソコンには Windows Media Player と foobar2000 しか使えるソフトが入ってませんでした。

foobar2000 で、C-a/s/d/f に逆方向シーク、 C-j/k/l/; に順方向シークをそれぞれ移動量を変えて割り当てて使ってみました。そうすることにより、キーボードから手を放すことなく自由に移動でき、良い感じだと思いました。

その場はなんとか無事に終わりました。

ソフト開拓期

今回またテープ起こしするときに、なんかいいソフトが一応調べてみることにしました。

ぐぐって出てきた記事(ITmedia Biz.ID：「テープ起こし」に特化した再生ソフト)を見て、Okoshiyasu2 は試してみました。

• Okoshiyasu2 の良い点
  • グローバルにキーボードを乗っ取ってくれるのは、Alt-Tab しなくていいので非常に良い。
• 変な環境に慣れてしまったので物足りない点
  • 移動量の違うシーク 4 種類で慣れてしまっているので物足りない。

作ったらいいんじゃね期

• 今回使った古い系の foobar2000 は、Ctrl なしでホットキーを割り当てれることが判明しました。(現行系でも設定すれば出来るのかもしれないけど、やり方がわかりません＞＿＜)
• perl のコンソールアプリとして作ってしまってもいいかもわからんね、と思いました。
• どうせならシークしたポイントから常時 A-B リピートするモードがあっても良いね、とひらめきました。

常時 A-B リピートは、非常にお気に入りです。

だめなところ

• 今のところ、Athlon64 X2 3800+ なマシンで常時 20% くらい CPU 食ってる出来の悪い子です。ループの構成が悪いと思います。バッテリー駆動してるマシンだと酷いことになると思いますｗ
• ご指摘があったとおり、設定周りをベタ書きしているので、カスタマイズが容易ではないです。
• ボリュームコントロール/ミュートがありません。
• 一時停止すら実装してません。

だめなところは、そのうち気が向いたら直していけたらいいなと思います。

Alt + Tab で他のウィンドと行き来したあとで、全くキーを受け取らなくなる現象があってハマリました。GetEvents で入力があるか確認してから Input で入力内容を得るとハマらずに済みます。シーク時に Win32::MediaPlayer まわりに与える時間は ms に直して渡しました。

使い方

開くファイルをスクリプトの引数として起動します。起動したら、勝手に 10 秒リピートになっています。

• q: 終了

• j: 5 秒後
• k: 10 秒後
• l: 30 秒後
• ;: 5 分後

• f: 5 秒前
• d: 10 秒前
• s: 30 秒前
• a: 5 分前

• t: リピートするかのトグル
• u: リピート秒数--
• i: リピート秒数++

コード

coderepos にもうｐしました repeat-audio-player.pl

#!/usr/bin/perl

use strict;
use warnings;

use threads;
use Thread::Queue;
use Win32::Console;
use Win32::MediaPlayer;
use Time::HiRes ();

sub keywatcher {
    my ($queue) = shift;

    my $console = new Win32::Console(STD_INPUT_HANDLE);
    $console->Mode(ENABLE_PROCESSED_INPUT);

    #     my $mode = $console->Mode();
    #     print "ENABLE_LINE_INPUT\n" if $mode & ENABLE_LINE_INPUT;
    #     print "ENABLE_ECHO_INPUT\n" if $mode & ENABLE_ECHO_INPUT;
    #     print "ENABLE_PROCESSED_INPUT\n" if $mode & ENABLE_PROCESSED_INPUT;
    #     print "ENABLE_WINDOW_INPUT\n" if $mode & ENABLE_WINDOW_INPUT;

    while (1) {
        while ($console->GetEvents) {
            my @event = $console->Input;
            # 0: event type: 1 for keyboard
            # 1: key down: TRUE if the key is being pressed, FALSE if the key is being released
            # 2: repeat count: the number of times the key is being held down
            # 3: virtual keycode: the virtual key code of the key
            # 4: virtual scancode: the virtual scan code of the key
            # 5: char: the ASCII code of the character (if the key is a character key, 0 otherwise)
            # 6: control key state: the state of the control keys (SHIFTs, CTRLs, ALTs, etc.)

            next unless $event[1];

            my $c = lc(chr($event[5]));
            $queue->enqueue($c);
            return 0 if $c eq 'q';
        }
    }

    return 0;
}

sub worker {
    my ($queue, $file) = @_;

    my $wp = Win32::MediaPlayer->new;
    $wp->load($file) or die;
    $wp->play;

    my $state = {
        mute => 0,
        playing => 1,
        pos => 0,
        len => res_to_sec($wp->length(0)),
        base => 0,
        repeat => 1,
        repeat_dur => 10,
    };

    my %keymap = (
        j => 5,
        k => 10,
        l => 30,
        ';' => 300,
        f => -5,
        d => -10,
        s => -30,
        a => -300,
    );

    printf "repeats each %d secs\n", $state->{repeat_dur};
    my $console = new Win32::Console(STD_OUTPUT_HANDLE);
    my $seek = 0;
    while (1) {
        $state->{len} = res_to_sec($wp->length(0));
        $state->{pos} = res_to_sec($wp->pos(0));

        if ($seek) {
            $wp->pause;
            $wp->seek($state->{base} * 1000);
            $wp->resume;
            $seek = 0;
            next;
        }

        my $buf = sprintf "%s / %s\r", sec_to_hms($state->{pos}), sec_to_hms($state->{len});
        $console->Write($buf);
        Time::HiRes::sleep(0.5);

        my $repeat_state = sub {
            printf "\n";
            printf "repeat %s\n", $state->{repeat} ? "on" : "off";
            printf "repeats each %d secs\n", $state->{repeat_dur} if $state->{repeat};
        };

        if ($state->{repeat} &&
            $state->{pos} >= ($state->{base} + $state->{repeat_dur})) {
            $seek++;
        }

        while ($queue->pending) {
            my $c = $queue->dequeue;

            if (defined($keymap{$c})) {
                unless ($state->{repeat}) {
                    $state->{base} = $state->{pos};
                }
                $state->{base} += $keymap{$c};
                $seek++;
            } elsif ($c eq 't') {
                $state->{repeat} = $state->{repeat} ? 0 : 1;
                $repeat_state->();
            } elsif ($c eq 'r') {
                $repeat_state->();
            } elsif ($c eq 'u') {
                $state->{repeat_dur}--;
                $state->{repeat_dur} = 1 if $state->{repeat_dur} < 1;
                $repeat_state->();
            } elsif ($c eq 'i') {
                $state->{repeat_dur}++;
                $repeat_state->();
            } elsif ($c eq 'p') {
                $seek++;
            }

            return 0 if $c eq 'q';
        }
    }

    return 0;
}

sub main {
    my $file = shift(@ARGV);
    die unless $file;

    my $queue = new Thread::Queue;
    my $t1 = threads->new(\&keywatcher, $queue);
    my $t2 = threads->new(\&worker, $queue, $file);
    $t1->join;
    $t2->join;

    print "done.\n";
}

main;

sub res_to_sec {
    my $param = shift;
    return int($param/1000);
}

sub res_to_hms {
    my $param = shift;
    return sec_to_hms(res_to_sec($param));
}

sub sec_to_hms {
    my $total = shift;

    my $sec = $total % 60;
    my $min = ($total - $sec) / 60;
    my $hour = int($min / 60);
    $min = $min % 60;

    return sprintf "%02d:%02d:%02d", $hour, $min, $sec;
}

sub sec_to_ms {
    my $total = shift;

    my $sec = $total % 60;
    my $min = ($total - $sec) / 60;

    return sprintf "%02d:%02d", $min, $sec;
}

OLYMPUS Voice-Trek V-61

posted with amazlet at 08.11.16

オリンパス (2007-03-23)
売り上げランキング: 283

おすすめ度の平均:

いろいろ使えます。
ライブの録音･再生に大活躍

Amazon.co.jp で詳細を見る

OLYMPUS ICレコーダー Voice-Trek DS-60

posted with amazlet at 08.11.16

オリンパス (2007-09-14)
売り上げランキング: 1822

おすすめ度の平均:

音楽用にも
買うならコレ
値段にはわけがある
クリアーな音質です

Amazon.co.jp で詳細を見る

まだちゃんと動くわけではなくて、なんとか perl で動くようにしただけの状態です。

VaginaRepos でひっそりやってましたが、飽きてフェードアウトする可能性が高くなったので晒しました。

当面やることといえば

• 各モジュール間のパラメータの渡し方を直す
• 基本テスト
• 基本プラグイン

という感じです。

PukiWiki にない機能の追加などを考えている方がいらっしゃれば、ブランチを切ってからやってもらえるとうれしいです。

• Text::PukiWiki

GmailにGadget機能――Remember The Milkも組み込み可能に という記事を見つけたので、こちらを試してみることにした。

結論としては、au の携帯からの入力と Firefox アドオンを併用しようと思う。

Firefox アドオン

Set task view here から、label とか選べる。

個人的に RTM の画面は好きではないのが、このアドオンは使いやすい。

Google apps for domain でも表示されるので良い。

ガジェット

ラベルを選ぶには、設定からやらないといけない。

ケータイ向けの画面からすると、ひどく制限されている印象。

ケータイ向けの画面をガジェットにしてくれてもよかったかもしれないと思った。

ぼくのドメインの Google apps for domain では labs が使えないので残念。

うん。ほんと昔の広末涼子はすごかった。ビーチボーイズとかちゃんとビデオに撮ってみてた。

そんな昔の広末涼子が懐かしくなってライブビデオ買ったよ！

150 円とかなのでお買い得だよ！VHS なので、買うときはレンタル上がりは避けてね！

広末涼子ファーストライヴ～RH DEBUT TOUR 1999

posted with amazlet at 08.11.11

広末涼子
ダブリューイーエー・ジャパン (1999-05-26)
売り上げランキング: 59110

Amazon.co.jp で詳細を見る

charsbar さんに、はてなブックマークのコメントで良い方法を教えていただきました。

MojoX::Renderer::TT を使えばよいとのことで、さっそく試したところうまくいきました。

どうもありがとうございました！！

package Vagina;

use strict;
use warnings;

use base 'Mojolicious';

use MojoX::Renderer::TT;

sub dispatch {
    (ry
}

sub startup {
    my $self = shift;

    # Use our own context class
    $self->ctx_class('Vagina::Context');

    $self->renderer->add_handler( tt => MojoX::Renderer::TT->new( mojo => $self ) );
    $self->renderer->default_ext('tt');
    $self->renderer->types->type(tt => 'text/html');

    # Routes
    my $r = $self->routes;

    # Default route
    $r->route('/:controller/:action/:id')
      ->to(controller => 'example', action => 'welcome', id => 1);
}