2 # quick HTML heading id adder by Paul Wise
3 package IkiWiki::Plugin::headinganchors;
10 hook(type => "sanitize", id => "headinganchors", call => \&headinganchors);
18 $str =~ s/[&\?"\'\.,\(\)!]//mig;
19 $str =~ s/[^a-z]/_/mig;
23 sub headinganchors (@) {
25 my $content=$params{content};
26 $content=~s{<h([0-9])>([^>]*)</h([0-9])>}{'<h'.$1.' id="'.text_to_anchor($2).'">'.$2.'</h'.$3.'>'}gie;