目次となっている項目名に自動的にリンクを張ります。
[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]