33 lines
716 B
Perl
33 lines
716 B
Perl
#!/usr/bin/perl
|
|
package IkiWiki::Plugin::more;
|
|
|
|
use warnings;
|
|
use strict;
|
|
use IkiWiki 2.00;
|
|
|
|
my $linktext = gettext("more");
|
|
|
|
sub import { #{{{
|
|
hook(type => "preprocess", id => "more", call => \&preprocess);
|
|
} # }}}
|
|
|
|
sub preprocess (@) { #{{{
|
|
my %params=@_;
|
|
|
|
$params{linktext} = $linktext unless defined $params{linktext};
|
|
|
|
if ($params{page} ne $params{destpage}) {
|
|
return "\n".
|
|
htmllink($params{page}, $params{destpage}, $params{page},
|
|
linktext => $params{linktext},
|
|
anchor => "more");
|
|
}
|
|
else {
|
|
$params{text}=IkiWiki::preprocess($params{page}, $params{destpage},
|
|
IkiWiki::filter($params{page}, $params{destpage}, $params{text}));
|
|
return "<a name=\"more\"></a>\n\n".$params{text};
|
|
}
|
|
}
|
|
|
|
1
|