2008-02-11 05:00:30 +01:00
|
|
|
[[template id=plugin name=headinganchors author="[[PaulWise]]"]]
|
|
|
|
|
|
|
|
|
|
This is a simple plugin to add ids to all headings, based on their text. It
|
|
|
|
|
works as a postprocessing filter, allowing it to work on mdwn, wiki, html,
|
|
|
|
|
rst and any other format that produces html. The code is available here:
|
2007-08-09 08:34:20 +02:00
|
|
|
|
|
|
|
|
#!/usr/bin/perl
|
|
|
|
|
# quick HTML heading id adder by Paul Wise
|
|
|
|
|
package IkiWiki::Plugin::headinganchors;
|
|
|
|
|
|
|
|
|
|
use warnings;
|
|
|
|
|
use strict;
|
|
|
|
|
use IkiWiki 2.00;
|
|
|
|
|
|
|
|
|
|
sub import { #{{{
|
|
|
|
|
hook(type => "sanitize", id => "headinganchors", call => \&headinganchors);
|
|
|
|
|
} # }}}
|
|
|
|
|
|
|
|
|
|
sub text_to_anchor {
|
|
|
|
|
my $str = shift;
|
|
|
|
|
$str =~ s/^\s+//;
|
|
|
|
|
$str =~ s/\s+$//;
|
|
|
|
|
$str = lc($str);
|
|
|
|
|
$str =~ s/[&\?"\'\.,\(\)!]//mig;
|
|
|
|
|
$str =~ s/[^a-z]/_/mig;
|
|
|
|
|
return $str;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
sub headinganchors (@) { #{{{
|
|
|
|
|
my %params=@_;
|
|
|
|
|
my $content=$params{content};
|
|
|
|
|
$content=~s{<h([0-9])>([^>]*)</h([0-9])>}{'<h'.$1.' id="'.text_to_anchor($2).'">'.$2.'</h'.$3.'>'}gie;
|
|
|
|
|
return $content;
|
|
|
|
|
} # }}}
|
|
|
|
|
|
|
|
|
|
1
|
