From dcfc0593d3aa0b464fe05d08939b5e52cb29412c Mon Sep 17 00:00:00 2001
From: joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Date: Mon, 19 Feb 2007 18:14:02 +0000
Subject: [PATCH] web commit by http://id.inelegant.org/: Enables _Read more_
 links for use in blog posts. Adds a config option for customising the anchor
 text.

---
 doc/patchqueue/morelink-plugin.mdwn | 37 +++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 doc/patchqueue/morelink-plugin.mdwn

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
-- 
2.26.2