このメモの名前を決めた。Landscape という名前にした。Robert Miles の アルバム DreamLand に収録されてる名曲 Landscape から名前をもらった。

ヘッドライン出力機能を Chalow に追加してみた。ヘッドラインとは、最新の記事の見出しを段組で表示するもの。古くは「事件簿テーマ」で実装され、今ではほとんどの日記ツール・Weblogツールが装備している。Chalow でも「くっつきRSS」などを使えば同様のことはできるが、ChangeLog メモ変換ツールとしては静的な html を出力してくれた方が使いやすいし、ユーザのアクセス環境に左右されにくいと思う。

ということでヘッドラインを生成する関数を作成した。インデックスぺージ生成関数と月別ページ作成関数に、作成したヘッドラインと各ページのテンプレートに仕込んでおいたマーカーを置換するロジックを追加して一丁上がり。

本当は 自分好みの ChangeLog メモ変換ツールを一から作ろうかと思った。でも、chalow を修正すればとりあえずやりたいことはできるようになったので、ここで切り上げることにした。chalow は関数化とモジュール化を進めればコードの見通しがかなり良くなると思うんだけどなあ。いずれ ruby か何かで書いてみようかな。

# ヘッドラインを生成する
sub make_headline {
    my $MAX_DATE = 90;
    my $tmplt_item_header = qq(<li class="headline_li"><a href="%s.html#%s-%d">%s</a></li>\n);
    my $tmplt_item_list = qq(<dd class="headline_dd">\n<ul class="headline_ul">\n%s</ul>\n</dd>\n);
    my $tmplt_item_dt = qq(<dt class="headline_dt"><a href="%s.html#%s">%s</a></dt>\n);
    my $tmplt_item_dl = qq(<dl class="headline_dl">%s</dl>\n);

    my $headline = '';
        my $cnt = $MAX_DATE;
    foreach my $ymd (sort {$b cmp $a} keys %all_entries) {
        last if (! $cnt);
        my $lists = '';
        my ($ym) = ($ymd =~ /^(\d{4}-\d\d)-\d\d/);
        foreach my $i (sort {$b <=> $a} keys %{$all_entries{$ymd}}) {
            next if ($i !~ /^\d/);
            my $c = $all_entries{$ymd}{$i}{h};
            $c =~ s/[\n\t]+//g; # 改行消し
            $c =~ s/\s\s+/ /g;
            $c =~ s|<img.+?alt="(.*?)".*?>|[$1]|gosm;
            $c =~ s/<.+?>//g; # タグ抜き
            $c =~ s/\* //;
            $c =~ s/\s+$//;
            $lists .= sprintf($tmplt_item_header, $ym, $ymd, $i, $c);
        }
        $headline .= sprintf($tmplt_item_dt, $ym, $ymd, $ymd);
        $headline .= sprintf($tmplt_item_list, $lists);
        --$cnt;
    }
    return sprintf($tmplt_item_dl, $headline);
}

過去に何度か考えたことだが、自分好みの ChangeLog 変換ツールを作りたくなってきた。せっかくゼロから作るんだったら、思いっきり趣味に走ってもいいかと思う。
cygwin で動けばいいから、Ruby で書こうかな。

SQL 利用経験が一年以上の初級者から中級者向けの本とのこと。