HTML::Make::Calendar - Make an HTML calendar
use HTML::Make::Calendar 'calendar'; my $cal = calendar (); print $cal->text (); my $oldcal = calendar (year => 1966, month => 3); print $oldcal->text ();
The output HTML looks like this:
(This example is included as synopsis.pl in the distribution.)
This documents version 0.01 of HTML-Make-Calendar corresponding to git commit 0a44bc7f4d5e94e6c7729395bd3083814175fb90 released on Sun Mar 14 09:01:16 2021 +0900.
This module constructs HTML calendars.
my $out = calendar (year => 2010, month => 10);
Make the calendar. The return value is an HTML::Make object. To get the actual HTML, call its text method:
text
use HTML::Make::Calendar 'calendar'; my $out = calendar (year => 2021, month => 1); print $out->text ();
(This example is included as calendar.pl in the distribution.)
The possible arguments are
Callback data, see "dayc".
Override the HTML element used to make the "day" cells. The default is td. If you override this then you also need to override the parent elements, otherwise HTML::Make will fuss about compatibility.
td
Day callback which fills in the "day" cell of the calendar. If this is omitted, a default element is added. The day callback is called with three arguments, first "cdata", your data, second the date as a hash reference with arguments year, month and dom (day of month, a number from 1 to 31), and third the HTML element to attach the return value to, representing the cell of the calendar, like this:
year
month
dom
&{$dayc} ($cdata, {year => 2020, month => 12, dom => 21}, $td);
where $td is an HTML::Make object.
$td
Specify the names of the days. See "Japanese calendar" for an example.
The first day of the week. The default is 1 for Monday. Specify 7 to start on Sunday:
use HTML::Make::Calendar 'calendar'; my $cal = calendar (first => 7); print $cal->text ();
(This example is included as first.pl in the distribution.)
Any other day of the week may also be used, for example specify 3 to start the weeks on Wednesdays.
The month, as a number from 1 to 12. If the month is omitted, the current month is used as given by "Today" in Date::Calc.
The HTML element used to make a month of the calendar. The default is table. You don't need to supply < and >, just the alphabetic part of the HTML element, as with the parent module HTML::Make.
table
Callback for month and year name. See "Japanese calendar" for an example.
The HTML element used to make a week of the calendar. The default is tr. You don't need to supply < and >, just the alphabetic part of the HTML element, as with the parent module HTML::Make.
tr
Set to a true value to not use weeks. If you switch off weeks, the return value is the HTML elements but not subdivided into week blocks but whose parent is the month. This is for people who want to style their calendars with CSS, such as a CSS grid, rather than using HTML tables.
The year, as a four-digit number like 2020. If the year is omitted, the current year is used, as given by "Today" in Date::Calc.
2020
This example demonstrates the use of "dayc" and "cdata" by adding the phase of the moon to your calendar. It requires Astro::MoonPhase (not included with this distribution).
use utf8; use HTML::Make::Calendar 'calendar'; use Astro::MoonPhase; use Date::Calc 'Date_to_Time'; my @moons = qw!🌑 🌒 🌓 🌔 🌕 🌖 🌗 🌘!; my $cal = calendar (dayc => \&daymoon, cdata => \@moons); print $cal->text (); exit; sub daymoon { my ($moons, $date, $element) = @_; my $epochtime = Date_to_Time ($date->{year}, $date->{month}, $date->{dom}, 0, 0, 0); my ($phase) = phase ($epochtime); my $text = $moons->[int (8*$phase)] . " <b>$date->{dom}</b>"; $element->add_text ($text); }
(This example is included as moon.pl in the distribution.)
This example demonstrates the use of "dayc" and "cdata", and how to add your own HTML into the cells of the calendar.
use utf8; use FindBin '$Bin'; use HTML::Make::Calendar 'calendar'; my @foods = split '', <<EOF; 🍇🍈🍉🍊🍋🍌🍍🥭🍎🍏🍐🍑🍒🍓🥝🍅🥝 🍅🥒🥬🥦🧄🧅🍄🥜🌰🍘🍙🍚🍛🍜🍝🍠🍢 🍣🍤🍥🥮🍡🥟🥠🥡🦪🍦🍧🍨🍩🍪🎂🍰🧁 EOF @foods = grep {!/\s/} @foods; my $cal = calendar (cdata => \@foods, dayc => \&add_food); print $cal->text (); exit; sub add_food { my ($foods, $date, $element) = @_; my $today = $element->push ('span', text => $date->{dom}); my $menu = HTML::Make->new ('ol'); for (1..3) { my $food = $foods->[int (rand (@$foods))]; $menu->push ('li', text => $food); } $element->push ($menu); }
(This example is included as menu.pl in the distribution.)
This example shows making a Japanese calendar using "daynames" as well as "monthc" to put the month name into Japanese. It uses Calendar::Japanese::Holiday, Date::Qreki, Lingua::JA::Numbers, and Lingua::JA::FindDates to make various bits of information typically found on Japanese calendars.
use utf8; use HTML::Make::Calendar 'calendar'; use Date::Qreki 'rokuyou_unicode'; use Calendar::Japanese::Holiday; use Lingua::JA::Numbers 'num2ja'; use Lingua::JA::FindDates 'seireki_to_nengo'; my @daynames = (qw!月 火 水 木 金 土 日!); my $calendar = calendar (daynames => \@daynames, monthc => \&jmonth, dayc => \&jday, first => 7); print $calendar->text (); exit; sub jday { my (undef, $date, $element) = @_; my @jdate = ($date->{year}, $date->{month}, $date->{dom}); my $name = isHoliday (@jdate); my $rokuyou = rokuyou_unicode (@jdate); $element->push ('span', text => num2ja ($date->{dom})); $element->push ('br'); $element->push ('span', text => $rokuyou, attr => {class => 'rokuyou'}); if ($name) { $element->push ('br'); $element->push ('b', text => $name); $element->add_class ('holiday'); } } sub jmonth { my (undef, $date, $element) = @_; my $month = $date->{month} . '月'; my $year = seireki_to_nengo ("$date->{year}年"); my $ym = "$year$month"; $ym =~ s/([0-9]+)/num2ja($1)/ge; $element->add_text ($ym); }
(This example is included as japanese.pl in the distribution.)
The elements of the calendar have the following default HTML elements and CSS default style names:
The default HTML element for calendar (the calendar itself) is <table> with class calendar.
calendar
<table>
The default HTML element for month (a month) is <table> with class cal-month.
cal-month
The default HTML element for week (a week) is <tr> with class cal-week.
week
<tr>
cal-week
The default HTML element for day (a day) is <td> with class cal-day as well as class cal-mon, cal-tue, etc.
day
<td>
cal-day
cal-mon
cal-tue
The default HTML element for dow (the day of the week (Monday, Tuesday, etc.)) is <th> with class cal-dow.
dow
<th>
cal-dow
Date::Calc supplies the date information for the calendar.
HTML::Make is used to generate the HTML for the calendar.
Table::Readable is used to read a table of HTML element and CSS class defaults.
See html-cal in the distribution.
Includes a script cal2html for making HTML.
Fork of "HTML::Calendar::Simple". The documentation is largely copy-pasted from that with some alterations.
The defaults of HTML calendar are somewhat based on Python's calendar.HTMLCalendar.
Ben Bullock, <bkb@cpan.org>
This package and associated files are copyright (C) 2021 Ben Bullock.
You can use, copy, modify and redistribute this package and associated files under the Perl Artistic Licence or the GNU General Public Licence.
To install HTML::Make::Calendar, copy and paste the appropriate command in to your terminal.
cpanm
cpanm HTML::Make::Calendar
CPAN shell
perl -MCPAN -e shell install HTML::Make::Calendar
For more information on module installation, please visit the detailed CPAN module installation guide.