IkiWiki/Setup/Yaml.pm

   1 #!/usr/bin/perl
   2
   3 package IkiWiki::Setup::Yaml;
   4
   5 use warnings;
   6 use strict;
   7 use IkiWiki;
   8 use YAML;
   9
  10 sub loaddump ($$) {
  11         my $class=shift;
  12         my $content=shift;
  13
  14         IkiWiki::Setup::merge(Load($content));
  15 }
  16
  17 sub gendump ($@) {
  18         my $class=shift;
  19
  20         "# IkiWiki::Setup::Yaml - YAML formatted setup file",
  21         "#",
  22         (map { "# $_" } @_),
  23         "#",
  24         IkiWiki::Setup::commented_dump(\&dumpline, "")
  25 }
  26
  27
  28 sub dumpline ($$$$) {
  29         my $key=shift;
  30         my $value=shift;
  31         my $type=shift;
  32         my $prefix=shift;
  33
  34         $YAML::UseHeader=0;
  35         my $dump=Dump({$key => $value});
  36         chomp $dump;
  37         if (length $prefix) {
  38                 $dump=join("", map { $prefix.$_ } split(/\n/, $dump));
  39         }
  40         return $dump;
  41 }
  42
  43 1