IkiWiki/Plugin/template.pm

   1 #!/usr/bin/perl
   2 # Structured template plugin.
   3 package IkiWiki::Plugin::template;
   4
   5 use warnings;
   6 use strict;
   7 use IkiWiki 3.00;
   8 use Encode;
   9
  10 sub import {
  11         hook(type => "getsetup", id => "template", call => \&getsetup);
  12         hook(type => "preprocess", id => "template", call => \&preprocess,
  13                 scan => 1);
  14 }
  15
  16 sub getsetup () {
  17         return
  18                 plugin => {
  19                         safe => 1,
  20                         rebuild => undef,
  21                         section => "widget",
  22                 },
  23 }
  24
  25 sub preprocess (@) {
  26         my %params=@_;
  27
  28         # This needs to run even in scan mode, in order to process
  29         # links and other metadata included via the template.
  30         my $scan=! defined wantarray;
  31
  32         if (! exists $params{id}) {
  33                 error gettext("missing id parameter")
  34         }
  35
  36         # The bare id is used, so a page templates/$id can be used as
  37         # the template.
  38         my $template;
  39         eval {
  40                 $template=template_depends($params{id}, $params{page},
  41                         blind_cache => 1);
  42         };
  43         if ($@) {
  44                 error sprintf(gettext("failed to process template %s"),
  45                         htmllink($params{page}, $params{destpage},
  46                                 "/templates/$params{id}"))." $@";
  47         }
  48
  49         $params{basename}=IkiWiki::basename($params{page});
  50
  51         foreach my $param (keys %params) {
  52                 my $value=IkiWiki::preprocess($params{page}, $params{destpage},
  53                           $params{$param}, $scan);
  54                 if ($template->query(name => $param)) {
  55                         my $htmlvalue=IkiWiki::htmlize($params{page}, $params{destpage},
  56                                         pagetype($pagesources{$params{page}}),
  57                                         $value);
  58                         chomp $htmlvalue;
  59                         $template->param($param => $htmlvalue);
  60                 }
  61                 if ($template->query(name => "raw_$param")) {
  62                         chomp $value;
  63                         $template->param("raw_$param" => $value);
  64                 }
  65         }
  66
  67         return IkiWiki::preprocess($params{page}, $params{destpage},
  68                $template->output, $scan);
  69 }
  70
  71 1