IkiWiki/Setup/Standard.pm

   1 #!/usr/bin/perl
   2 # Standard ikiwiki setup module.
   3 # Parameters to import should be all the standard ikiwiki config stuff.
   4
   5 package IkiWiki::Setup::Standard;
   6
   7 use warnings;
   8 use strict;
   9 use IkiWiki;
  10
  11 sub import {
  12         IkiWiki::Setup::merge($_[1]);
  13 }
  14
  15 sub gendump ($@) {
  16         my $class=shift;
  17
  18         "#!/usr/bin/perl",
  19         "#",
  20         (map { "# $_" } @_),
  21         "use IkiWiki::Setup::Standard {",
  22         IkiWiki::Setup::commented_dump(\&dumpline),
  23         "}"
  24 }
  25
  26 sub dumpline ($$$$) {
  27         my $key=shift;
  28         my $value=shift;
  29         my $type=shift;
  30         my $prefix=shift;
  31
  32         eval q{use Data::Dumper};
  33         error($@) if $@;
  34         local $Data::Dumper::Terse=1;
  35         local $Data::Dumper::Indent=1;
  36         local $Data::Dumper::Pad="\t";
  37         local $Data::Dumper::Sortkeys=1;
  38         local $Data::Dumper::Quotekeys=0;
  39         # only the perl version preserves utf-8 in output
  40         local $Data::Dumper::Useperl=1;
  41
  42         my $dumpedvalue;
  43         if (($type eq 'boolean' || $type eq 'integer') && $value=~/^[0-9]+$/) {
  44                 # avoid quotes
  45                 $dumpedvalue=$value;
  46         }
  47         elsif (ref $value eq 'ARRAY' && @$value && ! grep { /[^\S]/ } @$value) {
  48                 # dump simple array as qw{}
  49                 $dumpedvalue="[qw{".join(" ", @$value)."}]";
  50         }
  51         else {
  52                 $dumpedvalue=Dumper($value);
  53                 chomp $dumpedvalue;
  54                 if (length $prefix) {
  55                         # add to second and subsequent lines
  56                         my @lines=split(/\n/, $dumpedvalue);
  57                         $dumpedvalue="";
  58                         for (my $x=0; $x <= $#lines; $x++) {
  59                                 $lines[$x] =~ s/^\t//;
  60                                 $dumpedvalue.="\t".($x ? $prefix : "").$lines[$x]."\n";
  61                         }
  62                 }
  63                 $dumpedvalue=~s/^\t//;
  64                 chomp $dumpedvalue;
  65         }
  66
  67         return "\t$prefix$key => $dumpedvalue,";
  68 }
  69
  70 1