/[pub]/suikawiki/wikidata/config.wp2
Suika

Diff of /suikawiki/wikidata/config.wp2

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9 by wakaba, Fri Oct 8 09:15:36 2004 UTC revision 1.11 by wakaba, Tue May 4 00:53:07 2010 UTC
# Line 51  ViewFragment: Line 51  ViewFragment:
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,
# Line 89  ViewFragment: Line 97  ViewFragment:
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?
# Line 117  ViewFragment: Line 134  ViewFragment:
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:
# Line 128  ViewFragment: Line 173  ViewFragment:
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      );      );
# Line 156  ViewFragment: Line 202  ViewFragment:
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:
# Line 262  Resource: Line 308  Resource:
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

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.11

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24