plugins/form/link.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: WikiFormAsLink
  @FullName:
    WikiForm: Form as hyperlink
  @Description:
    @@@:
      This plugin module provides some styles of forms
      can be used as hyperlink.
    @@lang: en
  @License: %%GPL%%
  @Author[list]:
     Wakaba <w@suika.fam.cx>
  @Date.RCS: $Date: 2004/01/16 07:50:17 $
  @RequiredModule[list]:
    WikiFormCore

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

FormattingRule:
  @Category[list]: form-input
  @Name: wfl--link-to-wikipage
  @Description:
    @@@: Linking to a WikiPage, as a form
    @@lang: en
  @Parameter:
    @@Name: content
    @@Type: format
    @@Default:""
    @@Description:
      @@@@: Form content.
      @@@lang:en
  @Formatting:
    __ATTRTEXT:%content__;
    SuikaWiki::Plugin->module_package ('WikiFormCore')
                     ->make_form_in_html
                         ($p->{-parent}, $p->{content},
                          wiki => $o->{wiki},
                          o => $o,
                          index => -1,
                          output => {
                            http_method => 'get',
                          },);

FormattingRule:
  @Category[list]:form-input
  @Name: wfl--hidden-mode
  @Description:
    @@@: Specifying mode, to be used with wfl--link-to-wikipage.
    @@lang:en
  @Parameter:
    @@Name: mode
    @@Type: mode
    @@Default:"default"
    @@Description:
      @@@: Mode name.
      @@lang:en
  @Formatting:
    for ($p->{-parent}->append_new_node
                          (type => '#element',
                           namespace_uri => $NS_XHTML1,
                           local_name => 'input')) {
      $_->set_attribute (type => 'hidden');
      $_->set_attribute (name => 'mode');
      __ATTRTEXT:%mode__;
      $_->set_attribute (value => $p->{mode} || 'default');
      $_->option (use_EmptyElemTag => 1);
    }

1	wakaba	1.1	#?SuikaWikiConfig/2.0
2
3			Plugin:
4			@Name: WikiFormAsLink
5			@FullName:
6			WikiForm: Form as hyperlink
7			@Description:
8			@@@:
9			This plugin module provides some styles of forms
10			can be used as hyperlink.
11			@@lang: en
12			@License: %%GPL%%
13			@Author[list]:
14			Wakaba <w@suika.fam.cx>
15			@Date.RCS: $Date: 2004/01/16 07:50:17 $
16			@RequiredModule[list]:
17			WikiFormCore
18
19			PluginConst:
20			@NS_XHTML1:
21			http://www.w3.org/1999/xhtml
22
23			FormattingRule:
24			@Category[list]: form-input
25			@Name: wfl--link-to-wikipage
26			@Description:
27			@@@: Linking to a WikiPage, as a form
28			@@lang: en
29			@Parameter:
30			@@Name: content
31			@@Type: format
32			@@Default:""
33			@@Description:
34			@@@@: Form content.
35			@@@lang:en
36			@Formatting:
37			__ATTRTEXT:%content__;
38			SuikaWiki::Plugin->module_package ('WikiFormCore')
39			->make_form_in_html
40			($p->{-parent}, $p->{content},
41			wiki => $o->{wiki},
42			o => $o,
43			index => -1,
44			output => {
45			http_method => 'get',
46			},);
47
48			FormattingRule:
49			@Category[list]:form-input
50			@Name: wfl--hidden-mode
51			@Description:
52			@@@: Specifying mode, to be used with wfl--link-to-wikipage.
53			@@lang:en
54			@Parameter:
55			@@Name: mode
56			@@Type: mode
57			@@Default:"default"
58			@@Description:
59			@@@: Mode name.
60			@@lang:en
61			@Formatting:
62			for ($p->{-parent}->append_new_node
63			(type => '#element',
64			namespace_uri => $NS_XHTML1,
65			local_name => 'input')) {
66			$_->set_attribute (type => 'hidden');
67			$_->set_attribute (name => 'mode');
68			__ATTRTEXT:%mode__;
69			$_->set_attribute (value => $p->{mode} \|\| 'default');
70			$_->option (use_EmptyElemTag => 1);
71			}
72