suikawiki/wikidata/config.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: config
  @Description:
    @@@: Per-Wiki Configuration Pseudo-Plugin
    @@lang:en
  @License: %%Perl%%
  @Date.RCS:
    $Date: 2004/12/02 23:04:21 $

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,
    ); 

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-to-resource (
      uri => {#LICENSE},
      rel => copyright,
      label => {%html-link (
        class => wiki-cmd,
        description => {%res (name => GoToWikiPageLicenseLink);}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); 

    %link-to-resource (
      uri => {%sw--this-uri;}p,
      rel => bookmark,
      label => {%html-link (
        description => {%res (name => GoToMyselfLink);}p,
      );},
    );

    %link-to-resource (
      iw-name => {wiki-content-in-cvs-repository},
      iw-parameter => {%page-name;}p,
      rel => history,
      label => {%html-link (
        class => wiki-cmd,
        description => {%res (name => ViewHistoryOfThisPageLink);}p,
      );},
    );

    %html--meta-keywords;
    %html-meta (
      name => {description},
      content => {%page-headline;}p,
    );
    
ViewFragment:
  @Name: links
  @Order: 100010
  @Formatting:
## 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--pre-content
  @Description:
    @@@: Before content body -- message
    @@lang:en
  @Order:19
  @Formatting:
    %res (name => {Wiki:MsgFromAdmin});

ViewFragment:
  @Name: ws--pre-content
  @Description:
    @@@: Before content body -- is obsoleted?
    @@lang:en
  @Order: 20
  @Formatting:
        %m--wikipage-obsolete (
          desc-before => {%res (name => {WikiPage:Obsolete:DescBefore});}p,
          desc-after => {%res (name => {WikiPage:Obsolete:DescAfter});}p,
        );

ViewFragment:
  @Name: ws--post-content
  @Description:
    @@@: After content body -- License information
    @@lang:en
  @Order: 600
  @Formatting:
        %section (
          id => LICENSE,
          title => {%res(name=>{Section:License:Title});}p, heading,
          content => {
            %res (name => {Section:License:BeforeDescriptions});
            %wr--propread (prop => license);
            %res (name => {Section:License:AfterDescriptions});
          }p,
        );

FormattingRule:
  @Category[list]:
    view
    view-resource
    page-link
    link-to-resource
    form-input
    form-template
  @Name: sw--this-uri
  @Description:
    @@@: "This WikiPage" URI reference (experimetnal)
    @@lang:en
  @Formatting:
    require Encode;
    require URI;
    my $page = Encode::encode
                 ('utf8', Encode::decode
                            ('euc-jp', $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki})));
    $page =~ s#([^A-Za-z0-9._~-])#sprintf '%%%02X', ord $1#ge;
    $page =~ s#%2F%2F#/#g;
    if ($page =~ m#%2F#) {
      $page = $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki});
      $page =~ s#([^A-Za-z0-9._~-])#sprintf '%%%02X', ord $1#ge;
      $p->{-parent}->append_text (q<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?>.$page);
    } else {
      $p->{-parent}->append_text (URI->new (q<http://suika.fam.cx/gate/2005/sw/>.$page));
    }

ViewFragment:
  @Name: ws--post-content
  @Description:
    @@@: After content body -- URI
    @@lang:en
  @Order: 700
  @Formatting:
    %block (
      class => myuri,
      content => {
        %res (name => {WikiPage:ThisURI=});
        %link-to-resource (
          label => {<%link-to-it (label => {%sw--this-uri;}p);>},
          uri => {%sw--this-uri;}p,
        );
      }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,
      );},
    );

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,
                    );

FormattingRuleAlias:
  @Category[list]:
    view
    view-resource
    form-input
  @Name: search-result
  @Reference:
    @@Category: view
    @@Name: namazu-search

FormattingRuleAlias:
  @Category[list]:
    form-template
  @Name: name
  @Reference:
    @@Category: form-template
    @@Name: bbs--2ch-name

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,
      );
      
      %check (id => we--touch,
              label => {%res (name => {Edit:UpdateTimeStamp});}p,
              description => {%res (name => {Edit:UpdateTimeStamp:Description});}p,
              default);
    }p);

ViewFragment:
  @Name: we--edit
  @Order: 1250
  @Description:
    @@lang:en
    @@@: License Information that should be read just before submitting.
  @Formatting:
    %res (name => {Edit:License:Descriptions});

Resource:
  @Edit:License:Descriptions:
    @@lang:en
    @@@:
      %paragraph (content => {
        Note: Submitting any changes means you understand and accept
        license terms written in (or referred from)
        %link-to-wikipage (page => {Wiki//Page//License},
        label => {%link-to-it (label => {Wiki//Page//License});});.
      }p);
      %paragraph (content => {
        WARNING: Don't submit copyrighted work without permission.
        If you are not sure whether it is allowed or not, don't submit.
      });
      %paragraph (content => {
        You MUST add license information to the License section 
        just after submission (%link-to-wikipage (mode => pe--propedit, 
        label => {%link-to-it (label => {Edit License Information});});)
        if your submission is copy of copyrighted work (and if you can 
        publish it).
      }p);
  @Edit:UpdateTimeStamp:
    @@@: Update timestamp
    @@lang: en
  @Edit:UpdateTimeStamp:Description:
    @@@: Update Last-Modified date-time to "now"
    @@lang: en
  @Footer:License:SeeLicensePage:
    @@@: %char (ucs => {U+00A9});
  @Footer:License:SeeLicensePageLong:
    @@@: See license document
    @@lang:en
  @GoToCreatePage:
    @@@: Create
    @@lang: en
  @GoToCreatePageLong:
    @@@: Create a new WikiPage
    @@lang: en
  @GoToMyselfLink:
    @@@: This WikiPage
    @@lang:en
  @GoToSearchPage:
    @@@: Search
    @@lang: en
  @GoToSearchPageLink:
    @@@: Search in this wiki
    @@lang: en
  @GoToSearchPageLong:
    @@@: Search word in this wiki
    @@lang: en
  @GoToWikiHelpLink:
    @@@: Help page
    @@lang: en
  @GoToWikiPageLicenseLink:
    @@@: License for contents of this wiki
    @@lang: en
  @GoToWikiNewsLink:
    @@@: News on this wiki
    @@lang: en
  @JumpToLink:
    @@@: Open a WikiPage...
    @@lang: en
  @JumpToEditLink:
    @@@: Open a WikiPage in editing mode...
    @@lang: en
  @Section:License:AfterDescriptions:
  @Section:License:BeforeDescriptions:
    @@lang:en
    @@@:
      %paragraph (content => {
        %char (ucs => {U+00A9}); Authors, et al. %last-modified;
      }p);
      %paragraph (content => {
        For more information about copyright and other rights, see
        %link-to-wikipage (page => {Wiki//Page//License},
        label => {%link-to-it (label => {Wiki//Page//License});});.
      }p);
  @Section:License:Title:
    @@lang:en
    @@@: License
  @StyleSet:Name:SuikaWiki:
    @@@: SuikaWiki
    @@lang: ja
  @WikiForm:Create:Name:
    @@@: WikiName
    @@lang: en
  @WikiForm:Search:Name:
    @@@: Keyword
    @@lang: en
  @WikiPage:Obsolete:DescBefore:
    @@@:
      This WikiPage is obsolete in favor of 
    @@lang:en
  @WikiPage:Obsolete:DescAfter:
    @@@: .
    @@lang:en
  @WikiPage:ThisURI=:
    @@@:
      This WikiPage: 
    @@lang:en


1	wakaba	1.1	#?SuikaWikiConfig/2.0
2
3			Plugin:
4			@Name: config
5			@Description:
6			@@@: Per-Wiki Configuration Pseudo-Plugin
7			@@lang:en
8			@License: %%Perl%%
9			@Date.RCS:
10	wakaba	1.11	$Date: 2004/12/02 23:04:21 $
11	wakaba	1.1
12			ViewFragment:
13			@Name: navbar
14			@Order: 20
15			@Formatting:
16			%link-to-wikipage (
17			page => {Wiki//Page//Create},
18			label => {%link-to-it (
19			label => "%res(name=>GoToCreatePage);"p,
20			description => "%res(name=>GoToCreatePageLong);"p,
21			);},
22			);
23			%link-to-wikipage (
24			page => {Wiki//Page//Search},
25			label => {%link-to-it (
26			label=>"%res(name=>GoToSearchPage);"p,
27			description=>"%res(name=>GoToSearchPageLong);"p,
28			);},
29			rel => search,
30			);
31
32			ViewFragment:
33			@Name: links
34			@Formatting:
35			%link-wiki(page=>"Wiki//News",rel=>news,
36			description=>"%res(name=>GoToWikiNewsLink);"p);
37			%link-wiki(page=>"Wiki//Help",rel=>help,
38			description=>"%res(name=>GoToWikiHelpLink);"p);
39	wakaba	1.7	%link-to-resource (
40			uri => {#LICENSE},
41			rel => copyright,
42			label => {%html-link (
43			class => wiki-cmd,
44			description => {%res (name => GoToWikiPageLicenseLink);}p,
45			);},
46			);
47	wakaba	1.1	%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	wakaba	1.2
53	wakaba	1.11	%link-to-resource (
54			uri => {%sw--this-uri;}p,
55	wakaba	1.10	rel => bookmark,
56	wakaba	1.11	label => {%html-link (
57			description => {%res (name => GoToMyselfLink);}p,
58			);},
59	wakaba	1.10	);
60
61	wakaba	1.2	%link-to-resource (
62			iw-name => {wiki-content-in-cvs-repository},
63			iw-parameter => {%page-name;}p,
64			rel => history,
65			label => {%html-link (
66	wakaba	1.7	class => wiki-cmd,
67	wakaba	1.2	description => {%res (name => ViewHistoryOfThisPageLink);}p,
68			);},
69	wakaba	1.5	);
70
71			%html--meta-keywords;
72			%html-meta (
73			name => {description},
74			content => {%page-headline;}p,
75	wakaba	1.2	);
76	wakaba	1.1
77	wakaba	1.2	ViewFragment:
78			@Name: links
79			@Order: 100010
80			@Formatting:
81	wakaba	1.1	## TODO: Resource, URI
82			%link-to-resource (
83			uri => {javascript:var%20WikiName=prompt('Please%20input%20the%20WikiName:','','Jump%20to%20SuikaWiki');if(WikiName)%7B_content.location.href='wiki%3F'+encodeURIComponent(WikiName)%7D},
84			rel => jump,
85			class => wiki-cmd,
86			label => {%html-link (
87			description => {%res(name=>JumpToLink);}p,
88			);},
89			);
90			%link-to-resource (
91			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},
92			rel => jump,
93			class => wiki-cmd,
94			label => {%html-link (
95			description => {%res(name=>JumpToEditLink);}p,
96			);},
97			);
98
99			ViewFragment:
100	wakaba	1.10	@Name:ws--pre-content
101			@Description:
102			@@@: Before content body -- message
103			@@lang:en
104			@Order:19
105			@Formatting:
106			%res (name => {Wiki:MsgFromAdmin});
107
108			ViewFragment:
109	wakaba	1.8	@Name: ws--pre-content
110			@Description:
111			@@@: Before content body -- is obsoleted?
112			@@lang:en
113			@Order: 20
114			@Formatting:
115			%m--wikipage-obsolete (
116			desc-before => {%res (name => {WikiPage:Obsolete:DescBefore});}p,
117			desc-after => {%res (name => {WikiPage:Obsolete:DescAfter});}p,
118			);
119
120			ViewFragment:
121	wakaba	1.6	@Name: ws--post-content
122			@Description:
123			@@@: After content body -- License information
124			@@lang:en
125			@Order: 600
126			@Formatting:
127			%section (
128			id => LICENSE,
129			title => {%res(name=>{Section:License:Title});}p, heading,
130			content => {
131			%res (name => {Section:License:BeforeDescriptions});
132			%wr--propread (prop => license);
133			%res (name => {Section:License:AfterDescriptions});
134			}p,
135			);
136
137	wakaba	1.11	FormattingRule:
138			@Category[list]:
139			view
140			view-resource
141			page-link
142			link-to-resource
143			form-input
144			form-template
145			@Name: sw--this-uri
146			@Description:
147			@@@: "This WikiPage" URI reference (experimetnal)
148			@@lang:en
149			@Formatting:
150			require Encode;
151			require URI;
152			my $page = Encode::encode
153			('utf8', Encode::decode
154			('euc-jp', $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki})));
155			$page =~ s#([^A-Za-z0-9._~-])#sprintf '%%%02X', ord $1#ge;
156			$page =~ s#%2F%2F#/#g;
157			if ($page =~ m#%2F#) {
158			$page = $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki});
159			$page =~ s#([^A-Za-z0-9._~-])#sprintf '%%%02X', ord $1#ge;
160			$p->{-parent}->append_text (q<http://suika.fam.cx/~wakaba/-temp/wiki/wiki?>.$page);
161			} else {
162			$p->{-parent}->append_text (URI->new (q<http://suika.fam.cx/gate/2005/sw/>.$page));
163			}
164
165	wakaba	1.9	ViewFragment:
166			@Name: ws--post-content
167			@Description:
168			@@@: After content body -- URI
169			@@lang:en
170			@Order: 700
171			@Formatting:
172			%block (
173			class => myuri,
174			content => {
175			%res (name => {WikiPage:ThisURI=});
176	wakaba	1.11	%link-to-resource (
177			label => {<%link-to-it (label => {%sw--this-uri;}p);>},
178			uri => {%sw--this-uri;}p,
179	wakaba	1.9	);
180			}p,
181			);
182	wakaba	1.6
183			ViewFragment:
184	wakaba	1.1	@Name: ws--footer
185			@Formatting:
186			%link-to-wikipage (
187			page => {Wiki//Page//License},
188			label => {%link-to-it (
189			label => {%res (name => {Footer:License:SeeLicensePage});}p,
190			description => {%res (name => {Footer:License:SeeLicensePageLong});}p,
191			);},
192			);
193
194			ViewFragment:
195			@Template[list]:
196			we--edit-body
197			we--conflict-body
198			@Order: 1000
199			@Description:
200			@@@: WikiPage editing guide
201			@@lang:en
202			@Formatting:
203			%block (
204			id => edit-help,
205	wakaba	1.10	content => {%read(page=>{Wiki//EditHelp});}p,
206	wakaba	1.1	);
207	wakaba	1.3
208			FormattingRuleAlias:
209			@Category[list]:
210			view
211			view-resource
212			form-input
213			@Name: search-result
214			@Reference:
215			@@Category: view
216			@@Name: namazu-search
217	wakaba	1.1
218	wakaba	1.4	FormattingRuleAlias:
219			@Category[list]:
220			form-template
221			@Name: name
222			@Reference:
223			@@Category: form-template
224			@@Name: bbs--2ch-name
225	wakaba	1.1
226			ViewFragment:
227			@Name: we--edit
228			@Order: -100
229			@Formatting:
230			%line(content=>{
231			%submit(accesskey=>S,label=>{%res(name=>{Edit:Save});}p);
232			[%wpp--next-anchor-index;]
233			}p);
234
235			ViewFragment:
236			@Name: we--edit
237			@Order: -10
238			@Formatting: %line(content=>{
239			ViewFragment:
240			@Name: we--edit
241			@Order: 10
242			@Formatting: }p);
243
244			ViewFragment:
245			@Name: we--edit
246			@Order: 150
247			@Formatting:
248			%line(content=>{
249
250			ViewFragment:
251			@Name: we--edit
252			@Order: 250
253			@Formatting:
254			%mode-after-edit-selection (
255			description => {%res (name => {Edit:SaveAnd:Description});}p,
256			);
257	wakaba	1.4
258			%check (id => we--touch,
259			label => {%res (name => {Edit:UpdateTimeStamp});}p,
260			description => {%res (name => {Edit:UpdateTimeStamp:Description});}p,
261			default);
262	wakaba	1.1	}p);
263
264	wakaba	1.6	ViewFragment:
265			@Name: we--edit
266			@Order: 1250
267			@Description:
268			@@lang:en
269			@@@: License Information that should be read just before submitting.
270			@Formatting:
271			%res (name => {Edit:License:Descriptions});
272
273	wakaba	1.1	Resource:
274	wakaba	1.6	@Edit:License:Descriptions:
275			@@lang:en
276			@@@:
277			%paragraph (content => {
278			Note: Submitting any changes means you understand and accept
279			license terms written in (or referred from)
280			%link-to-wikipage (page => {Wiki//Page//License},
281			label => {%link-to-it (label => {Wiki//Page//License});});.
282			}p);
283			%paragraph (content => {
284			WARNING: Don't submit copyrighted work without permission.
285			If you are not sure whether it is allowed or not, don't submit.
286			});
287			%paragraph (content => {
288			You MUST add license information to the License section
289			just after submission (%link-to-wikipage (mode => pe--propedit,
290			label => {%link-to-it (label => {Edit License Information});});)
291			if your submission is copy of copyrighted work (and if you can
292			publish it).
293			}p);
294	wakaba	1.4	@Edit:UpdateTimeStamp:
295			@@@: Update timestamp
296			@@lang: en
297			@Edit:UpdateTimeStamp:Description:
298			@@@: Update Last-Modified date-time to "now"
299			@@lang: en
300	wakaba	1.1	@Footer:License:SeeLicensePage:
301			@@@: %char (ucs => {U+00A9});
302			@Footer:License:SeeLicensePageLong:
303			@@@: See license document
304			@@lang:en
305			@GoToCreatePage:
306			@@@: Create
307			@@lang: en
308			@GoToCreatePageLong:
309			@@@: Create a new WikiPage
310			@@lang: en
311	wakaba	1.10	@GoToMyselfLink:
312			@@@: This WikiPage
313			@@lang:en
314	wakaba	1.1	@GoToSearchPage:
315			@@@: Search
316			@@lang: en
317			@GoToSearchPageLink:
318			@@@: Search in this wiki
319			@@lang: en
320			@GoToSearchPageLong:
321			@@@: Search word in this wiki
322			@@lang: en
323			@GoToWikiHelpLink:
324			@@@: Help page
325			@@lang: en
326			@GoToWikiPageLicenseLink:
327	wakaba	1.4	@@@: License for contents of this wiki
328	wakaba	1.1	@@lang: en
329			@GoToWikiNewsLink:
330			@@@: News on this wiki
331			@@lang: en
332			@JumpToLink:
333			@@@: Open a WikiPage...
334			@@lang: en
335			@JumpToEditLink:
336			@@@: Open a WikiPage in editing mode...
337			@@lang: en
338	wakaba	1.6	@Section:License:AfterDescriptions:
339			@Section:License:BeforeDescriptions:
340			@@lang:en
341			@@@:
342			%paragraph (content => {
343			%char (ucs => {U+00A9}); Authors, et al. %last-modified;
344			}p);
345			%paragraph (content => {
346			For more information about copyright and other rights, see
347			%link-to-wikipage (page => {Wiki//Page//License},
348			label => {%link-to-it (label => {Wiki//Page//License});});.
349			}p);
350			@Section:License:Title:
351			@@lang:en
352			@@@: License
353	wakaba	1.4	@StyleSet:Name:SuikaWiki:
354			@@@: SuikaWiki
355			@@lang: ja
356	wakaba	1.1	@WikiForm:Create:Name:
357			@@@: WikiName
358			@@lang: en
359			@WikiForm:Search:Name:
360			@@@: Keyword
361			@@lang: en
362	wakaba	1.8	@WikiPage:Obsolete:DescBefore:
363			@@@:
364			This WikiPage is obsolete in favor of
365			@@lang:en
366			@WikiPage:Obsolete:DescAfter:
367			@@@: .
368	wakaba	1.9	@@lang:en
369			@WikiPage:ThisURI=:
370			@@@:
371			This WikiPage:
372	wakaba	1.8	@@lang:en
373
374	wakaba	1.1
375
376
377
378
379