summaryrefslogtreecommitdiff
path: root/IkiWiki/Setup
diff options
context:
space:
mode:
authorJoey Hess <joey@kodama.kitenet.net>2008-07-26 14:39:12 -0400
committerJoey Hess <joey@kodama.kitenet.net>2008-07-26 14:39:12 -0400
commitabab46f983118e42e7780670812db54162c33e06 (patch)
tree45f8f9e578b072cb4b8aa9770d5aac65932d5cf0 /IkiWiki/Setup
parent1ba84c3a6b8b0a614e50b63f70d31090a7ee23de (diff)
add info for all common setup file options, and most internal ones
Diffstat (limited to 'IkiWiki/Setup')
-rw-r--r--IkiWiki/Setup/Standard.pm36
1 files changed, 21 insertions, 15 deletions
diff --git a/IkiWiki/Setup/Standard.pm b/IkiWiki/Setup/Standard.pm
index 912b64ba6..d88dc9e1c 100644
--- a/IkiWiki/Setup/Standard.pm
+++ b/IkiWiki/Setup/Standard.pm
@@ -13,9 +13,10 @@ sub import { #{{{
$IkiWiki::Setup::raw_setup=$_[1];
} #}}}
-sub dumpline ($$$) { #{{{
+sub dumpline ($$$$) { #{{{
my $key=shift;
my $value=shift;
+ my $type=shift;
my $prefix=shift;
eval q{use Data::Dumper};
@@ -26,9 +27,15 @@ sub dumpline ($$$) { #{{{
local $Data::Dumper::Sortkeys=1;
local $Data::Dumper::Quotekeys=0;
- my $dumpedvalue=Dumper($value);
- chomp $dumpedvalue;
- $dumpedvalue=~s/^\t//;
+ my $dumpedvalue;
+ if ($type eq 'boolean' || $type eq 'integer') {
+ $dumpedvalue=$value;
+ }
+ else {
+ $dumpedvalue=Dumper($value);
+ chomp $dumpedvalue;
+ $dumpedvalue=~s/^\t//;
+ }
return "\t$prefix$key=$dumpedvalue,";
} #}}}
@@ -39,18 +46,20 @@ sub dumpvalues ($@) { #{{{
while (@_) {
my $key=shift;
my %info=%{shift()};
+
+ next if $info{type} eq "internal";
push @ret, "\t# ".$info{description} if exists $info{description};
if (exists $setup->{$key} && defined $setup->{$key}) {
- push @ret, dumpline($key, $setup->{$key}, "");
+ push @ret, dumpline($key, $setup->{$key}, $info{type}, "");
delete $setup->{$key};
}
- elsif (exists $info{default}) {
- push @ret, dumpline($key, $info{default}, "#");
+ elsif (exists $info{default} && defined $info{default}) {
+ push @ret, dumpline($key, $info{default}, $info{type}, "#");
}
elsif (exists $info{example}) {
- push @ret, dumpline($key, $info{example}, "#");
+ push @ret, dumpline($key, $info{example}, $info{type}, "#");
}
}
return @ret;
@@ -61,6 +70,10 @@ sub dump ($) { #{{{
my %setup=(%config);
my @ret;
+
+ push @ret, "\t# basic setup";
+ push @ret, dumpvalues(\%setup, IkiWiki::getsetup());
+ push @ret, "";
foreach my $id (sort keys %{$IkiWiki::hooks{getsetup}}) {
# use an array rather than a hash, to preserve order
@@ -71,13 +84,6 @@ sub dump ($) { #{{{
push @ret, "";
}
- if (%setup) {
- push @ret, "\t# other";
- foreach my $key (sort keys %setup) {
- push @ret, dumpline($key, $setup{$key}, "");
- }
- }
-
unshift @ret, "#!/usr/bin/perl
# Setup file for ikiwiki.
# Passing this to ikiwiki --setup will make ikiwiki generate wrappers and