#?SuikaWikiConfig/2.0

Plugin:
  @Name: Obsolete
  @Description:
    @@@: Obsoleted formatting rules
    @@lang:en
  @License: %%Perl%%
  @Author:
    @@Name:
      @@@@: Wakaba
      @@@lang:ja
      @@@script:Latn
    @@Mail[list]: w@suika.fam.cx
  @Date.RCS:
    $Date: 2004/03/13 12:29:21 $
  @RequiredPlugin[list]:
    Error
    WikiResource

PluginConst:
  @NS_XHTML1:
    http://www.w3.org/1999/xhtml

FormattingRule:
  @Category[list]:form-input
  @Name: n
  @Formatting:
    SuikaWiki::Plugin->module_package ('Error')
                     ->report_error_simple ($o->{wiki},
                         WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
                                       (name => 'Obsolete:WikiForm:n',
                                        param => $o,
                                        wiki => $o->{wiki}));
    $p->{-parent}->append_new_node (type => '#element',
                                    namespace_uri => $NS_XHTML1,
                                    local_name => 'br')
                 ->option (use_EmptyElemTag => 1);
    $p->{-parent}->append_text ("\n");

FormattingRule:
  @Category[list]:form-template
  @Name: n
  @After:
    SuikaWiki::Plugin->module_package ('Error')
                     ->report_error_simple ($o->{wiki},
                         WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
                                       (name => 'Obsolete:WikiForm:n',
                                        param => $o, 
                                        wiki => $o->{wiki}));
    $p->{-result} .= "\n";

FormattingRule:
  @Category[list]: form-input
  @Name: radio
  @Description:
    @@@: One of one-from-many selection
    @@lang: en
  @Parameter:
    @@Name: default
    @@Type: boolean
    @@Default: "0"
    @@Description:
      @@@@: Initial value
      @@@lang: en
  @Parameter:
    @@Name: desription
    @@Type: text
    @@Default: (none)
    @@Description:
      @@@@: Human readable description about this selection
      @@@lang: en
  @Parameter:
    @@Name: label
    @@Type: text
    @@Default: (none)
    @@Description:
      @@@@: A label descripting the selection
      @@@lang: en
  @Parameter:
    @@Name: value
    @@Type: text
    @@Default: (auto)
    @@Description:
      @@@@: Form control value returned when selected
      @@@lang: en
  @Formatting:
    SuikaWiki::Plugin->module_package ('Error')
                     ->report_error_simple ($o->{wiki},
                         WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
                                       (name => 'Obsolete:WikiForm:%radio',
                                        param => $o, 
                                        wiki => $o->{wiki}));
    my $id = SuikaWiki::Plugin->module_package ('WikiFormCore')
                              ->control_id ($o,
                                            local_id => $p->{id},
                                            require_local_id => 1);
    my $check = $p->{-parent}->append_new_node
                                 (type => '#element',
                                  namespace_uri => $NS_XHTML1,
                                  local_name => 'input');
    $check->set_attribute (type => 'radio');
    $check->set_attribute (name => $id->{local_id});
    __ATTRTEXT:%value__;__ATTRTEXT:%default__;__ATTRTEXT:%description__;
    $check->set_attribute (checked => 'checked') if $p->{default};
    $check->set_attribute (value => $p->{value}) if length $p->{value};
    $check->set_attribute (disabled => 'disabled') if $o->{form}->{disabled};
    $check->set_attribute (title => $p->{description})
      if length $p->{description};
    
    __ATTRNODE:%label__;
    if ($p->{label}->count) {
      $check->set_attribute (id => $id->{global_id});
      my $label = $p->{-parent}->append_new_node
                                   (type => '#element',
                                    namespace_uri => $NS_XHTML1,
                                    local_name => 'label');
      $label->set_attribute (for => $id->{global_id});
      $label->append_node ($p->{label});
      $label->set_attribute (title => $p->{description})
        if length $p->{description};
    }

FormattingRule:
  @Category[list]:
    view
    view-resource
    form-input
  @Name: form-line
  @Description:
    @@@:
      A semantic line
    @@lang: en
  @Parameter:
    @@Name: class
    @@Type: classes
    @@Default: (none)
    @@Description:
      @@@@: Class of section
      @@@lang:en
  @Parameter:
    @@Name: content
    @@Type: text
    @@Default: ""
    @@Description:
      @@@@: Content of the line
      @@@lang:en
  @Formatting:
    __ATTRNODE:%content__;
    SuikaWiki::Plugin->module_package ('Error')
                     ->report_error_simple ($o->{wiki},
                         WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
                                       (name => 'Obsolete:WikiForm:%form-line',
                                        param => $o, 
                                        wiki => $o->{wiki}));
    if ($p->{content}->count) {
      $p->{-parent}->append_node ($p->{content}, node_or_text => 1);
      $p->{-parent}->append_new_node
        (type => '#element', namespace_uri => $NS_XHTML1, local_name => 'br')
                   ->option (use_EmptyElemTag => 1);
    }

Resource:
  @Obsolete:WikiForm:%form-line:
    @@@: Formatting rule "form-line" is obsolete. Use "line" instead.
    @@lang:en
  @Obsolete:WikiForm:n:
    @@@: Formatting rule "n" is obsolete. Use "line" instead.
    @@lang:en
  @Obsolete:WikiForm:%radio:
    @@@: Formatting rule "radio" is obsolete.
    @@lang: en