社を超えて共有したいという声があったことを記録しておく。

お金ください。

追記

追記2

熟練した苺ましまろファンは、「いちごましまろ」という文字列を0.2秒で入力できるという。そこで、何秒かかるか計測するぐりもんを書いてみた。twitterで実行します。

http://gist.github.com/raw/58834/a7a54305a3dbd40211f671610a3c83953287987a/gistfile1.txt?.user.js

遅過ぎる……。

追記

僕はskk使ってるのでひらがながそのまま入力されるけど、普通のIME使ってるとこれではちゃんと計測できないのかも。

#!/opt/local/bin/perl

use YAML;
use IPC::Run qw(run);
use WebService::Hatena::Fotolife;

# config file must be YAML-formatted:
#   hatena_id:       your-hatena-id
#   hatena_password: your-hatena-password

my $conf = YAML::LoadFile('/Users/kentaro/.online_accounts');
my $filename = '/tmp/screencapture.png';

if (run(['screencapture', '-i', $filename])) {
    my $hatena = WebService::Hatena::Fotolife->new;
    $hatena->username($conf->{hatena_id});
    $hatena->password($conf->{hatena_password});

    my ($date) =  $hatena->createEntry(
        title    => $ARGV[0],
        filename => $filename,
    ) =~ /(\d{14})$/;
    my $url = sprintf "http://f.hatena.ne.jp/%s/%s", $conf->{hatena_id}, $date;

    run(['echo', $url], '|', [qw(pbcopy)]);
    print "Successfully uploaded: $url\n";
}