はてなダイアリーでもソースコードのハイライト表示をする

はてなダイアリーユーザとしては、はてなグループのシンタックス・ハイライトがちょっと羨ましいわけだけど(よくソースコードを張るので)、似たようなことを出来るようにツールを作ってみた。

http://vimcolor.spiritloose.net/

たぶんもう似たようなやついっぱいあるとおもうけど。

たぶんはてなグループのやつと互換性あります。

はてなグループと同じく、1行目が shebang の場合は auto のままで判別できるっぽいです。

1行目が shebang じゃない場合は type を選択してください。

ソースはここに。

生成された html を張るとこんな感じに。

ソースは適当にこれにした。

#!/usr/local/bin/perl

use strict;

use warnings;
use Encode;

use Encode::Guess qw(utf8 euc-jp shiftjis 7bit-jis);

use WWW::Google::Notebook;
my $username = 'username@gmail.com';

my $password = 'password';

my $title    = 'vim';
my $google = WWW::Google::Notebook->new(

    username => $username,

    password => $password,

);

$google->login;

my $notebooks = $google->notebooks;

my ($notebook) = grep { $_->title eq $title } @$notebooks;

$notebook = $google->add_notebook($title) unless $notebook;

my $content = do { local $/; <STDIN> };

$content = encode('utf8', decode('Guess', $content));

$notebook->add_note($content);

print $content;

というわけで、適当に使ってください。

どうでもいいけど、Text::VimColor って裏で普通に Vim を起動してるので、トラフィックあるところだとキャッシュ使わないと結構やばそうだなぁ。