X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/b5a669f34b38da86b1260ac7a5abd7a63cfad4ac..d8deff0a0c8fcb10784d06535d313e3cf880f799:/IkiWiki/Plugin/headinganchors.pm?ds=inline

diff --git a/IkiWiki/Plugin/headinganchors.pm b/IkiWiki/Plugin/headinganchors.pm
index b29150368..ece6f4eac 100644
--- a/IkiWiki/Plugin/headinganchors.pm
+++ b/IkiWiki/Plugin/headinganchors.pm
@@ -5,6 +5,7 @@ package IkiWiki::Plugin::headinganchors;
 use warnings;
 use strict;
 use IkiWiki 3.00;
+use URI::Escape;
 
 sub import {
 	hook(type => "getsetup", id => "headinganchors", call => \&getsetup);
@@ -12,7 +13,7 @@ sub import {
 }
 
 sub getsetup () {
-        return
+	return
 		plugin => {
 			safe => 1,
 			rebuild => undef,
@@ -24,9 +25,11 @@ 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;
 }