/* p4, the Perl based macro processor. v0.2
 *
 * Copyright (C) 2008 James E. Klicman <james at klicman dot org>
 *
 * CSS example.
 */
&{
  $margin = 4; # px
  $width = 600 + $margin*2; # px
  $height = 400 + $margin*2; # px
  $column1_width = .75; # %
  $column2_width = .25; # %

  sub em {
    my $s = sprintf("%.3f", $_[0] / 16.0);
    $s =~ s/^0|\.?0+$//g;
    return $s . 'em';
  }
}

body { font-size: 1em; }
html { font-size: 100%; } /* IE workaround */

#main {
  width: &em($width);
  height: &em($height);
  margin: &em($margin) auto;
  background-color: #000;
}

#column1 {
  width: &em(($width * $column1_width) - $margin*2);
  height: &em($height - $margin*2);
  margin: &em($margin);
  float: left;
  background-color: #555;
  text-align: center;
}

#column1 span { font-size: 2em; }

#column2 {
  width: &em(($width * $column2_width) - $margin);
  height: &em($height - $margin*2);
  margin: &em($margin);
  margin-left: 0;
  float: left;
  background-color: #aaa;
  text-align: center;
}

#column2 span { font-size: 1.5em; }