misc/plugins/calender.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: Calender
  @Description:
    @@@: Calender
    @@lang:en
  @License: %%Perl%%
  @Author:
    @@Name:
      @@@@: Wakaba
      @@@lang:ja
      @@@script:Latn
    @@Mail[list]: w@suika.fam.cx
  @Date.RCS:
    $Date: 2004/03/29 03:21:24 $
  @RequiredPlugin[list]: 
    Phrase
    WikiResource
    WikiStructure
    WikiLinking
  @Use:
    my $WIKILINKING;
    my $WIKIRESOURCE;

PluginConst:
  @NS_XHTML1:
    http://www.w3.org/1999/xhtml
  @WIKILINKING:
    {($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))}
  @WIKIRESOURCE:
    {($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))}

FormattingRule:
  @Category[list]:
    view
    view-resource
    form-input
  @Name: if-calender
  @Description:
    @@@: Test whether the WikiPage is part of calender or not
    @@lang: en
  @Parameter:
    @@Name: day
    @@Type: CDATA
    @@Default: (none)
    @@Description:
      @@@@:
        Template to be evaluated when it is part of calender and has
        "day" information.
      @@@lang: en
  @Parameter:
    @@Name: false
    @@Type: CDATA
    @@Default: (none)
    @@Description:
      @@@@:
        Template to be evaluated when it is part of calender
      @@@lang: en
  @Parameter:
    @@Name: month
    @@Type: CDATA
    @@Default: (none)
    @@Description:
      @@@@:
        Template to be evaluated when it is part of calender and has
        "month" part.  This template will not be used if "day" template
        is used.
      @@@lang: en
  @Parameter:
    @@Name: page
    @@Type: WikiName
    @@Default: (auto)
    @@Description:
      @@@@:
        WikiPage to be tested
      @@lang: en
  @Parameter:
    @@Name: true
    @@Type: CDATA
    @@Default: (none)
    @@Description:
      @@@@:
        Template to be evaluated when it is part of calender.
        This template will not be used if "year", "month" or "day"
        template is used.
      @@@lang: en
  @Parameter:
    @@Name: year
    @@Type: CDATA
    @@Default: (none)
    @@Description:
      @@@@:
        Template to be evaluated when it is part of calender.
        This template will not be used if "month" or "day" template
        is used.
      @@lang: en
  @Formatting:
    my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
    my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
    if ($date->{year}) {
      if ($date->{day} and $p->{day}) {
        __ATTRNODE:%day->{$p->{-parent}}__;
      } elsif ($date->{month} and $p->{month}) {
        __ATTRNODE:%month->{$p->{-parent}}__;
      } elsif ($p->{year}) {
        __ATTRNODE:%year->{$p->{-parent}}__;
      } else {
        __ATTRNODE:%true->{$p->{-parent}}__;
      }
    } else {
      __ATTRNODE:%false->{$p->{-parent}}__;
    }

FormattingRule:
  @Category[list]:
    form-input
    view
    view-resource
  @Name: calender
  @Description:
    @@@: List of months in the year
    @@lang: en
  @Parameter:
    @@Name: label
    @@Type: template
    @@Default: (auto)
    @@Description:
      @@@@: Template to be used to construct day item
      @@@lang: en
  @Parameter:
    @@Name: month
    @@Type: <<1*2DIGIT>>
    @@Default: (auto)
    @@Description:
      @@@@: Month
      @@@lang: en
  @Parameter:
    @@Name: year
    @@Type: <<4*DIGIT>>
    @@Default: (auto)
    @@Description:
      @@@@: Year
      @@@lang: en
  @Formatting:
    require Time::Local;
    my $date = __FUNCPACK__->wikiname_to_date
                               (name => $o->{wiki}->name ($p->{page} ||
                                                  $o->{wiki}->{var}->{page}),
                                o => $o);
    my $year = $p->{year} || $date->{year} || (gmtime)[5] + 1900;
    my $month = $p->{month} || $date->{month} || (gmtime)[4] + 1;

    my $dow = 0;
    eval q{$dow = (gmtime (Time::Local::timegm_nocheck
                                    (0,0,0,1, $month-1, $year)))[6]};
    my $lom = 0;
    eval {$lom = (gmtime (Time::Local::timegm_nocheck
                                    (0,0,0,0, $month==12?0:$month, $year)))[3]};
    
    my $tbl = $p->{-parent}->append_new_node
                               (type => '#element',
                                namespace_uri => $NS_XHTML1,
                                local_name => 'table');
    $tbl->set_attribute (class => 'calender');
    $tbl->set_attribute (summary => $WIKIRESOURCE->get_op
                                      ('Calender:Table:Summary', $o)
                                                 ->inner_text);
    
    __ATTRTEXT:%nocaption__;
    unless ($p->{nocaption}) {
      my $caption = $tbl->append_new_node (type => '#element',
                             namespace_uri => $NS_XHTML1,
                             local_name => 'caption');
      local $o->{link}->{option} = {-cal__year => $year, -cal__month => $month};
      if ($p->{caption}) {
        __ATTRNODE:%caption->{$caption}__;
      } else {
        $WIKIRESOURCE->get_op ('Calender:Table:Caption', $o, $caption);
      }
    }
    
    my @dayname = qw(sun mon tue wed thu fri sat);
    for (@dayname) {
      $tbl->append_new_node (type => '#element',
                             namespace_uri => $NS_XHTML1,
                             local_name => 'col')
          ->set_attribute (class => $_);
    }
    
    __ATTRTEXT:%noheader__;
    unless ($p->{noheader}) {
      my @wname = map {$WIKIRESOURCE->get_op
                         ('Calender:Weekday:Label:'.$_, $o)} @dayname;
      my $row = $tbl->append_new_node
                        (type => '#element',
                         namespace_uri => $NS_XHTML1,
                         local_name => 'thead')
                    ->append_new_node
                        (type => '#element',
                         namespace_uri => $NS_XHTML1,
                         local_name => 'tr');
      for my $i (0..6) {
        my $cell = $row->append_new_node
                        (type => '#element',
                         namespace_uri => $NS_XHTML1,
                         local_name => 'th');
        $cell->set_attribute (class => $dayname[$i]);
        $cell->set_attribute (scope => 'col');
        $cell->append_node ($wname[$i]);
      }
    }
    
    my $tb = $tbl->append_new_node
                        (type => '#element',
                         namespace_uri => $NS_XHTML1,
                         local_name => 'tbody');
    my $e_week;
    unless ($dow == 0) {        ## 1st day is not sunday
      $e_week = $tb->append_new_node
                        (type => '#element',
                         namespace_uri => $NS_XHTML1,
                         local_name => 'tr');
      for (1..$dow) {
        $e_week->append_new_node
                        (type => '#element',
                         namespace_uri => $NS_XHTML1,
                         local_name => 'td');
      }
    }
    
    __ATTRTEXT:%day_label__;
    my $label = $p->{day_label} || $WIKIRESOURCE->get
                                     (name => 'Calender:Day:Label',
                                      o => $o, wiki => $o->{wiki});
    __ATTRTEXT:%mode__;
    for my $day (1..$lom) {
      $e_week = $tb->append_new_node
                        (type => '#element',
                         namespace_uri => $NS_XHTML1,
                         local_name => 'tr')
        if $dow == 0;   ## New week
      my $e_day = $e_week->append_new_node
                        (type => '#element',
                         namespace_uri => $NS_XHTML1,
                         local_name => 'td');
      $e_day->set_attribute (class => $dayname[$dow]);
      $WIKILINKING->to_wikipage_in_html ({
        label => $label,
      } => {
        base => $o->{wiki}->{var}->{page},
        page_name_relative => __FUNCPACK__->date_to_wikiname
                                (year => $year,
                                 month => $month,
                                 day => $day,
                                 base => $date->{base},
                                 o => $o),
        wiki_mode => $p->{mode},
      }, {
        o => $o,
        parent => $e_day,
        -cal__year => $year,
        -cal__month => $month,
        -cal__day => $day,
      });
      $dow++; $dow = 0 if $dow == 7;
    }

FormattingRule:
  @Category[list]:
    form-input
    view
    view-resource
  @Name: calender-months
  @Description:
    @@@: List of months in the year
    @@lang: en
  @Parameter:
    @@Name: label
    @@Type: template
    @@Default: (auto)
    @@Description:
      @@@@: Template to be used to construct month item
      @@@lang: en
  @Parameter:
    @@Name: year
    @@Type: <<4*DIGIT>>
    @@Default: (auto)
    @@Description:
      @@@@: Year
      @@@lang: en
  @Formatting:
    __ATTRTEXT:%year__;
    my $date = __FUNCPACK__->wikiname_to_date
                               (name => $o->{wiki}->name ($p->{page} ||
                                                  $o->{wiki}->{var}->{page}),
                                o => $o);
    my $year = $p->{year} || $date->{year} || (gmtime)[5] + 1900;
    my $list = $p->{-parent}->append_new_node
                                (type => '#element',
                                 namespace_uri => $NS_XHTML1,
                                 local_name => 'ol');
    $list->set_attribute (class => 'calender year');
    
    __ATTRTEXT:%label__;
    my $label = $p->{label} || $WIKIRESOURCE->get
                                  (name => 'Calender:MonthList:Item',
                                   wiki => $o->{wiki}, o => $o);
    for (1..12) {
      $WIKILINKING->to_wikipage_in_html ({
        label => $label,
      } => {
        base => $o->{wiki}->{var}->{page},
        page_name_relative => __FUNCPACK__->date_to_wikiname
                                (year => $year,
                                 month => $_,
                                 base => $date->{base},
                                 o => $o),
      }, {
        o => $o,
        parent => $list->append_new_node
                        (type => '#element',
                         namespace_uri => $NS_XHTML1,
                         local_name => 'li'),
        -cal__year => $year,
        -cal__month => $_,
      });
      $list->append_text ("\n");
    }

FormattingRule:
  @Category[list]:
    page-link
    view-resource
  @Name: calender--year
  @Description:
    @@@: Year number
    @@lang: en
  @Formatting:
    $p->{-parent}->append_text ($o->{link}->{option}->{-cal__year} + 0);

FormattingRule:
  @Category[list]:
    page-link
    view-resource
  @Name: calender--month
  @Description:
    @@@: Month number
    @@lang: en
  @Formatting:
    $p->{-parent}->append_text ($o->{link}->{option}->{-cal__month} + 0);

FormattingRule:
  @Category[list]:
    page-link
    view-resource
  @Name:
    calender--day
  @Description:
    @@@: Day number
    @@lang: en
  @Formatting:
    $p->{-parent}->append_text ($o->{link}->{option}->{-cal__day} + 0);

FormattingRule:
  @Category[list]:
    view
    view-resource
    form-input
  @Name: cal--year-page
  @Description:
    @@@: Year WikiPage name
    @@lang: en
  @Parameter:
    @@Name: page
    @@Type: WikiName
    @@Default: (auto)
    @@Description:
      @@@@: Some WikiPage in calender
      @@@lang: en
  @Parameter:
    @@Name: year
    @@Type: <<4*DIGIT>>
    @@Default: (auto)
    @@Description:
      @@@@: Year number
      @@@lang: en
  @Formatting:
    my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
    my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
    $p->{-parent}->append_text (__FUNCPACK__->date_to_wikiname
                                  (base => $date->{base},
                                   year => $date->{year} || (gmtime)[5] + 1900,
                                   o => $o)->stringify (wiki => $o->{wiki}));

FormattingRule:
  @Category[list]:
    view
    view-resource
    form-input
  @Name: cal--month-page
  @Description:
    @@@: Year-month WikiPage name
    @@lang: en
  @Parameter:
    @@Name: month
    @@Type: <<1*2DIGIT>>
    @@Default: (auto)
    @@Description:
      @@@@: Month number
      @@@lang: en
  @Parameter:
    @@Name: page
    @@Type: WikiName
    @@Default: (auto)
    @@Description:
      @@@@: Some WikiPage in calender
      @@@lang: en
  @Parameter:
    @@Name: year
    @@Type: <<4*DIGIT>>
    @@Default: (auto)
    @@Description:
      @@@@: Year number
      @@@lang: en
  @Formatting:
    my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
    my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
    $p->{-parent}->append_text (__FUNCPACK__->date_to_wikiname
                                  (base => $date->{base},
                                   year => $p->{year} || $date->{year}
                                                      || (gmtime)[5] + 1900,
                                   month => $p->{month} || $date->{month}
                                                        || (gmtime)[4] + 1,
                                   o => $o)->stringify (wiki => $o->{wiki}));

FormattingRule:
  @Category[list]:
    view
    view-resource
    form-input
  @Name: cal--day-page
  @Description:
    @@@: Year-month-day WikiPage name
    @@lang: en
  @Parameter:
    @@Name: day
    @@Type: <<1*2DIGIT>>
    @@Default: (auto)
    @@Description:
      @@@@: Day number
      @@@lang: en
  @Parameter:
    @@Name: month
    @@Type: <<1*2DIGIT>>
    @@Default: (auto)
    @@Description:
      @@@@: Month number
      @@@lang: en
  @Parameter:
    @@Name: page
    @@Type: WikiName
    @@Default: (auto)
    @@Description:
      @@@@: Some WikiPage in calender
      @@@lang: en
  @Parameter:
    @@Name: year
    @@Type: <<4*DIGIT>>
    @@Default: (auto)
    @@Description:
      @@@@: Year number
      @@@lang: en
  @Formatting:
    my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
    my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
    $p->{-parent}->append_text (__FUNCPACK__->date_to_wikiname
                                  (base => $date->{base},
                                   year => $p->{year} || $date->{year}
                                                      || (gmtime)[5] + 1900,
                                   month => $p->{month} || $date->{month}
                                                        || (gmtime)[4] + 1,
                                   day => $p->{day} || $date->{day}
                                                    || (gmtime)[3],
                                   o => $o)->stringify (wiki => $o->{wiki}));

FormattingRule:
  @Category[list]:
    view
  @Name:
    link-calender-date
  @Description:
    @@@: Link to previous/next calender WikiPage
    @@lang: en
  @Formatting:
    my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
    my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
    my $year = $p->{year} || $date->{year} || return;
    my $month = $p->{month} || $date->{month};
    my $day = $p->{day} || $date->{day};
    
    my ($Year, $Month, $Day) = (0, 0, 0);
    my ($yeaR, $montH, $daY) = (0, 0, 0);
    my %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} = {year => $Year, month => $Month, day => $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} = {year => $yeaR, month => $montH, day => $daY};
      $page{up} = {year => $year, month => $month};
      (undef, undef, undef, $Day, $Month, $Year)
        = gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year)
                  - 7 * 24 * 3600);
      $Month++; $Year += 1900;
      $page{'prev-week'} = {year => $Year, month => $Month, day => $Day};
      (undef, undef, undef, $daY, $montH, $yeaR)
        = gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year)
                  + 7 * 25 * 3600);
      $montH++; $yeaR += 1900;
      $page{'next-week'} = {year => $yeaR, month => $montH, day => $daY};
    } elsif ($month) {  ## 2003-04
      ($Year, $Month) = ($year, $month - 1);
      ($Month = 12, $Year--) if $Month == 0;
      $page{prev} = {year => $Year, month => $Month};
      ($yeaR, $montH) = ($year, $month + 1);
      ($montH = 1, $yeaR++) if $montH == 13;
      $page{next} = {year => $yeaR, month => $montH};
      $page{up} = {year => $year};
    } else {    ## 2003
      $Year = $year - 1;
      $page{prev} = {year => $Year};
      $yeaR = $year + 1;
      $page{next} = {year => $yeaR};
    }

    my @gmtime = gmtime;
    $page{today} = {year => $gmtime[5] + 1900, month => $gmtime[4] + 1,
                    day => $gmtime[3]};
    
    __ATTRTEXT:%mode__;__ATTRTEXT:%with_lm__;__ATTRTEXT:%up_to_date__;
    for my $rel (qw/prev next up prev-week next-week today/) {
      next unless $page{$rel};
      $WIKILINKING->to_wikipage_in_html ({
          label           => qq(%html-link;\n),
          -ht__alt_description
                          => $WIKIRESOURCE->get
                               (name => 'Calender:Link:'.$rel
                                       .($page{$rel}->{day}?':ymd':
                                         $page{$rel}->{month}?':ym':':y')
                                       .':Description',
                                o => $o, wiki => $o->{wiki}),
      } => {
          base            => $page,
          page_name_relative => __FUNCPACK__->date_to_wikiname
                                  (base => $date->{base}, o => $o,
                                   %{$page{$rel}}),
          wiki_mode       => $p->{mode},
          _with_lm        => $p->{with_lm},
          _up_to_date     => $p->{up_to_date},
      }, {
          o               => $o,
          parent          => $p->{-parent},
          -rel            => $rel,
          -cal__year      => $page{$rel}->{year},
          -cal__month     => $page{$rel}->{month},
          -cal__day       => $page{$rel}->{day},
      });
    }


Function:
  @Name: wikiname_to_date
  @Description:
    @@@:
      Return what time is the WikiPage means, if it is part of calender.
    @@lang: en
  @Main:
    my (undef, %opt) = @_;
    if ($opt{name}->[$#{$opt{name}}] 
          =~ /^([0-9]{4,})(?:-([0-9][0-9])(?:-([0-9][0-9]))?)?$/) {
      {year => $1, month => $2, day => $3,
       base => $opt{o}->{wiki}->name
                                  ([@{$opt{name}}[0..$#{$opt{name}}-1]])};
    } else {
      {base => $opt{name}};
    }

Function:
  @Name: date_to_wikiname
  @Description:
    @@@: Generates WikiName from date
    @@lang: en
  @Main:
    my (undef, %opt) = @_;
    my $date = sprintf '%04d', $opt{year};
    if ($opt{month}) {
      $date .= sprintf '-%02d', $opt{month};
      $date .= sprintf '-%02d', $opt{day} if $opt{day};
    }
    my $clone = $opt{base}->clone;
    $clone->append_component ($date);
    $clone;

ViewFragment:
  @Template[list]:wr--read-body
  @Order: -10
  @Description:
    @@@: "Read" mode body -- Calender
    @@lang:en
  @Formatting:
      %if-calender (
        month => {%calender;}p,
        year => {%calender-months;}p,
      );

ViewFragment:
  @Template[list]: links
  @Order: -100
  @Description:
    @@@: Link to previous/next WikiPage in calender
    @@lang:en
  @Formatting:
      %link-calender-date;

Resource:
  @Calender:Day:Label:
    %link-to-it (
      label => {%calender--day;}p,
      description=>{%page-name(absolute);; %if-linked-wikipage-exist(
          true=>{%page-headline;},
          false=>{(%res(name=>{Link:toWikiPage:NotExist:Description});)},
      );}p,
      class=>{%if-linked-wikipage-exist(false=>{not-exist});}p,
    );
  @Calender:Link:prev:y:Description:
      %calender--year; (%page-name;)
  @Calender:Link:next:y:Description:
      %calender--year; (%page-name;)
  @Calender:Link:up:y:Description:
      %calender--year; (%page-name;)
  @Calender:Link:prev:ym:Description:
      %calender--year;-%calender--month; (%page-name;)
  @Calender:Link:next:ym:Description:
      %calender--year;-%calender--month; (%page-name;)
  @Calender:Link:up:ym:Description:
      %calender--year;-%calender--month; (%page-name;)
  @Calender:Link:prev:ymd:Description:
      %calender--year;-%calender--month;-%calender--day; (%page-name;)
  @Calender:Link:next:ymd:Description:
      %calender--year;-%calender--month;-%calender--day; (%page-name;)
  @Calender:Link:prev-week:ymd:Description:
      %calender--year;-%calender--month;-%calender--day; (%page-name;)
  @Calender:Link:next-week:ymd:Description:
      %calender--year;-%calender--month;-%calender--day; (%page-name;)
  @Calender:Link:today:ymd:Description:
    @@@: Today's WikiPage (%page-name;)
    @@lang: en
  @Calender:MonthList:Item: 
    %link-to-it (
      label => {%calender--month;}p,
      description=>{%page-name(absolute);; %if-linked-wikipage-exist(
          true=>{%page-headline;},
          false=>{(%res(name=>{Link:toWikiPage:NotExist:Description});)},
      );}p,
      class=>{%if-linked-wikipage-exist(false=>{not-exist});}p,
    );
  @Calender:Table:Caption:
      %link-to-wikipage (
        label => {%percent;link-to-it (label => {%calender--year;});}p,
        page => {%cal--year-page;}p,
        rel => {up up},
      );-%link-to-wikipage (
        label => {%percent;link-to-it (label => {%calender--month;});}p,
        page => {%cal--month-page;}p,
        rel => {up},
      );
  @Calender:Table:Summary:
    @@@:
      A calender.  Days are listed with columns assigned to days in week
      (i.e. Sunday, Monday, ..., and Saturday)
    @@lang: en
  @Calender:Weekday:Long:sun:
    @@@: Sunday
    @@lang: en
  @Calender:Weekday:Long:mon:
    @@@: Monday
    @@lang: en
  @Calender:Weekday:Long:tue:
    @@@: Tuesday
    @@lang: en
  @Calender:Weekday:Long:wed:
    @@@: Wednesday
    @@lang: en
  @Calender:Weekday:Long:thu:
    @@@: Thursday
    @@lang: en
  @Calender:Weekday:Long:fri:
    @@@: Friday
    @@lang: en
  @Calender:Weekday:Long:sat:
    @@@: Saturday
    @@lang: en
  @Calender:Weekday:Short:sun:
    @@@: Sun
    @@lang: en
  @Calender:Weekday:Short:mon:
    @@@: Mon
    @@lang: en
  @Calender:Weekday:Short:tue:
    @@@: Tue
    @@lang: en
  @Calender:Weekday:Short:wed:
    @@@: Wed
    @@lang: en
  @Calender:Weekday:Short:thu:
    @@@: Thu
    @@lang: en
  @Calender:Weekday:Short:fri:
    @@@: Fri
    @@lang: en
  @Calender:Weekday:Short:sat:
    @@@: Sat
    @@lang: en
  @Calender:Weekday:Label:sun:
    %abbr (
      short => {%res (name => {Calender:Weekday:Short:sun});}p,
      long  => {%res (name => {Calender:Weekday:Long:sun});}p,
    );
  @Calender:Weekday:Label:mon:
    %abbr (
      short => {%res (name => {Calender:Weekday:Short:mon});}p,
      long  => {%res (name => {Calender:Weekday:Long:mon});}p,
    );
  @Calender:Weekday:Label:tue:
    %abbr (
      short => {%res (name => {Calender:Weekday:Short:tue});}p,
      long  => {%res (name => {Calender:Weekday:Long:tue});}p,
    );
  @Calender:Weekday:Label:wed:
    %abbr (
      short => {%res (name => {Calender:Weekday:Short:wed});}p,
      long  => {%res (name => {Calender:Weekday:Long:wed});}p,
    );
  @Calender:Weekday:Label:thu:
    %abbr (
      short => {%res (name => {Calender:Weekday:Short:thu});}p,
      long  => {%res (name => {Calender:Weekday:Long:thu});}p,
    );
  @Calender:Weekday:Label:fri:
    %abbr (
      short => {%res (name => {Calender:Weekday:Short:fri});}p,
      long  => {%res (name => {Calender:Weekday:Long:fri});}p,
    );
  @Calender:Weekday:Label:sat:
    %abbr (
      short => {%res (name => {Calender:Weekday:Short:sat});}p,
      long  => {%res (name => {Calender:Weekday:Long:sat});}p,
    );


1	#?SuikaWikiConfig/2.0
2
3	Plugin:
4	@Name: Calender
5	@Description:
6	@@@: Calender
7	@@lang:en
8	@License: %%Perl%%
9	@Author:
10	@@Name:
11	@@@@: Wakaba
12	@@@lang:ja
13	@@@script:Latn
14	@@Mail[list]: w@suika.fam.cx
15	@Date.RCS:
16	$Date: 2004/03/29 03:21:24 $
17	@RequiredPlugin[list]:
18	Phrase
19	WikiResource
20	WikiStructure
21	WikiLinking
22	@Use:
23	my $WIKILINKING;
24	my $WIKIRESOURCE;
25
26	PluginConst:
27	@NS_XHTML1:
28	http://www.w3.org/1999/xhtml
29	@WIKILINKING:
30	{($WIKILINKING \|\|= SuikaWiki::Plugin->module_package ('WikiLinking'))}
31	@WIKIRESOURCE:
32	{($WIKIRESOURCE \|\|= SuikaWiki::Plugin->module_package ('WikiResource'))}
33
34	FormattingRule:
35	@Category[list]:
36	view
37	view-resource
38	form-input
39	@Name: if-calender
40	@Description:
41	@@@: Test whether the WikiPage is part of calender or not
42	@@lang: en
43	@Parameter:
44	@@Name: day
45	@@Type: CDATA
46	@@Default: (none)
47	@@Description:
48	@@@@:
49	Template to be evaluated when it is part of calender and has
50	"day" information.
51	@@@lang: en
52	@Parameter:
53	@@Name: false
54	@@Type: CDATA
55	@@Default: (none)
56	@@Description:
57	@@@@:
58	Template to be evaluated when it is part of calender
59	@@@lang: en
60	@Parameter:
61	@@Name: month
62	@@Type: CDATA
63	@@Default: (none)
64	@@Description:
65	@@@@:
66	Template to be evaluated when it is part of calender and has
67	"month" part. This template will not be used if "day" template
68	is used.
69	@@@lang: en
70	@Parameter:
71	@@Name: page
72	@@Type: WikiName
73	@@Default: (auto)
74	@@Description:
75	@@@@:
76	WikiPage to be tested
77	@@lang: en
78	@Parameter:
79	@@Name: true
80	@@Type: CDATA
81	@@Default: (none)
82	@@Description:
83	@@@@:
84	Template to be evaluated when it is part of calender.
85	This template will not be used if "year", "month" or "day"
86	template is used.
87	@@@lang: en
88	@Parameter:
89	@@Name: year
90	@@Type: CDATA
91	@@Default: (none)
92	@@Description:
93	@@@@:
94	Template to be evaluated when it is part of calender.
95	This template will not be used if "month" or "day" template
96	is used.
97	@@lang: en
98	@Formatting:
99	my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
100	my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
101	if ($date->{year}) {
102	if ($date->{day} and $p->{day}) {
103	__ATTRNODE:%day->{$p->{-parent}}__;
104	} elsif ($date->{month} and $p->{month}) {
105	__ATTRNODE:%month->{$p->{-parent}}__;
106	} elsif ($p->{year}) {
107	__ATTRNODE:%year->{$p->{-parent}}__;
108	} else {
109	__ATTRNODE:%true->{$p->{-parent}}__;
110	}
111	} else {
112	__ATTRNODE:%false->{$p->{-parent}}__;
113	}
114
115	FormattingRule:
116	@Category[list]:
117	form-input
118	view
119	view-resource
120	@Name: calender
121	@Description:
122	@@@: List of months in the year
123	@@lang: en
124	@Parameter:
125	@@Name: label
126	@@Type: template
127	@@Default: (auto)
128	@@Description:
129	@@@@: Template to be used to construct day item
130	@@@lang: en
131	@Parameter:
132	@@Name: month
133	@@Type: <<1*2DIGIT>>
134	@@Default: (auto)
135	@@Description:
136	@@@@: Month
137	@@@lang: en
138	@Parameter:
139	@@Name: year
140	@@Type: <<4*DIGIT>>
141	@@Default: (auto)
142	@@Description:
143	@@@@: Year
144	@@@lang: en
145	@Formatting:
146	require Time::Local;
147	my $date = __FUNCPACK__->wikiname_to_date
148	(name => $o->{wiki}->name ($p->{page} \|\|
149	$o->{wiki}->{var}->{page}),
150	o => $o);
151	my $year = $p->{year} \|\| $date->{year} \|\| (gmtime)[5] + 1900;
152	my $month = $p->{month} \|\| $date->{month} \|\| (gmtime)[4] + 1;
153
154	my $dow = 0;
155	eval q{$dow = (gmtime (Time::Local::timegm_nocheck
156	(0,0,0,1, $month-1, $year)))[6]};
157	my $lom = 0;
158	eval {$lom = (gmtime (Time::Local::timegm_nocheck
159	(0,0,0,0, $month==12?0:$month, $year)))[3]};
160
161	my $tbl = $p->{-parent}->append_new_node
162	(type => '#element',
163	namespace_uri => $NS_XHTML1,
164	local_name => 'table');
165	$tbl->set_attribute (class => 'calender');
166	$tbl->set_attribute (summary => $WIKIRESOURCE->get_op
167	('Calender:Table:Summary', $o)
168	->inner_text);
169
170	__ATTRTEXT:%nocaption__;
171	unless ($p->{nocaption}) {
172	my $caption = $tbl->append_new_node (type => '#element',
173	namespace_uri => $NS_XHTML1,
174	local_name => 'caption');
175	local $o->{link}->{option} = {-cal__year => $year, -cal__month => $month};
176	if ($p->{caption}) {
177	__ATTRNODE:%caption->{$caption}__;
178	} else {
179	$WIKIRESOURCE->get_op ('Calender:Table:Caption', $o, $caption);
180	}
181	}
182
183	my @dayname = qw(sun mon tue wed thu fri sat);
184	for (@dayname) {
185	$tbl->append_new_node (type => '#element',
186	namespace_uri => $NS_XHTML1,
187	local_name => 'col')
188	->set_attribute (class => $_);
189	}
190
191	__ATTRTEXT:%noheader__;
192	unless ($p->{noheader}) {
193	my @wname = map {$WIKIRESOURCE->get_op
194	('Calender:Weekday:Label:'.$_, $o)} @dayname;
195	my $row = $tbl->append_new_node
196	(type => '#element',
197	namespace_uri => $NS_XHTML1,
198	local_name => 'thead')
199	->append_new_node
200	(type => '#element',
201	namespace_uri => $NS_XHTML1,
202	local_name => 'tr');
203	for my $i (0..6) {
204	my $cell = $row->append_new_node
205	(type => '#element',
206	namespace_uri => $NS_XHTML1,
207	local_name => 'th');
208	$cell->set_attribute (class => $dayname[$i]);
209	$cell->set_attribute (scope => 'col');
210	$cell->append_node ($wname[$i]);
211	}
212	}
213
214	my $tb = $tbl->append_new_node
215	(type => '#element',
216	namespace_uri => $NS_XHTML1,
217	local_name => 'tbody');
218	my $e_week;
219	unless ($dow == 0) { ## 1st day is not sunday
220	$e_week = $tb->append_new_node
221	(type => '#element',
222	namespace_uri => $NS_XHTML1,
223	local_name => 'tr');
224	for (1..$dow) {
225	$e_week->append_new_node
226	(type => '#element',
227	namespace_uri => $NS_XHTML1,
228	local_name => 'td');
229	}
230	}
231
232	__ATTRTEXT:%day_label__;
233	my $label = $p->{day_label} \|\| $WIKIRESOURCE->get
234	(name => 'Calender:Day:Label',
235	o => $o, wiki => $o->{wiki});
236	__ATTRTEXT:%mode__;
237	for my $day (1..$lom) {
238	$e_week = $tb->append_new_node
239	(type => '#element',
240	namespace_uri => $NS_XHTML1,
241	local_name => 'tr')
242	if $dow == 0; ## New week
243	my $e_day = $e_week->append_new_node
244	(type => '#element',
245	namespace_uri => $NS_XHTML1,
246	local_name => 'td');
247	$e_day->set_attribute (class => $dayname[$dow]);
248	$WIKILINKING->to_wikipage_in_html ({
249	label => $label,
250	} => {
251	base => $o->{wiki}->{var}->{page},
252	page_name_relative => __FUNCPACK__->date_to_wikiname
253	(year => $year,
254	month => $month,
255	day => $day,
256	base => $date->{base},
257	o => $o),
258	wiki_mode => $p->{mode},
259	}, {
260	o => $o,
261	parent => $e_day,
262	-cal__year => $year,
263	-cal__month => $month,
264	-cal__day => $day,
265	});
266	$dow++; $dow = 0 if $dow == 7;
267	}
268
269	FormattingRule:
270	@Category[list]:
271	form-input
272	view
273	view-resource
274	@Name: calender-months
275	@Description:
276	@@@: List of months in the year
277	@@lang: en
278	@Parameter:
279	@@Name: label
280	@@Type: template
281	@@Default: (auto)
282	@@Description:
283	@@@@: Template to be used to construct month item
284	@@@lang: en
285	@Parameter:
286	@@Name: year
287	@@Type: <<4*DIGIT>>
288	@@Default: (auto)
289	@@Description:
290	@@@@: Year
291	@@@lang: en
292	@Formatting:
293	__ATTRTEXT:%year__;
294	my $date = __FUNCPACK__->wikiname_to_date
295	(name => $o->{wiki}->name ($p->{page} \|\|
296	$o->{wiki}->{var}->{page}),
297	o => $o);
298	my $year = $p->{year} \|\| $date->{year} \|\| (gmtime)[5] + 1900;
299	my $list = $p->{-parent}->append_new_node
300	(type => '#element',
301	namespace_uri => $NS_XHTML1,
302	local_name => 'ol');
303	$list->set_attribute (class => 'calender year');
304
305	__ATTRTEXT:%label__;
306	my $label = $p->{label} \|\| $WIKIRESOURCE->get
307	(name => 'Calender:MonthList:Item',
308	wiki => $o->{wiki}, o => $o);
309	for (1..12) {
310	$WIKILINKING->to_wikipage_in_html ({
311	label => $label,
312	} => {
313	base => $o->{wiki}->{var}->{page},
314	page_name_relative => __FUNCPACK__->date_to_wikiname
315	(year => $year,
316	month => $_,
317	base => $date->{base},
318	o => $o),
319	}, {
320	o => $o,
321	parent => $list->append_new_node
322	(type => '#element',
323	namespace_uri => $NS_XHTML1,
324	local_name => 'li'),
325	-cal__year => $year,
326	-cal__month => $_,
327	});
328	$list->append_text ("\n");
329	}
330
331	FormattingRule:
332	@Category[list]:
333	page-link
334	view-resource
335	@Name: calender--year
336	@Description:
337	@@@: Year number
338	@@lang: en
339	@Formatting:
340	$p->{-parent}->append_text ($o->{link}->{option}->{-cal__year} + 0);
341
342	FormattingRule:
343	@Category[list]:
344	page-link
345	view-resource
346	@Name: calender--month
347	@Description:
348	@@@: Month number
349	@@lang: en
350	@Formatting:
351	$p->{-parent}->append_text ($o->{link}->{option}->{-cal__month} + 0);
352
353	FormattingRule:
354	@Category[list]:
355	page-link
356	view-resource
357	@Name:
358	calender--day
359	@Description:
360	@@@: Day number
361	@@lang: en
362	@Formatting:
363	$p->{-parent}->append_text ($o->{link}->{option}->{-cal__day} + 0);
364
365	FormattingRule:
366	@Category[list]:
367	view
368	view-resource
369	form-input
370	@Name: cal--year-page
371	@Description:
372	@@@: Year WikiPage name
373	@@lang: en
374	@Parameter:
375	@@Name: page
376	@@Type: WikiName
377	@@Default: (auto)
378	@@Description:
379	@@@@: Some WikiPage in calender
380	@@@lang: en
381	@Parameter:
382	@@Name: year
383	@@Type: <<4*DIGIT>>
384	@@Default: (auto)
385	@@Description:
386	@@@@: Year number
387	@@@lang: en
388	@Formatting:
389	my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
390	my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
391	$p->{-parent}->append_text (__FUNCPACK__->date_to_wikiname
392	(base => $date->{base},
393	year => $date->{year} \|\| (gmtime)[5] + 1900,
394	o => $o)->stringify (wiki => $o->{wiki}));
395
396	FormattingRule:
397	@Category[list]:
398	view
399	view-resource
400	form-input
401	@Name: cal--month-page
402	@Description:
403	@@@: Year-month WikiPage name
404	@@lang: en
405	@Parameter:
406	@@Name: month
407	@@Type: <<1*2DIGIT>>
408	@@Default: (auto)
409	@@Description:
410	@@@@: Month number
411	@@@lang: en
412	@Parameter:
413	@@Name: page
414	@@Type: WikiName
415	@@Default: (auto)
416	@@Description:
417	@@@@: Some WikiPage in calender
418	@@@lang: en
419	@Parameter:
420	@@Name: year
421	@@Type: <<4*DIGIT>>
422	@@Default: (auto)
423	@@Description:
424	@@@@: Year number
425	@@@lang: en
426	@Formatting:
427	my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
428	my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
429	$p->{-parent}->append_text (__FUNCPACK__->date_to_wikiname
430	(base => $date->{base},
431	year => $p->{year} \|\| $date->{year}
432	\|\| (gmtime)[5] + 1900,
433	month => $p->{month} \|\| $date->{month}
434	\|\| (gmtime)[4] + 1,
435	o => $o)->stringify (wiki => $o->{wiki}));
436
437	FormattingRule:
438	@Category[list]:
439	view
440	view-resource
441	form-input
442	@Name: cal--day-page
443	@Description:
444	@@@: Year-month-day WikiPage name
445	@@lang: en
446	@Parameter:
447	@@Name: day
448	@@Type: <<1*2DIGIT>>
449	@@Default: (auto)
450	@@Description:
451	@@@@: Day number
452	@@@lang: en
453	@Parameter:
454	@@Name: month
455	@@Type: <<1*2DIGIT>>
456	@@Default: (auto)
457	@@Description:
458	@@@@: Month number
459	@@@lang: en
460	@Parameter:
461	@@Name: page
462	@@Type: WikiName
463	@@Default: (auto)
464	@@Description:
465	@@@@: Some WikiPage in calender
466	@@@lang: en
467	@Parameter:
468	@@Name: year
469	@@Type: <<4*DIGIT>>
470	@@Default: (auto)
471	@@Description:
472	@@@@: Year number
473	@@@lang: en
474	@Formatting:
475	my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
476	my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
477	$p->{-parent}->append_text (__FUNCPACK__->date_to_wikiname
478	(base => $date->{base},
479	year => $p->{year} \|\| $date->{year}
480	\|\| (gmtime)[5] + 1900,
481	month => $p->{month} \|\| $date->{month}
482	\|\| (gmtime)[4] + 1,
483	day => $p->{day} \|\| $date->{day}
484	\|\| (gmtime)[3],
485	o => $o)->stringify (wiki => $o->{wiki}));
486
487	FormattingRule:
488	@Category[list]:
489	view
490	@Name:
491	link-calender-date
492	@Description:
493	@@@: Link to previous/next calender WikiPage
494	@@lang: en
495	@Formatting:
496	my $page = $o->{wiki}->name ($p->{page} or $o->{wiki}->{var}->{page});
497	my $date = __FUNCPACK__->wikiname_to_date (name => $page, o => $o);
498	my $year = $p->{year} \|\| $date->{year} \|\| return;
499	my $month = $p->{month} \|\| $date->{month};
500	my $day = $p->{day} \|\| $date->{day};
501
502	my ($Year, $Month, $Day) = (0, 0, 0);
503	my ($yeaR, $montH, $daY) = (0, 0, 0);
504	my %page;
505	if ($day) { ## 2003-04-01
506	require Time::Local;
507	(undef, undef, undef, $Day, $Month, $Year)
508	= gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year)
509	- 24 * 3600);
510	$Month++; $Year += 1900;
511	$page{prev} = {year => $Year, month => $Month, day => $Day};
512	(undef, undef, undef, $daY, $montH, $yeaR)
513	= gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year)
514	+ 25 * 3600);
515	$montH++; $yeaR += 1900;
516	$page{next} = {year => $yeaR, month => $montH, day => $daY};
517	$page{up} = {year => $year, month => $month};
518	(undef, undef, undef, $Day, $Month, $Year)
519	= gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year)
520	- 7 * 24 * 3600);
521	$Month++; $Year += 1900;
522	$page{'prev-week'} = {year => $Year, month => $Month, day => $Day};
523	(undef, undef, undef, $daY, $montH, $yeaR)
524	= gmtime (Time::Local::timegm_nocheck (0,0,0,$day, $month - 1, $year)
525	+ 7 * 25 * 3600);
526	$montH++; $yeaR += 1900;
527	$page{'next-week'} = {year => $yeaR, month => $montH, day => $daY};
528	} elsif ($month) { ## 2003-04
529	($Year, $Month) = ($year, $month - 1);
530	($Month = 12, $Year--) if $Month == 0;
531	$page{prev} = {year => $Year, month => $Month};
532	($yeaR, $montH) = ($year, $month + 1);
533	($montH = 1, $yeaR++) if $montH == 13;
534	$page{next} = {year => $yeaR, month => $montH};
535	$page{up} = {year => $year};
536	} else { ## 2003
537	$Year = $year - 1;
538	$page{prev} = {year => $Year};
539	$yeaR = $year + 1;
540	$page{next} = {year => $yeaR};
541	}
542
543	my @gmtime = gmtime;
544	$page{today} = {year => $gmtime[5] + 1900, month => $gmtime[4] + 1,
545	day => $gmtime[3]};
546
547	__ATTRTEXT:%mode__;__ATTRTEXT:%with_lm__;__ATTRTEXT:%up_to_date__;
548	for my $rel (qw/prev next up prev-week next-week today/) {
549	next unless $page{$rel};
550	$WIKILINKING->to_wikipage_in_html ({
551	label => qq(%html-link;\n),
552	-ht__alt_description
553	=> $WIKIRESOURCE->get
554	(name => 'Calender:Link:'.$rel
555	.($page{$rel}->{day}?':ymd':
556	$page{$rel}->{month}?':ym':':y')
557	.':Description',
558	o => $o, wiki => $o->{wiki}),
559	} => {
560	base => $page,
561	page_name_relative => __FUNCPACK__->date_to_wikiname
562	(base => $date->{base}, o => $o,
563	%{$page{$rel}}),
564	wiki_mode => $p->{mode},
565	_with_lm => $p->{with_lm},
566	_up_to_date => $p->{up_to_date},
567	}, {
568	o => $o,
569	parent => $p->{-parent},
570	-rel => $rel,
571	-cal__year => $page{$rel}->{year},
572	-cal__month => $page{$rel}->{month},
573	-cal__day => $page{$rel}->{day},
574	});
575	}
576
577
578	Function:
579	@Name: wikiname_to_date
580	@Description:
581	@@@:
582	Return what time is the WikiPage means, if it is part of calender.
583	@@lang: en
584	@Main:
585	my (undef, %opt) = @_;
586	if ($opt{name}->[$#{$opt{name}}]
587	=~ /^([0-9]{4,})(?:-([0-9][0-9])(?:-([0-9][0-9]))?)?$/) {
588	{year => $1, month => $2, day => $3,
589	base => $opt{o}->{wiki}->name
590	([@{$opt{name}}[0..$#{$opt{name}}-1]])};
591	} else {
592	{base => $opt{name}};
593	}
594
595	Function:
596	@Name: date_to_wikiname
597	@Description:
598	@@@: Generates WikiName from date
599	@@lang: en
600	@Main:
601	my (undef, %opt) = @_;
602	my $date = sprintf '%04d', $opt{year};
603	if ($opt{month}) {
604	$date .= sprintf '-%02d', $opt{month};
605	$date .= sprintf '-%02d', $opt{day} if $opt{day};
606	}
607	my $clone = $opt{base}->clone;
608	$clone->append_component ($date);
609	$clone;
610
611	ViewFragment:
612	@Template[list]:wr--read-body
613	@Order: -10
614	@Description:
615	@@@: "Read" mode body -- Calender
616	@@lang:en
617	@Formatting:
618	%if-calender (
619	month => {%calender;}p,
620	year => {%calender-months;}p,
621	);
622
623	ViewFragment:
624	@Template[list]: links
625	@Order: -100
626	@Description:
627	@@@: Link to previous/next WikiPage in calender
628	@@lang:en
629	@Formatting:
630	%link-calender-date;
631
632	Resource:
633	@Calender:Day:Label:
634	%link-to-it (
635	label => {%calender--day;}p,
636	description=>{%page-name(absolute);; %if-linked-wikipage-exist(
637	true=>{%page-headline;},
638	false=>{(%res(name=>{Link:toWikiPage:NotExist:Description});)},
639	);}p,
640	class=>{%if-linked-wikipage-exist(false=>{not-exist});}p,
641	);
642	@Calender:Link:prev:y:Description:
643	%calender--year; (%page-name;)
644	@Calender:Link:next:y:Description:
645	%calender--year; (%page-name;)
646	@Calender:Link:up:y:Description:
647	%calender--year; (%page-name;)
648	@Calender:Link:prev:ym:Description:
649	%calender--year;-%calender--month; (%page-name;)
650	@Calender:Link:next:ym:Description:
651	%calender--year;-%calender--month; (%page-name;)
652	@Calender:Link:up:ym:Description:
653	%calender--year;-%calender--month; (%page-name;)
654	@Calender:Link:prev:ymd:Description:
655	%calender--year;-%calender--month;-%calender--day; (%page-name;)
656	@Calender:Link:next:ymd:Description:
657	%calender--year;-%calender--month;-%calender--day; (%page-name;)
658	@Calender:Link:prev-week:ymd:Description:
659	%calender--year;-%calender--month;-%calender--day; (%page-name;)
660	@Calender:Link:next-week:ymd:Description:
661	%calender--year;-%calender--month;-%calender--day; (%page-name;)
662	@Calender:Link:today:ymd:Description:
663	@@@: Today's WikiPage (%page-name;)
664	@@lang: en
665	@Calender:MonthList:Item:
666	%link-to-it (
667	label => {%calender--month;}p,
668	description=>{%page-name(absolute);; %if-linked-wikipage-exist(
669	true=>{%page-headline;},
670	false=>{(%res(name=>{Link:toWikiPage:NotExist:Description});)},
671	);}p,
672	class=>{%if-linked-wikipage-exist(false=>{not-exist});}p,
673	);
674	@Calender:Table:Caption:
675	%link-to-wikipage (
676	label => {%percent;link-to-it (label => {%calender--year;});}p,
677	page => {%cal--year-page;}p,
678	rel => {up up},
679	);-%link-to-wikipage (
680	label => {%percent;link-to-it (label => {%calender--month;});}p,
681	page => {%cal--month-page;}p,
682	rel => {up},
683	);
684	@Calender:Table:Summary:
685	@@@:
686	A calender. Days are listed with columns assigned to days in week
687	(i.e. Sunday, Monday, ..., and Saturday)
688	@@lang: en
689	@Calender:Weekday:Long:sun:
690	@@@: Sunday
691	@@lang: en
692	@Calender:Weekday:Long:mon:
693	@@@: Monday
694	@@lang: en
695	@Calender:Weekday:Long:tue:
696	@@@: Tuesday
697	@@lang: en
698	@Calender:Weekday:Long:wed:
699	@@@: Wednesday
700	@@lang: en
701	@Calender:Weekday:Long:thu:
702	@@@: Thursday
703	@@lang: en
704	@Calender:Weekday:Long:fri:
705	@@@: Friday
706	@@lang: en
707	@Calender:Weekday:Long:sat:
708	@@@: Saturday
709	@@lang: en
710	@Calender:Weekday:Short:sun:
711	@@@: Sun
712	@@lang: en
713	@Calender:Weekday:Short:mon:
714	@@@: Mon
715	@@lang: en
716	@Calender:Weekday:Short:tue:
717	@@@: Tue
718	@@lang: en
719	@Calender:Weekday:Short:wed:
720	@@@: Wed
721	@@lang: en
722	@Calender:Weekday:Short:thu:
723	@@@: Thu
724	@@lang: en
725	@Calender:Weekday:Short:fri:
726	@@@: Fri
727	@@lang: en
728	@Calender:Weekday:Short:sat:
729	@@@: Sat
730	@@lang: en
731	@Calender:Weekday:Label:sun:
732	%abbr (
733	short => {%res (name => {Calender:Weekday:Short:sun});}p,
734	long => {%res (name => {Calender:Weekday:Long:sun});}p,
735	);
736	@Calender:Weekday:Label:mon:
737	%abbr (
738	short => {%res (name => {Calender:Weekday:Short:mon});}p,
739	long => {%res (name => {Calender:Weekday:Long:mon});}p,
740	);
741	@Calender:Weekday:Label:tue:
742	%abbr (
743	short => {%res (name => {Calender:Weekday:Short:tue});}p,
744	long => {%res (name => {Calender:Weekday:Long:tue});}p,
745	);
746	@Calender:Weekday:Label:wed:
747	%abbr (
748	short => {%res (name => {Calender:Weekday:Short:wed});}p,
749	long => {%res (name => {Calender:Weekday:Long:wed});}p,
750	);
751	@Calender:Weekday:Label:thu:
752	%abbr (
753	short => {%res (name => {Calender:Weekday:Short:thu});}p,
754	long => {%res (name => {Calender:Weekday:Long:thu});}p,
755	);
756	@Calender:Weekday:Label:fri:
757	%abbr (
758	short => {%res (name => {Calender:Weekday:Short:fri});}p,
759	long => {%res (name => {Calender:Weekday:Long:fri});}p,
760	);
761	@Calender:Weekday:Label:sat:
762	%abbr (
763	short => {%res (name => {Calender:Weekday:Short:sat});}p,
764	long => {%res (name => {Calender:Weekday:Long:sat});}p,
765	);
766
767
768