Merge branch 'master' of ssh://git.ikiwiki.info/srv/git/ikiwiki.info
[ikiwiki] / IkiWiki / Plugin / listdirectives.pm
1 #!/usr/bin/perl
2 # Ikiwiki listdirectives plugin.
3 package IkiWiki::Plugin::listdirectives;
4
5 use warnings;
6 use strict;
7 use IkiWiki 3.00;
8
9 sub import {
10         add_underlay("directives");
11         hook(type => "getsetup", id => "listdirectives", call => \&getsetup);
12         hook(type => "checkconfig", id => "listdirectives", call => \&checkconfig);
13         hook(type => "needsbuild", id => "listdirectives", call => \&needsbuild);
14         hook(type => "preprocess", id => "listdirectives", call => \&preprocess);
15 }
16
17 sub getsetup () {
18         return
19                 plugin => {
20                         safe => 1,
21                         rebuild => undef,
22                 },
23                 directive_description_dir => {
24                         type => "string",
25                         description => "directory in srcdir that contains directive descriptions",
26                         example => "ikiwiki/directive",
27                         safe => 1,
28                         rebuild => 1,
29                 },
30 }
31
32 my @fulllist;
33 my @shortlist;
34 my $pluginstring;
35
36 sub checkconfig () {
37         if (! defined $config{directive_description_dir}) {
38                 $config{directive_description_dir} = "ikiwiki/directive";
39         }
40         else {
41                 $config{directive_description_dir} =~ s/\/+$//;
42         }
43 }
44
45 sub needsbuild (@) {
46         my $needsbuild=shift;
47
48         @fulllist = sort keys %{$IkiWiki::hooks{preprocess}};
49         @shortlist = grep { ! $IkiWiki::hooks{preprocess}{$_}{shortcut} } @fulllist;
50         $pluginstring = join(' ', @shortlist) . " : " . join(' ', @fulllist);
51
52         foreach my $page (keys %pagestate) {
53                 if (exists $pagestate{$page}{listdirectives}{shown}) {
54                         if ($pagestate{$page}{listdirectives}{shown} ne $pluginstring) {
55                                 push @$needsbuild, $pagesources{$page};
56                         }
57                         if (exists $pagesources{$page} &&
58                             grep { $_ eq $pagesources{$page} } @$needsbuild) {
59                                 # remove state, will be re-added if
60                                 # the [[!listdirectives]] is still there during the
61                                 # rebuild
62                                 delete $pagestate{$page}{listdirectives}{shown};
63                         }
64                 }
65         }
66 }
67
68 sub preprocess (@) {
69         my %params=@_;
70         
71         $pagestate{$params{destpage}}{listdirectives}{shown}=$pluginstring;
72         
73         my @pluginlist;
74         
75         if (defined $params{generated}) {
76                 @pluginlist = @fulllist;
77         }
78         else {
79                 @pluginlist = @shortlist;
80         }
81         
82         my $result = '<ul class="listdirectives">';
83         
84         foreach my $plugin (@pluginlist) {
85                 $result .= '<li class="listdirectives">';
86                 my $link=linkpage($config{directive_description_dir}."/".$plugin);
87                 add_depends($params{page}, $link);
88                 $result .= htmllink($params{page}, $params{destpage}, $link);
89                 $result .= '</li>';
90         }
91         
92         $result .= "</ul>";
93
94         return $result;
95 }
96
97 1