misc/plugins/Obsolete.wp2

#?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/02/01 12:10:29 $
  @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


1	wakaba	1.1	#?SuikaWikiConfig/2.0
2
3			Plugin:
4			@Name: Obsolete
5			@Description:
6			@@@: Obsoleted formatting rules
7			@@lang:en
8	wakaba	1.3	@License: %%Perl%%
9	wakaba	1.1	@Author:
10			@@Name:
11			@@@@: Wakaba
12			@@@lang:ja
13			@@@script:Latn
14			@@Mail[list]: w@suika.fam.cx
15	wakaba	1.3	@Date.RCS:
16			$Date: 2004/02/01 12:10:29 $
17	wakaba	1.1	@RequiredPlugin[list]:
18			Error
19			WikiResource
20
21			PluginConst:
22			@NS_XHTML1:
23			http://www.w3.org/1999/xhtml
24
25			FormattingRule:
26			@Category[list]:form-input
27			@Name: n
28			@Formatting:
29			SuikaWiki::Plugin->module_package ('Error')
30			->report_error_simple ($o->{wiki},
31			WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
32			(name => 'Obsolete:WikiForm:n',
33			param => $o,
34			wiki => $o->{wiki}));
35			$p->{-parent}->append_new_node (type => '#element',
36			namespace_uri => $NS_XHTML1,
37			local_name => 'br')
38			->option (use_EmptyElemTag => 1);
39			$p->{-parent}->append_text ("\n");
40
41			FormattingRule:
42			@Category[list]:form-template
43			@Name: n
44			@After:
45			SuikaWiki::Plugin->module_package ('Error')
46			->report_error_simple ($o->{wiki},
47			WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
48			(name => 'Obsolete:WikiForm:n',
49			param => $o,
50			wiki => $o->{wiki}));
51			$p->{-result} .= "\n";
52
53	wakaba	1.2	FormattingRule:
54			@Category[list]: form-input
55			@Name: radio
56			@Description:
57			@@@: One of one-from-many selection
58			@@lang: en
59			@Parameter:
60			@@Name: default
61			@@Type: boolean
62			@@Default: "0"
63			@@Description:
64			@@@@: Initial value
65			@@@lang: en
66			@Parameter:
67			@@Name: desription
68			@@Type: text
69			@@Default: (none)
70			@@Description:
71			@@@@: Human readable description about this selection
72			@@@lang: en
73			@Parameter:
74			@@Name: label
75			@@Type: text
76			@@Default: (none)
77			@@Description:
78			@@@@: A label descripting the selection
79			@@@lang: en
80			@Parameter:
81			@@Name: value
82			@@Type: text
83			@@Default: (auto)
84			@@Description:
85			@@@@: Form control value returned when selected
86			@@@lang: en
87			@Formatting:
88			SuikaWiki::Plugin->module_package ('Error')
89			->report_error_simple ($o->{wiki},
90			WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
91			(name => 'Obsolete:WikiForm:%radio',
92			param => $o,
93			wiki => $o->{wiki}));
94			my $id = SuikaWiki::Plugin->module_package ('WikiFormCore')
95			->control_id ($o,
96			local_id => $p->{id},
97			require_local_id => 1);
98			my $check = $p->{-parent}->append_new_node
99			(type => '#element',
100			namespace_uri => $NS_XHTML1,
101			local_name => 'input');
102			$check->set_attribute (type => 'radio');
103			$check->set_attribute (name => $id->{local_id});
104			__ATTRTEXT:%value__;__ATTRTEXT:%default__;__ATTRTEXT:%description__;
105			$check->set_attribute (checked => 'checked') if $p->{default};
106			$check->set_attribute (value => $p->{value}) if length $p->{value};
107			$check->set_attribute (disabled => 'disabled') if $o->{form}->{disabled};
108			$check->set_attribute (title => $p->{description})
109			if length $p->{description};
110
111			__ATTRNODE:%label__;
112			if ($p->{label}->count) {
113			$check->set_attribute (id => $id->{global_id});
114			my $label = $p->{-parent}->append_new_node
115			(type => '#element',
116			namespace_uri => $NS_XHTML1,
117			local_name => 'label');
118			$label->set_attribute (for => $id->{global_id});
119			$label->append_node ($p->{label});
120			$label->set_attribute (title => $p->{description})
121			if length $p->{description};
122			}
123
124	wakaba	1.3	FormattingRule:
125			@Category[list]:
126			view
127			view-resource
128			form-input
129			@Name: form-line
130			@Description:
131			@@@:
132			A semantic line
133			@@lang: en
134			@Parameter:
135			@@Name: class
136			@@Type: classes
137			@@Default: (none)
138			@@Description:
139			@@@@: Class of section
140			@@@lang:en
141			@Parameter:
142			@@Name: content
143			@@Type: text
144			@@Default: ""
145			@@Description:
146			@@@@: Content of the line
147			@@@lang:en
148			@Formatting:
149			__ATTRNODE:%content__;
150			SuikaWiki::Plugin->module_package ('Error')
151			->report_error_simple ($o->{wiki},
152			WikiForm => SuikaWiki::Plugin->module_package ('WikiResource')->get_text
153			(name => 'Obsolete:WikiForm:%form-line',
154			param => $o,
155			wiki => $o->{wiki}));
156			if ($p->{content}->count) {
157			$p->{-parent}->append_node ($p->{content}, node_or_text => 1);
158			$p->{-parent}->append_new_node
159			(type => '#element', namespace_uri => $NS_XHTML1, local_name => 'br')
160			->option (use_EmptyElemTag => 1);
161			}
162
163	wakaba	1.1	Resource:
164	wakaba	1.3	@Obsolete:WikiForm:%form-line:
165			@@@: Formatting rule "form-line" is obsolete. Use "line" instead.
166			@@lang:en
167	wakaba	1.1	@Obsolete:WikiForm:n:
168			@@@: Formatting rule "n" is obsolete. Use "line" instead.
169			@@lang:en
170	wakaba	1.2	@Obsolete:WikiForm:%radio:
171			@@@: Formatting rule "radio" is obsolete.
172			@@lang: en
173	wakaba	1.1
174
175