git.oblomov.eu Git - ikiwiki/blob - IkiWiki/Plugin/more.pm

   1 #!/usr/bin/perl
   2 package IkiWiki::Plugin::more;
   3
   4 use warnings;
   5 use strict;
   6 use IkiWiki 3.00;
   7
   8 my $linktext = gettext("more");
   9
  10 sub import {
  11         hook(type => "getsetup", id => "more", call => \&getsetup);
  12         hook(type => "preprocess", id => "more", call => \&preprocess);
  13 }
  14
  15 sub getsetup () {
  16         return
  17                 plugin => {
  18                         safe => 1,
  19                         rebuild => undef,
  20                 },
  21 }
  22
  23 sub preprocess (@) {
  24         my %params=@_;
  25
  26         $params{linktext} = $linktext unless defined $params{linktext};
  27
  28         if ($params{page} ne $params{destpage}) {
  29                 return "\n".
  30                         htmllink($params{page}, $params{destpage}, $params{page},
  31                                 linktext => $params{linktext},
  32                                 anchor => "more");
  33         }
  34         else {
  35                 $params{text}=IkiWiki::preprocess($params{page}, $params{destpage},
  36                         IkiWiki::filter($params{page}, $params{destpage}, $params{text}));
  37                 return "<a name=\"more\"></a>\n\n".$params{text};
  38         }
  39 }
  40
  41 1