差分表示
- 最後の更新で追加された行はこのように表示します。
- 最後の更新で削除された行はこのように表示します。
目次となっている項目名に自動的にリンクを張ります。
*[toc auto link]
そのページの見出しと同じ文字列があった場合、自動的にリンクを貼ります。
(例:[toc auto link]・text_to_html()内の変更)
**text_to_html()内の変更
push(@tocresult, splice(@tocsaved));
# yakty add [toc auto link] start
my $result = join("\n", @result);
my $ignoretag = "<\/((a)|(pre)|(form)|(h[1234])|(span))>";
foreach my $toclink (@toc){
$toclink =~ s/[\r\n]//g;
$toclink =~ s/-+(<a.+?>(.+?)<\/a>.*)$/$1/;
next if(length($2) < 5);
$result =~ s+(\Q$2\E)(((.*?)($ignoretag))|(?!.*$ignoretag))+
(length($_ = $2) > 0 and ($4 !~ /<$6/)) ? $& :
$toclink . $_
+ges;
}
# yakty add [toc auto link] end
#return join("\n", @tocresult, @result); # yakty del [toc auto link]
return join("\n", @tocresult, $result); # yakty add [toc auto link]
02371