misc/plugins/Calender.wps

Name:
        Calender
FullName:
        Simple Calender Generator
URI:
        IW:SuikaWiki:WikiForm
Initialize:
        SuikaWiki::Plugin->feature ('SuikaWiki::Markup::XML');
        my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';

{
Name:
        wikiform_input/calender
FullName:
        Calender of specified year and month
Format:
        require Time::Local;
        my @dayname = qw/sun mon tue wed thr fri sat/;  ## class names
        my ($year, $month) = ($p->{year} || (gmtime)[5]+1900, $p->{month} || (gmtime)[4]+1);
        if (!$p->{year}) {
          my ($y, $m) = iso8601date_to_parts (long_name_to_date ($p->{page} || $o->{page}));
          if ($y) {
            $year = $y; $month = $m if $m;
          }
        }
        my $dow = 0; eval q($dow = (gmtime (Time::Local::timegm_nocheck (0,0,0,1, $month-1, $year)))[6]);
        my $lom = 0; eval q($lom = (gmtime (Time::Local::timegm_nocheck (0,0,0,0, $month==12?0:$month, $year)))[3]);
        
        $r = SuikaWiki::Markup::XML->new (namespace_uri => $NS_XHTML1, local_name => 'table');
          $r->set_attribute (class => 'calender');
          $r->set_attribute (summary => $o->resource ('Calender:Table:Summary'));
          unless ($p->{nocaption}) {
            ## TODO: use resource
            $r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'caption')
              ->append_text ($p->{caption} || "$yearЧЏ$monthЗю");
          }
          for (@dayname) {
            $r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'col')
              ->set_attribute (class => $_);
          }
          unless ($p->{noheader}) {
            my @wname = split /\s+/, ($p->{dayname} || q/Цќ Зю Ва Пх Ьк Жт Хк/);
            my $row = $r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'thead')
                        ->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr');
            for my $i (0..6) {
              for ($row->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'th')) {
                $_->set_attribute (class => $dayname[$i]);
                $_->set_attribute (scope => 'col');
                $_->append_text ($wname[$i]);
              }
            }
          }     # not noheader
          my $tb = $r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tbody');
            my $e_week;
            unless ($dow == 0) {        ## 1st day is not sunday
              $e_week = $tb->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr');
              for (1..$dow) {
                $e_week->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'td');
              }
            }
            
            for my $day (1..$lom) {
              $e_week = $tb->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr')
                if $dow == 0;   ## New week
              my $e_day = $e_week->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'td');
                $e_day->set_attribute (class => $dayname[$dow]);
                my $page = short_name_to_full_name (($p->{page} || $o->{page}) => sprintf ('%04d-%02d-%02d', $year, $month, $day));
                $e_day->append_node (SuikaWiki::Plugin::WikiLinking
                                     ->to_wikipage_in_html ({
                                       label   => ($p->{day_label}
                                                || $o->resource ('Calender:Day:Label')),
                                     } => {
                                       base    => $page,
                                       page_name_relative      => $page,
                                       wiki_mode       => $p->{mode},
                                       c__day => $day,
                                     }, {
                                       o       => $o,
                                     }));
              $dow++; $dow = 0 if $dow == 7;
            }
          # tbody
        # table
}

{
Name:
        wikipage-link/calender--day
FullName:
        Day of WikiPage linked to
Format:
        $r = $o->{link}->{dest}->{c__day} + 0;
}

{
Name:
        wikiview/link-calender-date
FullName:
        Link element whose destination anchor is the prev/next/.. year/month/day
Format:
        my $page = long_name_to_date ($p->{page} || $o->{page});
        if ($page =~ /^([0-9]{4,})(?:-([0-9]{1,2})(?:-([0-9]{1,2}))?)?$/) {
          my ($year, $month, $day) = ($1, $2, $3);
          my ($Year, $Month, $Day) = (0, 0, 0);
          my ($yeaR, $montH, $daY) = (0, 0, 0);
          my %page;
          $page{_base} = $p->{page} || $o->{page};
          if ($day) {   ## 2003-04-01
            require Time::Local;
            (undef, undef, undef, $Day, $Month, $Year)
              = gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year) - 24 * 3600);
            $Month++; $Year += 1900;
            $page{prev} = sprintf '%04d-%02d-%02d', $Year, $Month, $Day;
            (undef, undef, undef, $daY, $montH, $yeaR)
              = gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year) + 25 * 3600);
            $montH++; $yeaR += 1900;
            $page{next} = sprintf '%04d-%02d-%02d', $yeaR, $montH, $daY;
            $page{up} = sprintf '%04d-%02d', $year, $month;
          } elsif ($month) {    ## 2003-04
            ($Year, $Month) = ($year, $month - 1);
            (($Month = 12) && $Year--) if $Month == 0;
            $page{prev} = sprintf '%04d-%02d', $Year, $Month;
            ($yeaR, $montH) = ($year, $month + 1);
            (($montH = 1) && $yeaR++) if $montH == 13;
            $page{next} = sprintf '%04d-%02d', $yeaR, $montH;
            $page{up} = sprintf '%04d', $year;
          } else {      ## 2003
            $Year = $year - 1;
            $page{prev} = sprintf '%04d', $Year;
            $yeaR = $year + 1;
            $page{next} = sprintf '%04d', $yeaR;
          }
          
          for my $rel ('prev', 'next', 'up') {
            next unless length $page{$rel};
            $p->{rel} = $rel;
            $page{$rel} = short_name_to_full_name ($page{_base} => $page{$rel});
            $p->{href} = $o->_uri_wiki_page ($page{$rel}, %$o);
            $p->{title} = $page{$rel};  ## TO DO: support custom title
            
            $r .= qq(<link);
              for my $attr (qw/rel rev href class title type hreflang charset/) {
                $r .= qq( $attr="@{[$o->escape($p->{$attr})]}") if $p->{$attr};
              }
            $r .= '/' if $o->{media}->{type} =~ /xml/;
            $r .= '>';
          }
        }
}

{
Name:
        wikiview/if-calender
FullName:
        Check whether the WikiPage is part of calender or not
Format:
        my $tf = 0;
        my ($y, $m, $d) = iso8601date_to_parts (long_name_to_date ($p->{page} || $o->{page}));
        if ($y && !(($p->{month} && !$m) || ($p->{day} && !$d))) {
          $tf = 1;
        }
        $r = $o->formatter ('view')->replace (($tf ? $p->{true} : $p->{false}), $o);
}

{
Name:
        wikiform_input/calender-months
FullName:
        Months' list
Format:
        my ($year) = $p->{year} || (gmtime)[5]+1900;
        if (!$p->{year}) {
          my ($y, $m) = iso8601date_to_parts (long_name_to_date ($p->{page} || $o->{page}));
          $year = $y if $y;
        }
        $r = '<ol class="calender year">';
        for my $month (1..12) {
          $r .= '<li>';
          my $page = short_name_to_full_name (($p->{page} || $o->{page}) => sprintf ('%04d-%02d', $year, $month));
          #if ($o->_database_exist ($page)) {
            $r .= $o->_html_wikilink ($page, label => $month);
          #} else {
          #  $r .= $month;
          #}
          $r .= qq(</li>);
        }
        $r .= '</ol>';
}

MODULE:
        sub iso8601date_to_parts ($) {
          my $date = shift;
          if ($date =~ /^([0-9]{4,})(?:-([0-9]{1,2})(?:-([0-9]{1,2}))?)?$/) {
            return ($1, $2, $3);
          }
          (0, 0, 0);
        }
        sub long_name_to_date ($) {
          if ($SuikaWiki::Name::Space::VERSION) {
            SuikaWiki::Name::Space::get_short_name (shift);
          } else {
            shift;
          }
        }
        sub short_name_to_full_name ($$) {
          if ($SuikaWiki::Name::Space::VERSION) {
            SuikaWiki::Name::Space::resolve_relative_name ($_[0] => '..//'.$_[1]);
          } else {
            $_[1];
          }
        }
        SuikaWiki::View->template ('links')->add_line (q(%link-calender-date(class=>wiki);));
POD:LICENSE:
        Copyright 2002-2003 Wakaba <w@suika.fam.cx>
        
        %%GNUGPL2%%
1	Name:
2	Calender
3	FullName:
4	Simple Calender Generator
5	URI:
6	IW:SuikaWiki:WikiForm
7	Initialize:
8	SuikaWiki::Plugin->feature ('SuikaWiki::Markup::XML');
9	my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';
10
11	{
12	Name:
13	wikiform_input/calender
14	FullName:
15	Calender of specified year and month
16	Format:
17	require Time::Local;
18	my @dayname = qw/sun mon tue wed thr fri sat/; ## class names
19	my ($year, $month) = ($p->{year} \|\| (gmtime)[5]+1900, $p->{month} \|\| (gmtime)[4]+1);
20	if (!$p->{year}) {
21	my ($y, $m) = iso8601date_to_parts (long_name_to_date ($p->{page} \|\| $o->{page}));
22	if ($y) {
23	$year = $y; $month = $m if $m;
24	}
25	}
26	my $dow = 0; eval q($dow = (gmtime (Time::Local::timegm_nocheck (0,0,0,1, $month-1, $year)))[6]);
27	my $lom = 0; eval q($lom = (gmtime (Time::Local::timegm_nocheck (0,0,0,0, $month==12?0:$month, $year)))[3]);
28
29	$r = SuikaWiki::Markup::XML->new (namespace_uri => $NS_XHTML1, local_name => 'table');
30	$r->set_attribute (class => 'calender');
31	$r->set_attribute (summary => $o->resource ('Calender:Table:Summary'));
32	unless ($p->{nocaption}) {
33	## TODO: use resource
34	$r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'caption')
35	->append_text ($p->{caption} \|\| "$yearЧЏ$monthЗю");
36	}
37	for (@dayname) {
38	$r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'col')
39	->set_attribute (class => $_);
40	}
41	unless ($p->{noheader}) {
42	my @wname = split /\s+/, ($p->{dayname} \|\| q/Цќ Зю Ва Пх Ьк Жт Хк/);
43	my $row = $r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'thead')
44	->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr');
45	for my $i (0..6) {
46	for ($row->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'th')) {
47	$_->set_attribute (class => $dayname[$i]);
48	$_->set_attribute (scope => 'col');
49	$_->append_text ($wname[$i]);
50	}
51	}
52	} # not noheader
53	my $tb = $r->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tbody');
54	my $e_week;
55	unless ($dow == 0) { ## 1st day is not sunday
56	$e_week = $tb->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr');
57	for (1..$dow) {
58	$e_week->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'td');
59	}
60	}
61
62	for my $day (1..$lom) {
63	$e_week = $tb->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'tr')
64	if $dow == 0; ## New week
65	my $e_day = $e_week->append_new_node (namespace_uri => $NS_XHTML1, local_name => 'td');
66	$e_day->set_attribute (class => $dayname[$dow]);
67	my $page = short_name_to_full_name (($p->{page} \|\| $o->{page}) => sprintf ('%04d-%02d-%02d', $year, $month, $day));
68	$e_day->append_node (SuikaWiki::Plugin::WikiLinking
69	->to_wikipage_in_html ({
70	label => ($p->{day_label}
71	\|\| $o->resource ('Calender:Day:Label')),
72	} => {
73	base => $page,
74	page_name_relative => $page,
75	wiki_mode => $p->{mode},
76	c__day => $day,
77	}, {
78	o => $o,
79	}));
80	$dow++; $dow = 0 if $dow == 7;
81	}
82	# tbody
83	# table
84	}
85
86	{
87	Name:
88	wikipage-link/calender--day
89	FullName:
90	Day of WikiPage linked to
91	Format:
92	$r = $o->{link}->{dest}->{c__day} + 0;
93	}
94
95	{
96	Name:
97	wikiview/link-calender-date
98	FullName:
99	Link element whose destination anchor is the prev/next/.. year/month/day
100	Format:
101	my $page = long_name_to_date ($p->{page} \|\| $o->{page});
102	if ($page =~ /^([0-9]{4,})(?:-([0-9]{1,2})(?:-([0-9]{1,2}))?)?$/) {
103	my ($year, $month, $day) = ($1, $2, $3);
104	my ($Year, $Month, $Day) = (0, 0, 0);
105	my ($yeaR, $montH, $daY) = (0, 0, 0);
106	my %page;
107	$page{_base} = $p->{page} \|\| $o->{page};
108	if ($day) { ## 2003-04-01
109	require Time::Local;
110	(undef, undef, undef, $Day, $Month, $Year)
111	= gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year) - 24 * 3600);
112	$Month++; $Year += 1900;
113	$page{prev} = sprintf '%04d-%02d-%02d', $Year, $Month, $Day;
114	(undef, undef, undef, $daY, $montH, $yeaR)
115	= gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year) + 25 * 3600);
116	$montH++; $yeaR += 1900;
117	$page{next} = sprintf '%04d-%02d-%02d', $yeaR, $montH, $daY;
118	$page{up} = sprintf '%04d-%02d', $year, $month;
119	} elsif ($month) { ## 2003-04
120	($Year, $Month) = ($year, $month - 1);
121	(($Month = 12) && $Year--) if $Month == 0;
122	$page{prev} = sprintf '%04d-%02d', $Year, $Month;
123	($yeaR, $montH) = ($year, $month + 1);
124	(($montH = 1) && $yeaR++) if $montH == 13;
125	$page{next} = sprintf '%04d-%02d', $yeaR, $montH;
126	$page{up} = sprintf '%04d', $year;
127	} else { ## 2003
128	$Year = $year - 1;
129	$page{prev} = sprintf '%04d', $Year;
130	$yeaR = $year + 1;
131	$page{next} = sprintf '%04d', $yeaR;
132	}
133
134	for my $rel ('prev', 'next', 'up') {
135	next unless length $page{$rel};
136	$p->{rel} = $rel;
137	$page{$rel} = short_name_to_full_name ($page{_base} => $page{$rel});
138	$p->{href} = $o->_uri_wiki_page ($page{$rel}, %$o);
139	$p->{title} = $page{$rel}; ## TO DO: support custom title
140
141	$r .= qq(<link);
142	for my $attr (qw/rel rev href class title type hreflang charset/) {
143	$r .= qq( $attr="@{[$o->escape($p->{$attr})]}") if $p->{$attr};
144	}
145	$r .= '/' if $o->{media}->{type} =~ /xml/;
146	$r .= '>';
147	}
148	}
149	}
150
151	{
152	Name:
153	wikiview/if-calender
154	FullName:
155	Check whether the WikiPage is part of calender or not
156	Format:
157	my $tf = 0;
158	my ($y, $m, $d) = iso8601date_to_parts (long_name_to_date ($p->{page} \|\| $o->{page}));
159	if ($y && !(($p->{month} && !$m) \|\| ($p->{day} && !$d))) {
160	$tf = 1;
161	}
162	$r = $o->formatter ('view')->replace (($tf ? $p->{true} : $p->{false}), $o);
163	}
164
165	{
166	Name:
167	wikiform_input/calender-months
168	FullName:
169	Months' list
170	Format:
171	my ($year) = $p->{year} \|\| (gmtime)[5]+1900;
172	if (!$p->{year}) {
173	my ($y, $m) = iso8601date_to_parts (long_name_to_date ($p->{page} \|\| $o->{page}));
174	$year = $y if $y;
175	}
176	$r = '<ol class="calender year">';
177	for my $month (1..12) {
178	$r .= '<li>';
179	my $page = short_name_to_full_name (($p->{page} \|\| $o->{page}) => sprintf ('%04d-%02d', $year, $month));
180	#if ($o->_database_exist ($page)) {
181	$r .= $o->_html_wikilink ($page, label => $month);
182	#} else {
183	# $r .= $month;
184	#}
185	$r .= qq(</li>);
186	}
187	$r .= '</ol>';
188	}
189
190	MODULE:
191	sub iso8601date_to_parts ($) {
192	my $date = shift;
193	if ($date =~ /^([0-9]{4,})(?:-([0-9]{1,2})(?:-([0-9]{1,2}))?)?$/) {
194	return ($1, $2, $3);
195	}
196	(0, 0, 0);
197	}
198	sub long_name_to_date ($) {
199	if ($SuikaWiki::Name::Space::VERSION) {
200	SuikaWiki::Name::Space::get_short_name (shift);
201	} else {
202	shift;
203	}
204	}
205	sub short_name_to_full_name ($$) {
206	if ($SuikaWiki::Name::Space::VERSION) {
207	SuikaWiki::Name::Space::resolve_relative_name ($_[0] => '..//'.$_[1]);
208	} else {
209	$_[1];
210	}
211	}
212	SuikaWiki::View->template ('links')->add_line (q(%link-calender-date(class=>wiki);));
213	POD:LICENSE:
214	Copyright 2002-2003 Wakaba <w@suika.fam.cx>
215
216	%%GNUGPL2%%