]> scripts.mit.edu Git - www/ikiwiki.git/blobdiff - doc/plugins/contrib/headinganchors.mdwn
move headinganchors out of contrib
[www/ikiwiki.git] / doc / plugins / contrib / headinganchors.mdwn
diff --git a/doc/plugins/contrib/headinganchors.mdwn b/doc/plugins/contrib/headinganchors.mdwn
deleted file mode 100644 (file)
index becbf89..0000000
+++ /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