はじめに

Tagwire plugin の改造

;# ++piroli, '05/11/14 MT::Template::Context->add_container_tag('TagsAutoDiscovery' => ¥&tags_auto_discovery); sub tags_auto_discovery { my ($ctx, $args, $cond) = @_; ;# Tags Auto Discovery does work only when '[?]' is appeared as keyword. ;# When keywords of the entry is blank or has any words, do nothing. my $entry = $ctx->stash ('entry') or return $ctx->_no_entry_error ('MT'. $ctx->stash ('tag')); $entry->keywords =‾ m/^¥[¥?¥]$/ or return $entry->keywords; ;# retrieving parameters and set default values # count *** NOT YET IMPLEMENTED **** # my $count = $args->{count} || 0; ;# retrieving the regexp pattern of keywords my $re; if (defined (my $regexp_file = $args->{regexp_file})) { ;# @see <$MTInclude file="..."$> $re = MT::Template::Context::_hdlr_include ( $ctx, {'file' => $args->{regexp_file}}, $cond); } elsif (defined (my $regexp_template = $args->{regexp_template})) { ;# you can use the file which is built with Index Template ;# @see <$MTLink template="..."$> my $file_path = MT::Template::Context::_hdlr_link ( $ctx, {'template' => $args->{regexp_template}}, $cond); my $site_url = $ctx->stash('blog')->site_url; my $site_path = $ctx->stash('blog')->site_path; $file_path =‾ s/¥Q$site_url¥E/$site_path¥//; $file_path =‾ s/¥/+/¥//g; $re = do $file_path; } elsif (defined (my $regexp_module = $args->{regexp_module})) { ;# it may be the performance issue when too many tags ;# but you can control this behaviour by parameters :) ;# @see <$MTInclude module="..."$> $re = MT::Template::Context::_hdlr_include ( $ctx, {'module' => $args->{regexp_module}}, $cond); } else { ;# it may be the performance issue when too many tags ;# and be called with using all args as default values :( $re = eval tags_as_regexp ($ctx, $args); } $ctx->error ('MT'. $ctx->stash ('tag'). ': no regexp is specified.') if (! $re); ;# build contents within container tag defined (my $content = $ctx->stash('builder')->build ($ctx, $ctx->stash ('tokens'))) or return $ctx->error ($ctx->errstr); ;# convert $content to EUC temporally because regexp is written in EUC use Jcode; my $original_charset = getcode ($content); $content = Jcode::convert ($content, 'euc', $original_charset); ;# should not keywordnize in these tags my %ignore_tags = (); map { $ignore_tags{lc $_} = 1; } split /,/, 'pre,textarea'; defined $args->{ignore_tags} and map { $ignore_tags{lc $_} = 1; } split /,/, $args->{ignore_tags}; defined $args->{apply_tags} and map { $ignore_tags{lc $_} = 0; } split /,/, $args->{apply_tags}; ;# Parse the $content for retrieving the text areas that should be given the keywords my $keywordnize = 0; my %keyword_list = (); use HTML::Parser; my $html_parser = HTML::Parser->new ( start_h => [ sub { my ($tagname) = @_; $ignore_tags{$tagname} && $keywordnize++; } => 'tagname'], end_h => [ sub { my ($tagname) = @_; 0 < $keywordnize && $ignore_tags{$tagname} && --$keywordnize; } => 'tagname'], text_h => [ sub { my ($text) = @_; if ($keywordnize == 0) { $text =‾ s{($re)}{ my $kw = $1; $keyword_list{$kw}++; $kw; }egx; } } => 'text'], default_h => [""]); $html_parser->parse ($content); $html_parser->eof; ;# Set the discovered keywords as entry's new one. my $keywords = join ' ', sort { $keyword_list{$b} <=> $keyword_list{$a} } keys %keyword_list; $keywords = Jcode::convert ($keywords, $original_charset, 'euc'); $entry->keywords ($keywords); $entry->save;# :-) return $entry->keywords; }

追加されるテンプレートタグ

MTTagsAutoDiscovery

<MTTagsAutoDiscovery> コンテナタグは、 コンテナ内に含まれる文章から regexp_XXX で指定された正規表現式を使ってタグの抽出を行い、 発見された単語を MovableType 管理画面の記事の投稿画面のキーワード欄に設定します。 またコンテナタグは、そこに含まれるコンテクストに関係なく、常にそのエントリのキーワードを返します。 つまり <$MTEntryKeywords$> と同じです。

regexp_file

　指定されたファイルの内容をタグ検索のための正規表現式として使用します。 その動作は <$MTInclude file="..."$> に準じます。

regexp_template

　指定されたインデックステンプレートによって生成されたファイルの内容をタグ検索のための正規表現式として使用します。 その動作は <$MTLink template="..."$> に準じます。

regexp_module

　指定されたテンプレートモジュールの構築結果を、タグ検索のための正規表現式として使用します。 その動作は <$MTInclude module="..."$> に準じます。 構築のたびに正規表現式の生成が行われるため、タグ数が増えた場合にパフォーマンス上の問題となる可能性があります。

regexp_file、regexp_template、regexp_module が何れも指定されていない場合、 内部的にデフォルトパラメータを用いて MTTagsAsRegexp を呼び出します。 そのため、構築のたびに正規表現式の生成が行われるため、 タグ数が増えた場合にパフォーマンス上の問題となる可能性があります。

ignore_tags

　デフォルトで pre,textarea,script 内部に含まれるテキストにはタグリンクを生成しません。 他に追加していしたい HTML タグがある場合、それらのタグをコンマで区切って指定することができます。

apply_tags

　ignore_tags とは逆に、その内部でタグリンクを生成させたい HTML タグをコンマで区切って指定することができます。

これらの指定はデフォルトのignore_tags ＜ ignore_Tags ＜ apply_tags の順に優先されます。

テンプレートタグの修正

内容(BODY)と追記(extend)部分からタグ候補の抽出を行う MTTagsAutoDiscovery コンテナは常にキーワード文字列を返すのでコメントアウトしている <!-- <MTTagsAutoDiscovery regexp_template="Tags Regexp"> <$MTEntryBody$> <$MTEntryMore$> </MTTagsAutoDiscovery> -->

使い方

Step1. 記事作成

下書き状態でもキーワード抽出できればいいのですが…　その方が便利そうです。

Step2. タグ候補の修正