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 ($o->_html_wikilink ($page, label => $day));
              $dow++; $dow = 0 if $dow == 7;
            }
          # tbody
        # table
}

{
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	wakaba	1.1	Name:
2			Calender
3			FullName:
4			Simple Calender Generator
5			URI:
6			IW:SuikaWiki:WikiForm
7	wakaba	1.2	Initialize:
8			SuikaWiki::Plugin->feature ('SuikaWiki::Markup::XML');
9			my $NS_XHTML1 = 'http://www.w3.org/1999/xhtml';
10	wakaba	1.1
11			{
12			Name:
13			wikiform_input/calender
14			FullName:
15			Calender of specified year and month
16			Format:
17			require Time::Local;
18	wakaba	1.2	my @dayname = qw/sun mon tue wed thr fri sat/; ## class names
19	wakaba	1.1	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	wakaba	1.2
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 ($o->_html_wikilink ($page, label => $day));
69			$dow++; $dow = 0 if $dow == 7;
70			}
71			# tbody
72			# table
73	wakaba	1.1	}
74
75			{
76			Name:
77			wikiview/link-calender-date
78			FullName:
79			Link element whose destination anchor is the prev/next/.. year/month/day
80			Format:
81			my $page = long_name_to_date ($p->{page} \|\| $o->{page});
82			if ($page =~ /^([0-9]{4,})(?:-([0-9]{1,2})(?:-([0-9]{1,2}))?)?$/) {
83			my ($year, $month, $day) = ($1, $2, $3);
84			my ($Year, $Month, $Day) = (0, 0, 0);
85			my ($yeaR, $montH, $daY) = (0, 0, 0);
86			my %page;
87			$page{_base} = $p->{page} \|\| $o->{page};
88			if ($day) { ## 2003-04-01
89			require Time::Local;
90			(undef, undef, undef, $Day, $Month, $Year)
91			= gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year) - 24 * 3600);
92			$Month++; $Year += 1900;
93			$page{prev} = sprintf '%04d-%02d-%02d', $Year, $Month, $Day;
94			(undef, undef, undef, $daY, $montH, $yeaR)
95			= gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year) + 25 * 3600);
96			$montH++; $yeaR += 1900;
97			$page{next} = sprintf '%04d-%02d-%02d', $yeaR, $montH, $daY;
98			$page{up} = sprintf '%04d-%02d', $year, $month;
99			} elsif ($month) { ## 2003-04
100			($Year, $Month) = ($year, $month - 1);
101			(($Month = 12) && $Year--) if $Month == 0;
102			$page{prev} = sprintf '%04d-%02d', $Year, $Month;
103			($yeaR, $montH) = ($year, $month + 1);
104			(($montH = 1) && $yeaR++) if $montH == 13;
105			$page{next} = sprintf '%04d-%02d', $yeaR, $montH;
106			$page{up} = sprintf '%04d', $year;
107			} else { ## 2003
108			$Year = $year - 1;
109			$page{prev} = sprintf '%04d', $Year;
110			$yeaR = $year + 1;
111			$page{next} = sprintf '%04d', $yeaR;
112			}
113
114			for my $rel ('prev', 'next', 'up') {
115			next unless length $page{$rel};
116			$p->{rel} = $rel;
117			$page{$rel} = short_name_to_full_name ($page{_base} => $page{$rel});
118			$p->{href} = $o->_uri_wiki_page ($page{$rel}, %$o);
119			$p->{title} = $page{$rel}; ## TO DO: support custom title
120
121			$r .= qq(<link);
122	wakaba	1.2	for my $attr (qw/rel rev href class title type hreflang charset/) {
123	wakaba	1.1	$r .= qq( $attr="@{[$o->escape($p->{$attr})]}") if $p->{$attr};
124			}
125			$r .= '/' if $o->{media}->{type} =~ /xml/;
126			$r .= '>';
127			}
128			}
129			}
130
131			{
132			Name:
133			wikiview/if-calender
134			FullName:
135			Check whether the WikiPage is part of calender or not
136			Format:
137			my $tf = 0;
138			my ($y, $m, $d) = iso8601date_to_parts (long_name_to_date ($p->{page} \|\| $o->{page}));
139			if ($y && !(($p->{month} && !$m) \|\| ($p->{day} && !$d))) {
140			$tf = 1;
141			}
142			$r = $o->formatter ('view')->replace (($tf ? $p->{true} : $p->{false}), $o);
143			}
144
145			{
146			Name:
147			wikiform_input/calender-months
148			FullName:
149			Months' list
150			Format:
151			my ($year) = $p->{year} \|\| (gmtime)[5]+1900;
152			if (!$p->{year}) {
153			my ($y, $m) = iso8601date_to_parts (long_name_to_date ($p->{page} \|\| $o->{page}));
154			$year = $y if $y;
155			}
156			$r = '<ol class="calender year">';
157			for my $month (1..12) {
158			$r .= '<li>';
159			my $page = short_name_to_full_name (($p->{page} \|\| $o->{page}) => sprintf ('%04d-%02d', $year, $month));
160			#if ($o->_database_exist ($page)) {
161			$r .= $o->_html_wikilink ($page, label => $month);
162			#} else {
163			# $r .= $month;
164			#}
165			$r .= qq(</li>);
166			}
167			$r .= '</ol>';
168			}
169
170			MODULE:
171			sub iso8601date_to_parts ($) {
172			my $date = shift;
173			if ($date =~ /^([0-9]{4,})(?:-([0-9]{1,2})(?:-([0-9]{1,2}))?)?$/) {
174			return ($1, $2, $3);
175			}
176			(0, 0, 0);
177			}
178			sub long_name_to_date ($) {
179			if ($SuikaWiki::Name::Space::VERSION) {
180			SuikaWiki::Name::Space::get_short_name (shift);
181			} else {
182			shift;
183			}
184			}
185			sub short_name_to_full_name ($$) {
186			if ($SuikaWiki::Name::Space::VERSION) {
187			SuikaWiki::Name::Space::resolve_relative_name ($_[0] => '..//'.$_[1]);
188			} else {
189			$_[1];
190			}
191			}
192			SuikaWiki::View->template ('links')->add_line (q(%link-calender-date(class=>wiki);));
193			POD:LICENSE:
194	wakaba	1.2	Copyright 2002-2003 Wakaba <w@suika.fam.cx>
195	wakaba	1.1
196			%%GNUGPL2%%