51 |
description=>"%res(name=>GoToSearchPageLink);"p); |
description=>"%res(name=>GoToSearchPageLink);"p); |
52 |
|
|
53 |
%link-to-resource ( |
%link-to-resource ( |
54 |
|
uri => {%sw--this-uri;}p, |
55 |
|
rel => bookmark, |
56 |
|
label => {%html-link ( |
57 |
|
description => {%res (name => GoToMyselfLink);}p, |
58 |
|
);}, |
59 |
|
); |
60 |
|
|
61 |
|
%link-to-resource ( |
62 |
iw-name => {wiki-content-in-cvs-repository}, |
iw-name => {wiki-content-in-cvs-repository}, |
63 |
iw-parameter => {%page-name;}p, |
iw-parameter => {%page-name;}p, |
64 |
rel => history, |
rel => history, |
97 |
); |
); |
98 |
|
|
99 |
ViewFragment: |
ViewFragment: |
100 |
|
@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 |
@Name: ws--pre-content |
@Name: ws--pre-content |
110 |
@Description: |
@Description: |
111 |
@@@: Before content body -- is obsoleted? |
@@@: Before content body -- is obsoleted? |
134 |
}p, |
}p, |
135 |
); |
); |
136 |
|
|
137 |
|
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 |
ViewFragment: |
ViewFragment: |
166 |
@Name: ws--post-content |
@Name: ws--post-content |
167 |
@Description: |
@Description: |
173 |
class => myuri, |
class => myuri, |
174 |
content => { |
content => { |
175 |
%res (name => {WikiPage:ThisURI=}); |
%res (name => {WikiPage:ThisURI=}); |
176 |
%link-to-wikipage ( |
%link-to-resource ( |
177 |
label => {<%link-to-it (label => {%uri-reference;}p);>}, |
label => {<%link-to-it (label => {%sw--this-uri;}p);>}, |
178 |
|
uri => {%sw--this-uri;}p, |
179 |
); |
); |
180 |
}p, |
}p, |
181 |
); |
); |
202 |
@Formatting: |
@Formatting: |
203 |
%block ( |
%block ( |
204 |
id => edit-help, |
id => edit-help, |
205 |
content => {%read(page=>{Wiki//Edit//Help});}p, |
content => {%read(page=>{Wiki//EditHelp});}p, |
206 |
); |
); |
207 |
|
|
208 |
FormattingRuleAlias: |
FormattingRuleAlias: |
308 |
@GoToCreatePageLong: |
@GoToCreatePageLong: |
309 |
@@@: Create a new WikiPage |
@@@: Create a new WikiPage |
310 |
@@lang: en |
@@lang: en |
311 |
|
@GoToMyselfLink: |
312 |
|
@@@: This WikiPage |
313 |
|
@@lang:en |
314 |
@GoToSearchPage: |
@GoToSearchPage: |
315 |
@@@: Search |
@@@: Search |
316 |
@@lang: en |
@@lang: en |