MTで記事を書いていると、Blockquoteタグ内はなぜか自動で改行タグが入りません。
いちいち手打ちしていたのですが面倒になってきたので、自動でbrタグを追記するよう、改造する方法を見つけてきました。
我楽さんの「Blockquoteタグにデフォルトで改行が入るようにする。」を参考に作業しました。
やり方は以下に。
sub html_text_transform {
my $str = shift;
$str ||= '';
my @paras = split /\r?\n\r?\n/, $str;
for my $p (@paras) {
if ($p !~ m@^</?(?:h1|h2|h3|h4|h5|h6|table|ol|dl|ul|menu|dir|p|pre|
center|form|fieldset|blockquote|address|div|hr)@) {
$p =~ s!\r?\n!<br />\n!g;
$p = "<p>$p</p>";
}
elsif ($p =~ m@^</?(?:blockquote|div|p)@){
$p =~ s!\r?\n!<br />\n!g;
}
}
join "\n\n", @paras;
}
以上で、自動で改行タグが入るようになります。
このエントリーのトラックバックURL: