diff --git a/doc/patchqueue/morelink-plugin.mdwn b/doc/patchqueue/morelink-plugin.mdwn new file mode 100644 index 000000000..02d20329b --- /dev/null +++ b/doc/patchqueue/morelink-plugin.mdwn @@ -0,0 +1,37 @@ +Enables _Read more_ links for use in blog posts. Adds a config option for customising the anchor text. + + Index: IkiWiki/Plugin/morelink.pm + =================================================================== + --- IkiWiki/Plugin/morelink.pm (revision 0) + +++ IkiWiki/Plugin/morelink.pm (revision 0) + @@ -0,0 +1,30 @@ + +#!/usr/bin/perl + +package IkiWiki::Plugin::morelink; + + + +use warnings; + +use strict; + +use IkiWiki; + + + +my $linktext = 'Read more'; + + + +sub import { #{{{ + + hook(type => "checkconfig", id => "more", call => \&checkconfig); + + hook(type => "preprocess", id => "more", call => \&preprocess); + +} # }}} + + + +sub checkconfig () { #{{{ + + $linktext = $config{morelink_text} || $linktext; + +} #}}} + + + +sub preprocess (@) { #{{{ + + my %args = @_; + + + + if ($args{page} ne $args{destpage}) { + + return "\n".htmllink($args{page}, $args{destpage}, $args{page}.'#more', 0, 0, $linktext); + + } + + else { + + return "".$args{text}; + + } + +} + + + +1