現在のページを hatena bookmark する local cgi

w3m

はてなブックマークするときに、w3m で URL をコピー & ペーストするのが面倒なので、現在のページの URL を取得して、ブックマークの確認のページまで行く local cgi なんてものを作ってしまいました。

#!/usr/bin/perl
# 自分の id を入れる
$name="yshl";

$str = $ENV{"W3M_URL"};
$str =~ s/(\W)/'%'.unpack("H2",$1)/eg;
$url = "http://b.hatena.ne.jp/$name/add?mode=confirm&url=$str";

print <<EOF;
w3m-control: GOTO $url
w3m-control: DELETE_PREVBUF
w3m-control: SEARCH URL

EOF

keymap に

keymap 適当なキー GOTO file:///cgi-bin/hatenabookmark.cgi

とか書けば使えます。

私の Perl プログラマレベルは 1 か 2 な上、はてなブックマークAtomAPI を読まずに作ったので悪しからず。