diff options
Diffstat (limited to 'IkiWiki')
| -rw-r--r-- | IkiWiki/Plugin/toc.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/IkiWiki/Plugin/toc.pm b/IkiWiki/Plugin/toc.pm index ac07b9af6..4d29e7040 100644 --- a/IkiWiki/Plugin/toc.pm +++ b/IkiWiki/Plugin/toc.pm @@ -59,13 +59,16 @@ sub format (@) { my $liststarted=0; my $indent=sub { "\t" x $curlevel }; $p->handler(start => sub { - my $tagname=shift; - my $text=shift; + my ($tagname, $text, $attr) = @_; if ($tagname =~ /^h(\d+)$/i) { my $level=$1; my $anchor="index".++$anchors{$level}."h$level"; $page.="$text<a name=\"$anchor\"></a>"; - + # if the heading already has a unique ID, use that instead in TOC + if ($attr->{id}) { + $anchor = $attr->{id}; + } + # Unless we're given startlevel as a parameter, # take the first header level seen as the topmost level, # even if there are higher levels seen later on. @@ -124,7 +127,7 @@ sub format (@) { else { $page.=$text; } - }, "tagname, text"); + }, "tagname, text, attr"); $p->handler(default => sub { $page.=join("", @_) }, "text"); $p->parse($content); $p->eof; |