script/default/config.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: config
  @Description:
    @@@: Per-Wiki Configuration Pseudo-Plugin
    @@lang:en
  @License: %%GPL%%
  @Date.RCS: $Date: 2004/02/01 12:34:18 $

ViewFragment:
  @Name: navbar
  @Order: 20
  @Formatting:
    %link-to-wikipage (
      page => {Wiki//Page//Create},
      label => {%link-to-it (
        label => "%res(name=>GoToCreatePage);"p,
        description => "%res(name=>GoToCreatePageLong);"p,
      );},
    ); 
    %link-to-wikipage (
      page => {Wiki//Page//Search},
      label => {%link-to-it (
                 label=>"%res(name=>GoToSearchPage);"p,
                 description=>"%res(name=>GoToSearchPageLong);"p,
      );},
      rel => search,
    ); 
    %link-to-wikipage (
      page => {IndexPage},
      label => {%link-to-it (
                 label=>"%res(name=>GoToIndexPage);"p,
                 description=>"%res(name=>GoToIndexPageLong);"p,
      );},
      rel => index,
    ); 


ViewFragment:
  @Name: links
  @Formatting:
    %link-wiki(page=>"Wiki//News",rel=>news,
               description=>"%res(name=>GoToWikiNewsLink);"p);
    %link-wiki(page=>"Wiki//Help",rel=>help,
               description=>"%res(name=>GoToWikiHelpLink);"p);
    %link-wiki(page=>"Wiki//Page//License",rel=>copyright,
               description=>"%res(name=>GoToWikiPageLicenseLink);"p);

    %link-wiki(page=>"Wiki//Page//Search",rel=>search,
               description=>"%res(name=>GoToSearchPageLink);"p); 

## TODO: Resource, URI
    %link-to-resource (
      uri => {javascript:var%20WikiName=prompt('Please%20input%20the%20WikiName:','','Jump%20to%20SuikaWiki');if(WikiName)%7B_content.location.href='wiki%3F'+encodeURIComponent(WikiName)%7D},
      rel => jump,
      class => wiki-cmd,
      label => {%html-link (
                  description => {%res(name=>JumpToLink);}p,
                );},
    );
    %link-to-resource (
      uri => {javascript:var%20WikiName=prompt('Please%20input%20the%20WikiName:','','Jump%20to%20SuikaWiki');if(WikiName)%7B_content.location.href='wiki%3Fmycmd=edit;mypage='+encodeURIComponent(WikiName)%7D},
      rel => jump,
      class => wiki-cmd,
      label => {%html-link (
                  description => {%res(name=>JumpToEditLink);}p,
                );},
    );

ViewFragment:
  @Name: ws--footer
  @Formatting:
    %link-to-wikipage (
      page => {Wiki//Page//License},
      label => {%link-to-it (
        label => {%res (name => {Footer:License:SeeLicensePage});}p,
        description => {%res (name => {Footer:License:SeeLicensePageLong});}p,
      );},
    );
#    %wpr--remove-button; 

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


ViewFragment:
  @Template[list]:
     we--edit-body
     we--conflict-body
  @Order: 1000
  @Description:
    @@@: WikiPage editing guide
    @@lang:en
  @Formatting:
                    %block (
                      id => edit-help,
                      content => {%read(page=>{Wiki//EditHelp});}p,
                    );


Resource:
  @GoToWikiNewsLink:
    @@@: News
    @@lang:en
  @GoToWikiHelpLink:
    @@@: Help
    @@lang:en
  @GoToWikiPageLicenseLink:
    @@@: License
    @@lang:en

ViewFragment:
  @Name: we--edit
  @Order: -100
  @Formatting:
    %line(content=>{
      %submit(accesskey=>S,label=>{%res(name=>{Edit:Save});}p);
      [%wpp--next-anchor-index;] 
    }p); 

ViewFragment:
  @Name: we--edit
  @Order: -10
  @Formatting: %line(content=>{
ViewFragment:
  @Name: we--edit
  @Order: 10
  @Formatting: }p);

ViewFragment:
  @Name: we--edit
  @Order: 150
  @Formatting:
    %line(content=>{

ViewFragment:
  @Name: we--edit
  @Order: 250
  @Formatting:
      %mode-after-edit-selection (
        description => {%res (name => {Edit:SaveAnd:Description});}p,
      );
    
      %we--update-lastmodified-datetime;

    }p);

Resource:
  @Footer:License:SeeLicensePage:
    @@@: %char (ucs => {U+00A9});
  @Footer:License:SeeLicensePageLong:
    @@@: See license document
    @@lang:en

## --- Should be moved to proper plugin module ---

## WikiPageRename
ViewFragment:
  @Template[list]: we--adminedit-body
  @Order:100
  @Description:
    @@@: Renaming WikiName section
    @@lang:en
  @Formatting:
                %section (
                  title   => {%res(name=>{Edit:Rename:Title});}p, heading,
                  content => {
                    %wp-rename-form (
                      content => {
                        %text (
                          id      => to,
                          label   => {%res(name=>{Edit:Rename:To=});}p,
                          size    => 10,
                          default => {%page-name;}p,
                        );
                        %submit;
                      }p,
                    );
                  }p,
                );

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

FormattingRule:
  @Name: debug-sw09-text-xml-text-diff
  @Formatting:
    my $page = $p->{page} ? [split m#//#, $p->{page}]
                          : $o->{wiki}->{var}->{page};
    my $sw09 = SuikaWiki::Plugin->module_package ('SuikaWiki09');
    
    ## Original Text Format
    my $text1 = $o->{wiki}->{db}->get (content => $page);
    
    ## Text format -> XML format
    my $xml = new Message::Markup::XML::Node type => '#fragment';
    $sw09->text_to_xml ($text1, {-parent => $xml});
    
    ## XML format -> Text format
    my $text2 = $sw09->xml_to_text ($xml, {});
    
    $p->{-parent}->append_new_node (type => '#element',
                                    namespace_uri => $NS_XHTML1,
                                    local_name => 'pre')
                 ->append_text ($xml->outer_xml);
    SuikaWiki::Plugin->module_package ('WikiEdit')
                     ->diff_in_html (\$text1, \$text2 =>
      $p->{-parent}->append_new_node (type => '#element',
                                      namespace_uri => $NS_XHTML1,
                                      local_name => 'pre')
    );

FormattingRule:
  @Category[list]:view
  @Name: debug-sw09-text-xml-text-diff
  @Formatting:
    my $page = $p->{page} ? [split m#//#, $p->{page}]
                          : $o->{wiki}->{var}->{page};
    my $sw09 = SuikaWiki::Plugin->module_package ('SuikaWiki09');
    
    ## Original Text Format
    my $text1 = $o->{wiki}->{db}->get (content => $page);
    
    ## Text format -> XML format
    my $xml = new Message::Markup::XML::Node type => '#fragment';
    $sw09->text_to_xml ($text1, {-parent => $xml});
    
    ## XML format -> Text format
    my $text2 = $sw09->xml_to_text ($xml, {});
    
    $p->{-parent}->append_new_node (type => '#element',
                                    namespace_uri => $NS_XHTML1,
                                    local_name => 'pre')
                 ->append_text ($xml->outer_xml);
    $p->{-parent}->append_new_node (type => '#element',
                                    namespace_uri => $NS_XHTML1,
                                    local_name => 'pre')
                 ->append_text ($text2);
    SuikaWiki::Plugin->module_package ('WikiEdit')
                     ->diff_in_html (\$text1, \$text2 => $p->{-parent});


Was ViewFragment:
  @Template[list]:wr--read-body
  @Order: 120
  @Formatting:
    %section (
      heading,
      title => "Diff",
      content => {
        %debug-sw09-text-xml-text-diff;
      }p,
    );
1	#?SuikaWikiConfig/2.0
2
3	Plugin:
4	@Name: config
5	@Description:
6	@@@: Per-Wiki Configuration Pseudo-Plugin
7	@@lang:en
8	@License: %%GPL%%
9	@Date.RCS: $Date: 2004/02/01 12:34:18 $
10
11	ViewFragment:
12	@Name: navbar
13	@Order: 20
14	@Formatting:
15	%link-to-wikipage (
16	page => {Wiki//Page//Create},
17	label => {%link-to-it (
18	label => "%res(name=>GoToCreatePage);"p,
19	description => "%res(name=>GoToCreatePageLong);"p,
20	);},
21	);
22	%link-to-wikipage (
23	page => {Wiki//Page//Search},
24	label => {%link-to-it (
25	label=>"%res(name=>GoToSearchPage);"p,
26	description=>"%res(name=>GoToSearchPageLong);"p,
27	);},
28	rel => search,
29	);
30	%link-to-wikipage (
31	page => {IndexPage},
32	label => {%link-to-it (
33	label=>"%res(name=>GoToIndexPage);"p,
34	description=>"%res(name=>GoToIndexPageLong);"p,
35	);},
36	rel => index,
37	);
38
39
40	ViewFragment:
41	@Name: links
42	@Formatting:
43	%link-wiki(page=>"Wiki//News",rel=>news,
44	description=>"%res(name=>GoToWikiNewsLink);"p);
45	%link-wiki(page=>"Wiki//Help",rel=>help,
46	description=>"%res(name=>GoToWikiHelpLink);"p);
47	%link-wiki(page=>"Wiki//Page//License",rel=>copyright,
48	description=>"%res(name=>GoToWikiPageLicenseLink);"p);
49
50	%link-wiki(page=>"Wiki//Page//Search",rel=>search,
51	description=>"%res(name=>GoToSearchPageLink);"p);
52
53	## TODO: Resource, URI
54	%link-to-resource (
55	uri => {javascript:var%20WikiName=prompt('Please%20input%20the%20WikiName:','','Jump%20to%20SuikaWiki');if(WikiName)%7B_content.location.href='wiki%3F'+encodeURIComponent(WikiName)%7D},
56	rel => jump,
57	class => wiki-cmd,
58	label => {%html-link (
59	description => {%res(name=>JumpToLink);}p,
60	);},
61	);
62	%link-to-resource (
63	uri => {javascript:var%20WikiName=prompt('Please%20input%20the%20WikiName:','','Jump%20to%20SuikaWiki');if(WikiName)%7B_content.location.href='wiki%3Fmycmd=edit;mypage='+encodeURIComponent(WikiName)%7D},
64	rel => jump,
65	class => wiki-cmd,
66	label => {%html-link (
67	description => {%res(name=>JumpToEditLink);}p,
68	);},
69	);
70
71	ViewFragment:
72	@Name: ws--footer
73	@Formatting:
74	%link-to-wikipage (
75	page => {Wiki//Page//License},
76	label => {%link-to-it (
77	label => {%res (name => {Footer:License:SeeLicensePage});}p,
78	description => {%res (name => {Footer:License:SeeLicensePageLong});}p,
79	);},
80	);
81	# %wpr--remove-button;
82
83	ViewFragment:
84	@Template[list]:wr--read-body
85	@Order: -10
86	@Description:
87	@@@: "Read" mode body -- Calender
88	@@lang:en
89	@Formatting:
90	%if-calender(month,true=>{
91	%format(context=>form_input,template=>{%calender;});
92	},false=>{
93	%if-calender(true=>{
94	%format(context=>form_input,template=>{%calender-months;});
95	});
96	});
97
98
99	ViewFragment:
100	@Template[list]:
101	we--edit-body
102	we--conflict-body
103	@Order: 1000
104	@Description:
105	@@@: WikiPage editing guide
106	@@lang:en
107	@Formatting:
108	%block (
109	id => edit-help,
110	content => {%read(page=>{Wiki//EditHelp});}p,
111	);
112
113
114
115
116	Resource:
117	@GoToWikiNewsLink:
118	@@@: News
119	@@lang:en
120	@GoToWikiHelpLink:
121	@@@: Help
122	@@lang:en
123	@GoToWikiPageLicenseLink:
124	@@@: License
125	@@lang:en
126
127	ViewFragment:
128	@Name: we--edit
129	@Order: -100
130	@Formatting:
131	%line(content=>{
132	%submit(accesskey=>S,label=>{%res(name=>{Edit:Save});}p);
133	[%wpp--next-anchor-index;]
134	}p);
135
136	ViewFragment:
137	@Name: we--edit
138	@Order: -10
139	@Formatting: %line(content=>{
140	ViewFragment:
141	@Name: we--edit
142	@Order: 10
143	@Formatting: }p);
144
145	ViewFragment:
146	@Name: we--edit
147	@Order: 150
148	@Formatting:
149	%line(content=>{
150
151	ViewFragment:
152	@Name: we--edit
153	@Order: 250
154	@Formatting:
155	%mode-after-edit-selection (
156	description => {%res (name => {Edit:SaveAnd:Description});}p,
157	);
158
159	%we--update-lastmodified-datetime;
160
161	}p);
162
163	Resource:
164	@Footer:License:SeeLicensePage:
165	@@@: %char (ucs => {U+00A9});
166	@Footer:License:SeeLicensePageLong:
167	@@@: See license document
168	@@lang:en
169
170	## --- Should be moved to proper plugin module ---
171
172	## WikiPageRename
173	ViewFragment:
174	@Template[list]: we--adminedit-body
175	@Order:100
176	@Description:
177	@@@: Renaming WikiName section
178	@@lang:en
179	@Formatting:
180	%section (
181	title => {%res(name=>{Edit:Rename:Title});}p, heading,
182	content => {
183	%wp-rename-form (
184	content => {
185	%text (
186	id => to,
187	label => {%res(name=>{Edit:Rename:To=});}p,
188	size => 10,
189	default => {%page-name;}p,
190	);
191	%submit;
192	}p,
193	);
194	}p,
195	);
196
197	PluginConst:
198	@NS_XHTML1:
199	http://www.w3.org/1999/xhtml
200
201	FormattingRule:
202	@Name: debug-sw09-text-xml-text-diff
203	@Formatting:
204	my $page = $p->{page} ? [split m#//#, $p->{page}]
205	: $o->{wiki}->{var}->{page};
206	my $sw09 = SuikaWiki::Plugin->module_package ('SuikaWiki09');
207
208	## Original Text Format
209	my $text1 = $o->{wiki}->{db}->get (content => $page);
210
211	## Text format -> XML format
212	my $xml = new Message::Markup::XML::Node type => '#fragment';
213	$sw09->text_to_xml ($text1, {-parent => $xml});
214
215	## XML format -> Text format
216	my $text2 = $sw09->xml_to_text ($xml, {});
217
218	$p->{-parent}->append_new_node (type => '#element',
219	namespace_uri => $NS_XHTML1,
220	local_name => 'pre')
221	->append_text ($xml->outer_xml);
222	SuikaWiki::Plugin->module_package ('WikiEdit')
223	->diff_in_html (\$text1, \$text2 =>
224	$p->{-parent}->append_new_node (type => '#element',
225	namespace_uri => $NS_XHTML1,
226	local_name => 'pre')
227	);
228
229	FormattingRule:
230	@Category[list]:view
231	@Name: debug-sw09-text-xml-text-diff
232	@Formatting:
233	my $page = $p->{page} ? [split m#//#, $p->{page}]
234	: $o->{wiki}->{var}->{page};
235	my $sw09 = SuikaWiki::Plugin->module_package ('SuikaWiki09');
236
237	## Original Text Format
238	my $text1 = $o->{wiki}->{db}->get (content => $page);
239
240	## Text format -> XML format
241	my $xml = new Message::Markup::XML::Node type => '#fragment';
242	$sw09->text_to_xml ($text1, {-parent => $xml});
243
244	## XML format -> Text format
245	my $text2 = $sw09->xml_to_text ($xml, {});
246
247	$p->{-parent}->append_new_node (type => '#element',
248	namespace_uri => $NS_XHTML1,
249	local_name => 'pre')
250	->append_text ($xml->outer_xml);
251	$p->{-parent}->append_new_node (type => '#element',
252	namespace_uri => $NS_XHTML1,
253	local_name => 'pre')
254	->append_text ($text2);
255	SuikaWiki::Plugin->module_package ('WikiEdit')
256	->diff_in_html (\$text1, \$text2 => $p->{-parent});
257
258
259	Was ViewFragment:
260	@Template[list]:wr--read-body
261	@Order: 120
262	@Formatting:
263	%section (
264	heading,
265	title => "Diff",
266	content => {
267	%debug-sw09-text-xml-text-diff;
268	}p,
269	);