/[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.10 by wakaba, Thu Dec 2 23:04:21 2004 UTC revision 1.11 by wakaba, Tue May 4 00:53:07 2010 UTC
# Line 50  ViewFragment: Line 50  ViewFragment:
50      %link-wiki(page=>"Wiki//Page//Search",rel=>search,      %link-wiki(page=>"Wiki//Page//Search",rel=>search,
51                 description=>"%res(name=>GoToSearchPageLink);"p);                 description=>"%res(name=>GoToSearchPageLink);"p);
52    
53      %link-wiki (      %link-to-resource (
54          uri => {%sw--this-uri;}p,
55        rel => bookmark,        rel => bookmark,
56        description => {%res (name => GoToMyselfLink);}p,        label => {%html-link (
57            description => {%res (name => GoToMyselfLink);}p,
58          );},
59      );      );
60    
61      %link-to-resource (      %link-to-resource (
# Line 131  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 142  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      );      );
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24