Add support for setup files written in YAML.
[ikiwiki.git] / 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