use warnings;
use strict;
-use IkiWiki 2.00;
+use IkiWiki 3.00;
+use URI::Escape;
sub import {
+ hook(type => "getsetup", id => "headinganchors", call => \&getsetup);
hook(type => "sanitize", id => "headinganchors", call => \&headinganchors);
}
+sub getsetup () {
+ return
+ plugin => {
+ safe => 1,
+ rebuild => undef,
+ section => "widget",
+ },
+}
+
sub text_to_anchor {
my $str = shift;
$str =~ s/^\s+//;
$str =~ s/\s+$//;
- $str = lc($str);
- $str =~ s/[&\?"\'\.,\(\)!]//mig;
- $str =~ s/[^a-z]/_/mig;
+ $str =~ s/\s/_/g;
+ $str =~ s/"//g;
+ $str =~ s/^[^a-zA-Z]/z-/; # must start with an alphabetical character
+ $str = uri_escape_utf8($str);
+ $str =~ s/%/./g;
return $str;
}