summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/patchqueue/morelink-plugin.mdwn37
1 files changed, 37 insertions, 0 deletions
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 "<a name='more'></a>".$args{text};
+ + }
+ +}
+ +
+ +1