diff options
Diffstat (limited to 'doc/plugins/contrib/headinganchors.mdwn')
-rw-r--r-- | doc/plugins/contrib/headinganchors.mdwn | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/doc/plugins/contrib/headinganchors.mdwn b/doc/plugins/contrib/headinganchors.mdwn deleted file mode 100644 index becbf89a5..000000000 --- a/doc/plugins/contrib/headinganchors.mdwn +++ /dev/null @@ -1,36 +0,0 @@ -[[!template id=plugin name=headinganchors author="[[PaulWise]]"]] - -This is a simple plugin to add ids (which will serve as [[anchor]]s) 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; - return $content; - } - - 1 |