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

2006-10-29

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

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

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;