From 278ae9afea19b20058e7ed5290305ca69c71a649 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kodama.kitenet.net>
Date: Sat, 26 Jul 2008 01:35:26 -0400
Subject: [PATCH] add ability to generate setup files

quite nice ones, too, with comments and everything
---
 IkiWiki/Setup/Standard.pm | 54 +++++++++++++++++++++++++++++++++++++--
 1 file changed, 52 insertions(+), 2 deletions(-)

diff --git a/IkiWiki/Setup/Standard.pm b/IkiWiki/Setup/Standard.pm
index f67c3829b..2420a6644 100644
--- a/IkiWiki/Setup/Standard.pm
+++ b/IkiWiki/Setup/Standard.pm
@@ -8,8 +8,58 @@ package IkiWiki::Setup::Standard;
 use warnings;
 use strict;
 
-sub import {
+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
-- 
2.39.2