diff options
| -rw-r--r-- | doc/plugins/contrib/headinganchors.mdwn | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/doc/plugins/contrib/headinganchors.mdwn b/doc/plugins/contrib/headinganchors.mdwn new file mode 100644 index 000000000..4d93714ca --- /dev/null +++ b/doc/plugins/contrib/headinganchors.mdwn @@ -0,0 +1,33 @@ +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: + + #!/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; + #$content=~s/(<img(?:\s+(?:class|id|width|height)\s*="?\w+"?)*)\s+src=\s*"\/([^"]*)"/$1 src="$baseurl$2"/mig; + return $content; + } # }}} + + 1 |