#!/usr/bin/perl package IkiWiki::Setup::Standard; use warnings; use strict; use IkiWiki; # Parameters to import should be all the standard ikiwiki config, in a hash. sub import { IkiWiki::Setup::merge($_[1]); } sub gendump ($@) { my $class=shift; "#!/usr/bin/perl", "#", (map { "# $_" } @_), "use IkiWiki::Setup::Standard {", IkiWiki::Setup::commented_dump(\&dumpline, "\t"), "}" } sub dumpline ($$$$) { my $key=shift; my $value=shift; my $type=shift; my $prefix=shift; eval q{use Data::Dumper}; error($@) if $@; local $Data::Dumper::Terse=1; local $Data::Dumper::Indent=1; local $Data::Dumper::Pad="\t"; local $Data::Dumper::Sortkeys=1; local $Data::Dumper::Quotekeys=0; # only the perl version preserves utf-8 in output local $Data::Dumper::Useperl=1; my $dumpedvalue; if (($type eq 'boolean' || $type eq 'integer') && $value=~/^[0-9]+$/) { # avoid quotes $dumpedvalue=$value; } elsif (ref $value eq 'ARRAY' && @$value && ! grep { /[^\S]/ } @$value) { # dump simple array as qw{} $dumpedvalue="[qw{".join(" ", @$value)."}]"; } else { $dumpedvalue=Dumper($value); chomp $dumpedvalue; if (length $prefix) { # add to second and subsequent lines my @lines=split(/\n/, $dumpedvalue); $dumpedvalue=""; for (my $x=0; $x <= $#lines; $x++) { $lines[$x] =~ s/^\t//; $dumpedvalue.="\t".($x ? $prefix : "").$lines[$x]."\n"; } } $dumpedvalue=~s/^\t//; chomp $dumpedvalue; } return "\t$prefix$key => $dumpedvalue,"; } 1 unread?h=master'>treecommitdiff
path: root/tags/5c/0b/I66575363U57704774T57266574L@ekjizpt/unread
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
committerJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
commitfd54908da2b05c526dd3bee9b6dcd093214a220d (patch)
treec69c845069c99d1d01044f6fafda7c08433329c6 /tags/5c/0b/I66575363U57704774T57266574L@ekjizpt/unread
parentba46132213560cf3335d53560d519c0ec0190da2 (diff)
master
Diffstat (limited to 'tags/5c/0b/I66575363U57704774T57266574L@ekjizpt/unread')
-rw-r--r--tags/5c/0b/I66575363U57704774T57266574L@ekjizpt/unread0
1 files changed, 0 insertions, 0 deletions