Tagwire Plugin の変更

　以下のソースを参考に、tagwire.pl を変更します。 この改造は、Tagwire Plugin に既に MTTagsInEntries が導入されていることが前提になりますので、先にそちらの改造を行っておいてください。

;# MT::Template::Context->add_container_tag (... が続くあたりに追加します ;# piroli++, '05/09/27 MT::Template::Context->add_tag('TagScore' => ¥&tag_score); sub tag_score { $_[0]->stash('Tagwire::tag_score') || 0; } ;# sub tags_in_entries {...} 付近 ： ： 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{$_}; ;# piroli, '05/09/27, コンテクスト中のエントリにおけるタグの使用率 local $ctx->{__stash}{'Tagwire::tag_score'} = int (0.5 + $tags{$_} * 100 / (scalar @$entries)); defined (my $out = $builder->build($ctx, $tokens)) or return $ctx->error($ctx->errstr); push @res, $out; $i++; } my $glue = $args->{glue} || ''; join $glue, @res; } ;# sub related_tags {...} 付近 ： ： 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{$_}; ;# piroli, '05/09/27, 親タグを持つエントリ中での使用率 local $ctx->{__stash}{'Tagwire::tag_score'} = int (0.5 + $tags{$_} * 100 / (scalar @{$tindex{$tag}->{eids}})); defined(my $out = $builder->build($ctx, $tokens)) or return $ctx->error($ctx->errstr); push @res, $out; $i++; } my $glue = $args->{glue} || ''; join $glue, @res; }

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

テンプレートタグ

　新しく追加されたテンプレートタグ <MTTagScore> は、 現在のタグの関連性を示すスコアを 100 点満点とする整数値で返します。 関連性を求める基準は以下のとおりです。

<MTTagsInEntries> 内で使用した場合

　現在のコンテクストのエントリ中で、そのタグがどれだけ頻繁に使用されているかを示します。 コンテクストのエントリ全てで、そのタグが使用されている場合のスコアは 100 になります (カテゴリアーカイブでの例。右サイドバーの"関連するタグ")

スコア = タグの使用回数 ÷ コンテクスト中のエントリ数 × 100

　例えば、カテゴリ内に 20 件のエントリがあり、そのうち 15 件のエントリで使用されているタグのスコアは 75 点です。

<MTRelatedTags> 内で使用した場合

　元となるタグが使用されているエントリ中で、関連するタグが同様に使用されている割合を示します (タグアーカイブでの例)

スコア = タグの使用回数 ÷ 親タグを持つエントリ数 × 100

　"MovableType"をタグに持つ 20 件のエントリのうち、"plugin"をタグに持つエントリが 3 件あった場合、 "plugin"タグのスコアは 15 点です。 仮に、"MovableType"タグと"plugin"タグが常にペアで使用されている場合のスコアは 100 点になります。

<MTTags> 内で使用した場合

　<MTTagCount> と同じです。

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

　カテゴリアーカイブテンプレートでの記述例は以下の通りです。 カテゴリ内のエントリで頻出するタグを列挙し、 カテゴリ中の記事との関連度を100点満点で表示します。

<h4>このカテゴリの代表タグ</h4> <ul> <MTTagsInEntries sort_by="count" sort_order="descend" lastn="5"> <li><$MTTag$> (<$MTTagScore$>pts)</li> </MTTagsInEntries> </ul>