use HTML::AsSubs;
use HTML::Element;
use HTML::CalendarMonth;
$c = new HTML::CalendarMonth;
print $c->as_HTML;

$c->item($c->month)->wrap_content(font({size => '+2'}));
$c->item($c->dayheaders)->wrap_content(font({size => '-1'}));
$c->item(15,16,17)->wrap_content(font({size => 4, color => 'red'}));
$c->item(6,28)->wrap_content(new HTML::Element 'blink');
$c->item_daycol('Su','Sa')->attr(bgcolor => 'cyan');
print $c->as_HTML;

# Calendars are configured with 'special attributes' in addition
# to attributes you might want to pass along to HTML::ElementTable.
# The extent of the table can go beyond the cells that the calendar
# object concerns itself with, yielding 'embedded' calendars.

$c = new HTML::CalendarMonth (
			 month      => 8,
			 year       => 1969,
			 col_offset => 2,
			 row_offset => 2,
			 bgcolor    => 'wheat',
			);
$c->extent($c->maxrow + 2, $c->maxcol +2);
$c->all->attr(bgcolor => 'cyan');
$c->item($c->month)->wrap_content(font({size => '+2'}));
$c->item($c->year)->wrap_content(strong());
$c->cell(0,2)->attr(rowspan => 2);
$c->cell(0,2)->attr(colspan => 7);
$c->cell(0,2)->push_content(em(font({ size => +2 },
                            'The calendar is part',
                            br(),'of this table')));
print $c->as_HTML;

# Calendars can also use 'special attributes' to affect which
# headers appear in the HTML output. In these examples, a table
# is also created to contain the calendars.

@cals = (
	 new HTML::CalendarMonth,
         new HTML::CalendarMonth ( year_span => 3 ),
         new HTML::CalendarMonth ( head_y    => 0 ),
         new HTML::CalendarMonth ( head_dow  => 0 ),
         new HTML::CalendarMonth ( head_y    => 0,
                                   head_m    => 0,
                                   head_dow  => 0 ),
        );
# Center month when year is gone
$cals[2]->item($cals[2]->month)->attr(align => 'middle');
# Embolden headers
foreach (@cals) {
   $_->item($_->month,$_->year)->wrap_content(font({size => '+2'}));
   $_->item($_->dayheaders)->wrap_content(font({size => '-1'}));
}

# Generate container table
$t = new HTML::ElementTable ( maxrow => 1, maxcol => 4 );
$t->row(0)->attr(valign => 'bottom');
$t->row(1)->attr(align  => 'middle');
$t->cell(1,0)->push_content(em("Normal"));
$t->cell(1,1)->push_content(em("Year expanded"));
$t->cell(1,2)->push_content(em("Year disabled"));
$t->cell(1,3)->push_content(em("DOW disabled"));
$t->cell(1,4)->push_content(em("All headers disabled"));
# Populate container table
foreach (0..$#cals) {
   $t->cell(0,$_)->push_content($cals[$_]);
}
print $t->as_HTML;

# Calendar weeks do not have to start on Sunday.  Arbitrary days
# may be specified as the first day of the week.  For coding
# purposes, 1..7 correspond to Sun..Sat.  Week of the year
# numbers may be added as well, along with arbitrary aliasing
# of any calendar elements.

# Translations to German
%translation = (
                # Month names
                January   => 'Januar',
                February  => 'Februar',
                March     => 'März',
                April     => 'April',
                May       => 'Mai',
                June      => 'Juni',
                July      => 'Juli',
                August    => 'August',
                September => 'September',
                October   => 'Oktober',
                November  => 'November',
                December  => 'Dezember',
                # Day abreviations.
                # (are these correct?)
                Su => 'So', # Sunday    => Sonntag
                M  => 'Mo', # Monday    => Montag
                Tu => 'Di', # Tuesday   => Dienstag
                W  => 'Mi', # Wednesday => Mittwoch
                Th => 'Do', # Thursday  => Donnerstag
                F  => 'Fr', # Friday    => Freitag
                Sa => 'Sa', # Saturday  => Samstag
               );

@cals = (
	 new HTML::CalendarMonth ( month => 3),
         new HTML::CalendarMonth ( month => 3, week_begin => 2 ),
         new HTML::CalendarMonth ( month      => 3,
                                   week_begin => 2,
				   head_week  => 1 ),
         new HTML::CalendarMonth ( month      => 3,
                                   week_begin => 2,
				   head_week  => 1,
				   alias      => \%translation,
				 ),
        );
# Embolden headers
foreach (@cals) {
   $_->item($_->month,$_->year)->wrap_content(font({size => '+2'}));
   $_->item($_->dayheaders)->wrap_content(font({size => '-1'}));
}
# Illustrate week number headers
foreach (@cals[2,3]) {
  $_->item_week_nums->wrap_content(font({'size' => '-1'}));
  $_->item_week_nums->attr('bgcolor' => 'cyan');  
}

# Generate container table
$t = new HTML::ElementTable ( maxrow => 1, maxcol => 3 );
$t->row(0)->attr(valign => 'bottom');
$t->row(1)->attr(align  => 'middle');
$t->cell(1,0)->push_content(em("Default"));
$t->cell(1,1)->push_content(em("Monday 1st", br, "Day Of Week"));
$t->cell(1,2)->push_content(em("Monday 1st DOW", br,
			       "plus week of year count"));
$t->cell(1,3)->push_content(em("Deutsch aliased"));
# Populate container table
foreach (0..$#cals) {
   $t->cell(0,$_)->push_content($cals[$_]);
}
print $t->as_HTML;

# Calendars are a super class of HTML::ElementTable, and thereby
# inherit all of its methods, including those of HTML::ElementSuper
# such as clone().  For debugging purposes, you can easily display
# the table coordinates in every calendar cell.

$cal_a = new HTML::CalendarMonth ( week_begin => 2,
				   head_week  => 1, );
# Embolden headers
$cal_a->item($cal_a->month, $cal_a->year)->wrap_content(font({size => '+2'}));
# Illustrate week number headers
$cal_a->item_week_nums->wrap_content(font({'size' => '-1'}));
$cal_a->item_week_nums->attr(bgcolor => 'cyan');

# Clone first calendar
$cal_b = $cal_a->clone;

# Display debugging coordinates in clone
$cal_b->all->push_position;

# Generate container table
$t = new HTML::ElementTable ( maxrow => 1, maxcol => 1 );
$t->row(0)->attr(valign => 'bottom');
$t->row(1)->attr(align  => 'middle');
$t->cell(1,0)->push_content(em("Normal"));
$t->cell(1,1)->push_content(em("Clone with debugging coordinates (used with",
			       br(), "HTML::ElementTable methods)"));
# Populate container table
$t->cell(0,0)->push_content($cal_a);
$t->cell(0,1)->push_content($cal_b);

print $t->as_HTML;