package Wiki::Plugin;
#
# FreeStyleWikiLite用プラグイン 2008/12/20
#   以下をsetup.plの該当箇所に記述. 
#      require "./plugin/yoshi.pl";
#
BEGIN {
	# インラインプラグインのエントリ
	$main::I_PLUGIN->{small} = \&Wiki::Plugin::yoshi::small;
	$main::I_PLUGIN->{big} = \&Wiki::Plugin::yoshi::big;
	$main::I_PLUGIN->{color} = \&Wiki::Plugin::yoshi::color;
}

package Wiki::Plugin::yoshi;

# 文字を小さく  {{small Wiki書式}}
sub small{
	my $str = shift;
	$str = &Wiki::process_wiki($str, 1);

	$str =~ s!<p(?:[^>]*?)>(.*?)</p>!$1!;
	return ($str) ? qq(<small>$str</small>) : undef;
}

# 文字を大きく  {{big Wiki書式}}
sub big{
	my $str = shift;
	$str = &Wiki::process_wiki($str, 1);

	$str =~ s!<p(?:[^>]*?)>(.*?)</p>!$1!;
	return ($str) ? qq(<big>$str</big>) : undef;
}

# 文字に色を付ける  {{color 属性値,Wiki書式}}
sub color{
	my $value = shift;
	my $str = shift;

	$value = &Util::escapeHTML($value);
	$str = &Wiki::process_wiki($str, 1);

	$str =~ s!<p(?:[^>]*?)>(.*?)</p>!$1!;
	return ($value && $str) ? qq(<font color="$value">$str</font>) : undef;
}

1; #return true