/[pub]/suikawiki/script/misc/plugins/link/map.wp2
Suika

Diff of /suikawiki/script/misc/plugins/link/map.wp2

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

revision 1.12 by wakaba, Thu Apr 1 04:39:58 2004 UTC revision 1.13 by wakaba, Sun Jul 25 06:54:29 2004 UTC
# Line 23  Plugin: Line 23  Plugin:
23      use Message::Util::Error;      use Message::Util::Error;
24      my $WIKILINKING;      my $WIKILINKING;
25      my $WIKIRESOURCE;      my $WIKIRESOURCE;
26      @Namespace:
27        @@relrev:
28          http://suika.fam.cx/~wakaba/archive/2004/7/25/html-relrev#
29    
30  PluginConst:  PluginConst:
31    @NS_XHTML1:    @NS_XHTML1:
# Line 41  PluginConst: Line 44  PluginConst:
44      {($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))}      {($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))}
45    
46  FormattingRule:  FormattingRule:
47      @Category[list]: view
48      @Name: m--html-link-navigation
49      @Description:
50        @@@: Navigation links (HTML link elements) made from content properties
51        @@lang: en
52      @Parameter:
53        @@Name: page
54        @@Type: WikiName
55        @@Default: (current)
56        @@Description:
57          @@@lang: en
58          @@@@: Target WikiPage
59      @Formatting:
60          my $page = $o->{wiki}->name ($p->{page} || $o->{wiki}->{var}->{page});
61          my $content_prop;
62          try {
63            $content_prop = $o->{wiki}->{db}->get (content_prop => $page);
64          } catch SuikaWiki::DB::Util::Error with {
65            my $err = shift;
66            $err->throw if $err->{-type} eq 'ERROR_REPORTED';
67          } catch SuikaWiki::Format::Definition::error with {
68            #
69          };
70    
71        if ($content_prop) {
72          for (
73            {uri => <Q:relrev:prev>, html => 'prev'},
74            {uri => <Q:relrev:next>, html => 'next'},
75            {uri => <Q:relrev:contents>, html => 'contents'},
76            {uri => <Q:relrev:index>, html => 'index'},
77            {uri => <Q:relrev:up>, html => 'up'},
78          ) {
79            if (my $val = $content_prop->get_attribute ($_->{uri})) {
80              __FUNCPACK{WikiLinking}__->to_wikipage_in_html (
81              {
82                label           => qq(%html-link (
83                                        description => {%res (name => {Map:LinkNav:$_->{html}:Description});: %page-name;: %page-headline;}p,
84                                      );\n),
85              } => {
86                base            => $page,
87                page_name_relative => $o->{wiki}->name ($val->value),
88              }, {
89                o               => $o,
90                parent          => $p->{-parent},
91                -rel            => $_->{html},
92              });
93            }
94          }
95        }
96    
97    FormattingRule:
98    @Category[list]:    @Category[list]:
99      form-input      form-input
100      view      view
# Line 314  ViewFragment: Line 368  ViewFragment:
368  ViewFragment:  ViewFragment:
369    @Name: links    @Name: links
370    @Formatting:    @Formatting:
371        %m--html-link-navigation;
372    
373      %link-to-wikipage (      %link-to-wikipage (
374        page => {%ns--root-wikiname;}p,        page => {%ns--root-wikiname;}p,
375        rel => news,        rel => news,
# Line 387  Resource: Line 443  Resource:
443    @Map:Change:WebPageTitle:    @Map:Change:WebPageTitle:
444      @@@: Recent Changes (%page-name;)      @@@: Recent Changes (%page-name;)
445      @@lang: en      @@lang: en
446      @Map:LinkNav:prev:Description:
447        @@lang: en
448        @@@: Previous WikiPage
449      @Map:LinkNav:next:Description:
450        @@lang: en
451        @@@: Next WikiPage
452      @Map:LinkNav:contents:Description:
453        @@lang: en
454        @@@: Table of Contents
455      @Map:LinkNav:index:Description:
456        @@lang: en
457        @@@: Index
458      @Map:LinkNav:up:Description:
459        @@lang: en
460        @@@: Up
461    
462    
463        
464    
465    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24