Category Archive のカスタマイズ再び [Site info. and blog ]

2003 年に書いたエントリ「Category Archive のカスタマイズ」はお蔭様で地味ながらも継続的に参照いただいているが、この度ちょいとばかり変更を加えて年毎の表示をまとめてみた。これには PerlScript プラグインを使っているが、これを使えば実質的に何でもできてしまう。

<MTEntries lastn="10">
 .
  (省略)
 .
</MTEntries>

<MTSetVar name="archYear" value="0">
<div>Old Topics</div>
<MTEntries lastn="1000" offset="10">
<div class="blogbody">
<MTPerlScript>
my $a = '<$MTEntryDate format="%Y"$>';
my $b = $ctx->{__stash}{vars}{archYear};
if ($a ne $b) {
  printf '<div class="title">[%s]</div>', $a;
  $ctx->{__stash}{vars}{archYear} = $a;
}
</MTPerlScript>
<a name="<$MTEntryID pad="1"$>"></a>
<div><$MTEntryDate format="%m/%d"$> <span class="title"><a href="<$MTEntryLink$>"><$MTEntryTitle$></a></span></div>
</div>
</MTEntries>

上記のコードの太字の部分が今回、追加・変更した箇所。PerlScript プラグインの使用に当たってはnlog(n) さんの記事、「投稿のある月の総数を表示するには]、「月別アーカイブ一覧で表示月を強調したい」などを参考にさせていただいた。