#! /usr/bin/perl

use autodie;
use JSON;

my ($dir) = @ARGV;
mkdir $dir;

local $/;
my $js = decode_json <STDIN>;

for my $e (@$js) {
  open $fh, ">", "$dir/$e->{name}.css";
  print $fh "/* -*-css-*- */\n";
  for my $s ($e->{sections}->@*) {
    KEY: for my $k (keys %$s) {
      next KEY if $k eq "code";
      print $fh "/*@ $k: ", join(", ", $s->{$k}->@*), " */\n";
    }
    print $fh $s->{code}, "\n";
    print $fh "/*\@END*/\n";
  }
  close $fh;
}