Merge branch 'master' of ssh://git.ikiwiki.info/srv/git/ikiwiki.info
[ikiwiki] / IkiWiki / Plugin / theme.pm
1 #!/usr/bin/perl
2 package IkiWiki::Plugin::theme;
3
4 use warnings;
5 use strict;
6 use IkiWiki 3.00;
7
8 sub import {
9         hook(type => "getsetup", id => "theme", call => \&getsetup);
10         hook(type => "checkconfig", id => "theme", call => \&checkconfig);
11         hook(type => "needsbuild", id => "theme", call => \&needsbuild);
12 }
13
14 sub getsetup () {
15         return
16                 plugin => {
17                         safe => 1,
18                         rebuild => 0,
19                         section => "web",
20                 },
21                 theme => {
22                         type => "string",
23                         example => "actiontabs",
24                         description => "name of theme to enable",
25                         safe => 1,
26                         rebuild => 0,
27                 },
28 }
29
30 my $added=0;
31 sub checkconfig () {
32         if (! $added && exists $config{theme} && $config{theme} =~ /^\w+$/) {
33                 add_underlay("themes/".$config{theme});
34                 $added=1;
35         }
36 }
37
38 sub needsbuild ($) {
39         my $needsbuild=shift;
40         if (($config{theme} || '') ne ($wikistate{theme}{currenttheme} || '')) {
41                 # theme changed; ensure all files in the theme are built
42                 my %needsbuild=map { $_ => 1 } @$needsbuild;
43                 if ($config{theme}) {
44                         foreach my $file (glob("$config{underlaydirbase}/themes/$config{theme}/*")) {
45                                 if (-f $file) {
46                                         my $f=IkiWiki::basename($file);
47                                         push @$needsbuild, $f
48                                                 unless $needsbuild{$f};
49                                 }
50                         }
51                 }
52                 elsif ($wikistate{theme}{currenttheme}) {
53                         foreach my $file (glob("$config{underlaydirbase}/themes/$wikistate{theme}{currenttheme}/*")) {
54                                 my $f=IkiWiki::basename($file);
55                                 if (-f $file && defined eval { srcfile($f) }) {
56                                         push @$needsbuild, $f;
57                                 }
58                         }
59                 }
60                 
61                 $wikistate{theme}{currenttheme}=$config{theme};
62         }
63         return $needsbuild;
64 }
65
66 1