blob: 2420a66442f78210240b4d5140d2b54d36cf49bb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
#!/usr/bin/perl
# Standard ikiwiki setup module.
# Parameters to import should be all the standard ikiwiki config stuff,
# plus an array of wrappers to set up.
package IkiWiki::Setup::Standard;
use warnings;
use strict;
sub import { #{{{
$IkiWiki::Setup::raw_setup=$_[1];
} #}}}
sub generate (@) { #{{{
my %setup=@_;
eval q{use Data::Dumper};
error($@) if $@;
local $Data::Dumper::Terse=1;
my @ret="#!/usr/bin/perl
# Setup file for ikiwiki.
# Passing this to ikiwiki --setup will make ikiwiki generate wrappers and
# build the wiki.
#
# Remember to re-run ikiwiki --setup any time you edit this file.
use IkiWiki::Setup::Standard {";
foreach my $id (sort keys %{$IkiWiki::hooks{getsetup}}) {
my @setup=$IkiWiki::hooks{getsetup}{$id}{call}->();
return unless @setup;
push @ret, "\t# $id plugin";
while (@setup) {
my $key=shift @setup;
my %info=%{shift @setup};
push @ret, "\t# ".$info{description} if exists $info{description};
my $value=undef;
my $prefix="#";
if (exists $setup{$key} && defined $setup{$key}) {
$value=$setup{$key};
$prefix="";
}
elsif (exists $info{default}) {
$value=$info{default};
}
elsif (exists $info{example}) {
$value=$info{example};
}
my $dumpedvalue=Dumper($value);
chomp $dumpedvalue;
push @ret, "\t$prefix$key=$dumpedvalue,";
}
push @ret, "";
}
push @ret, "}";
return @ret;
} #}}}
1
|