はじめに

　タグによる分類機能の実現にはOgawa::Memorandaで公開されているTagwire Pluginを使用することができます。しかし、Tagwire Plugin の <MTTags> は常にブログで使用されている全てのタグを列挙するので、特定のアーカイブで使用されているタグだけを抽出したりすることができません。
　そこで今回、現在のアーカイブコンテクストで使用されているタグのみを列挙するテンプレートタグを追加しました。追加されたテンプレートタグ <MTTagsInEntries> は、現在のコンテクストで有効なエントリに含まれるタグのみを列挙します。つまり、月別アーカイブで使用した場合には、該当月のエントリに含まれているタグのみが列挙されます。同様にカテゴリアーカイブで使用した場合には、そのカテゴリ内のエントリに含まれているタグのみが列挙されます。
　この機能を用いてタグを列挙することによって、例えば、月ごとに記事投稿者の興味があったタグのランキングを作成したり、またカテゴリ毎にそのカテゴリを代表するタグをリストすることができます。例として、このサイトの PHOTO カテゴリには "観光"や"旅行"というタグが並び、ソフトウェア カテゴリでは "C言語"や"JavaScript"、"SDK"と云ったタグが並んでいるのを見ることができます。これはそのカテゴリ内の記事で使用されているタグを安直に使用頻度で列挙しただけなのですが、このようにカテゴリ内で頻出するタグのリストは、概ねそのカテゴリに含まれる記事内容を代表しています。そして結果的には、タグとカテゴリという異なった切り口を持った分類手法をバイパスすることになります。
　また、カテゴリ毎に代表タグが抽出できることは、違った見方をすれば、タグそのものをカテゴライズしているとも言えます。分類のための"タグ"を"カテゴリ"に分類しているのです。

Tagwire Plugin の改造

　Tagwire Plugin の改造箇所を以下に示します。 tagwire.pl をエディタで開き、以下のコードを追加します。

;# MT::Template::Context->add_container_tag (... が続くあたりに追加します ;# piroli++, '05/09/26 MT::Template::Context->add_container_tag('TagsInEntries' => ¥&tags_in_entries); ;# ++piroli, '05/09/26 ;# sub tags {...} の後ろにでも追加します ;# piroli++, '05/09/26, based on tags () sub tags_in_entries { my ($ctx, $args, $cond) = @_; # sort_by (tag/tag-case/count, default = tag) my $sort_by = $args->{sort_by} || 'tag'; # sort_order (ascend/descend, default = ascend) my $sort_order = $args->{sort_order} || 'ascend'; # lastn (default = 0, no cutoff) my $lastn = $args->{lastn} || 0; # case_sensitive (0/1, default = 1) my $case_sensitive = defined $args->{case_sensitive} ? $args->{case_sensitive} : 1; my $blog_id = $ctx->stash('blog_id'); my %tags = (); my %ts = (); my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id) or return ''; ;### カテゴリに属するエントリに限ってタグを抽出する my $entries = $ctx->stash('entries') or return $ctx->_no_entry_error('MTTagsInEntries'); my %tindex = %{$data->{tindex}}; my %eindex = %{$data->{eindex}}; foreach my $e (@$entries) { foreach (@{$eindex{$e->id}->{tags}}) { my $t = $case_sensitive ? $_ : lc $_; $tags{$t}++; $ts{$t} = $tindex{$_}->{ts} if (! exists $ts{$t} || $ts{$t} < $tindex{$_}->{ts}); } } my @list; if ($sort_by eq 'tag' || $sort_by eq 'keyword' ) { @list = $sort_order eq 'ascend' ? sort { lc $a cmp lc $b } keys %tags : sort { lc $b cmp lc $a } keys %tags; } elsif ($sort_by eq 'tag-case' || $sort_by eq 'keyword-case') { @list = $sort_order eq 'ascend' ? sort keys %tags : sort reverse keys %tags; } elsif ($sort_by eq 'date') { @list = $sort_order eq 'ascend' ? sort { $ts{$a} <=> $ts{$b} } keys %tags : sort { $ts{$b} <=> $ts{$a} } keys %tags; } else { @list = $sort_order eq 'ascend' ? sort { $tags{$a} <=> $tags{$b} } keys %tags : sort { $tags{$b} <=> $tags{$a} } keys %tags; } $ctx->stash('Tagwire::tags_total', scalar @list); my $total_sum = 0; $total_sum += $tags{$_} foreach (@list); $ctx->stash('Tagwire::tags_total_sum', $total_sum); my @res; my $builder = $ctx->stash('builder'); my $tokens = $ctx->stash('tokens'); my $i = 0; foreach (@list) { last if $lastn && $i >= $lastn; local $ctx->{__stash}{'Tagwire::tag'} = $_; local $ctx->{__stash}{'Tagwire::tag_count'} = $tags{$_}; local $ctx->{__stash}{'Tagwire::tag_date'} = $ts{$_}; defined (my $out = $builder->build($ctx, $tokens)) or return $ctx->error($ctx->errstr); push @res, $out; $i++; } my $glue = $args->{glue} || ''; join $glue, @res; } ;# ++piroli, '05/09/26

オリジナルコードの著作権はogawaさん (Ogawa::Memoranda)にあります。 また上記の改造コードの扱いについては Tagwire Plugin のそれに準じます。
http://www.perl.com/language/misc/Artistic.html

アーカイブテンプレートの例

　あるカテゴリに属するエントリで使用されているタグのみを使用する場合、 例えば以下のようにアーカイブテンプレートを修正します。 なお、使用できるタグやオプションは <MTTags> と全く同様です。

<h4>このカテゴリの代表タグ</h4> <ul> <MTTagsInEntries sort_by="count" sort_order="descend" lastn="5"> <li><$MTTag$> [<$MTTagCount$>]</li> <ul> <MTRelatedTags sort_by="count" sort_order="descend" lastn="3"> <li><$MTTag$></li> </MTRelatedTags> </ul> </MTTagsInEntries> </ul>