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

Contents of /suikawiki/script/misc/plugins/link/namazu.wp2

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (hide annotations) (download)
Sat Mar 20 04:08:11 2004 UTC (21 years, 3 months ago) by wakaba
Branch: MAIN
Changes since 1.2: +5 -2 lines
(FormattingRule[search--namazu]): Give both absolute and (possibily) relative URIs to WikiLinking function

1 wakaba 1.1 #?SuikaWikiConfig/2.0
2    
3     Plugin:
4     @Name: Namazu
5     @Description:
6     @@@:
7     Namazu interface
8     @@lang:en
9     @License: %%Perl%%
10     @Author:
11     @@Name:
12     @@@@: Wakaba
13     @@@lang:ja
14     @@@script:Latn
15     @@Mail[list]: w@suika.fam.cx
16     @Date.RCS:
17 wakaba 1.3 $Date: 2004/03/19 11:24:47 $
18 wakaba 1.1 @RequiredModule[list]:
19     Search::Namazu
20     @RequiredPlugin[list]:
21     WikiLinking
22     @Use:
23     use Search::Namazu;
24     use Message::Util::Error;
25     my $WIKILINKING;
26     my $WIKIRESOURCE;
27    
28     PluginConst:
29     @NS_XHTML1:
30     http://www.w3.org/1999/xhtml
31     @WIKILINKING:
32     {($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))}
33     @WIKIRESOURCE:
34     {($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))}
35    
36     FormattingRule:
37     @Category[list]:
38     view
39     view-resource
40     form-input
41     @Name: namazu-search
42     @Formatting:
43     __ATTRTEXT:%query__;
44     $p->{query} ||= ($o->{wiki}->{input} ?
45     $o->{wiki}->{input}->parameter ('search__query') : undef)
46     || $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki});
47     my $list = $p->{-parent}->append_new_node
48     (type => '#element',
49     namespace_uri => $NS_XHTML1,
50     local_name => 'ol');
51     my $template = $p->{template} ||
52     $WIKIRESOURCE->get_text
53     (name => 'Namazu:Result:Item:Template',
54     o => $o, wiki => $o->{wiki});
55     my @result = Search::Namazu::Search
56     (index => $o->{wiki}->{config}->{path_to}->{namazu__index_dir},
57     query => $p->{query},
58     sortMethod => NMZ_SORTBYSCORE,
59 wakaba 1.2 sortOrder => NMZ_ASCENDSORT,
60     lang => 'ja');
61 wakaba 1.1 __ATTRTEXT:%start__;__ATTRTEXT:%number__;
62     my $start = length $p->{start} ? $p->{start} :
63     $o->{wiki}->{input}->parameter ('search--range-start') || 0;
64     $p->{number} = $o->{wiki}->{input}->parameter ('search--range-number')
65     unless length $p->{number};
66     my $end = $p->{number} ? $start + $p->{number} - 1 : $start + 29;
67     $start = 0 if $start > $#result or $start < 0;
68     $end = $#result if $end < $start or $end > $#result;
69     $end = $start + 255 if $end > $start + 255;
70     local $o->{var}->{search__result} = {
71     min => 0,
72     max => $#result,
73     start => $start,
74     end => $end,
75     number => $p->{number} || 30,
76     query => $p->{query},
77     };
78     for my $result (@result[$start..$end]) {
79     next unless $result;
80 wakaba 1.3 my ($reluri, $absuri) = $o->{wiki}->{config}->{nmz__uri_to_uri}
81     ->($result->uri, o => $o);
82 wakaba 1.1 $WIKILINKING->to_resource_by_uri_in_html ({
83     label => $template,
84     } => {
85 wakaba 1.3 uri => $reluri,
86     absolute_uri => $absuri,
87 wakaba 1.1 nmz__result => $result,
88     }, {
89     o => $o,
90     parent => $list->append_new_node
91     (type => '#element',
92     namespace_uri => $NS_XHTML1,
93     local_name => 'li'),
94     nmz__query => $p->{query},
95     });
96     }
97     if ($list->count) {
98     $list->set_attribute (start => $start + 1);
99     __ATTRNODE:%post_list->{$p->{-parent}}__;
100     } else {
101     $p->{-parent}->remove_child_node ($list);
102     }
103    
104     FormattingRule:
105     @Category[list]:
106     link-to-resource
107     @Name: nmz--rank
108     @Formatting:
109     $p->{-parent}->append_text ($o->{link}->{dest}->{nmz__result}->rank + 0);
110    
111     FormattingRule:
112     @Category[list]:
113     link-to-resource
114     @Name: nmz--score
115     @Formatting:
116     $p->{-parent}->append_text ($o->{link}->{dest}->{nmz__result}->score + 0);
117    
118     FormattingRule:
119     @Category[list]:
120     link-to-resource
121     @Name: nmz--title
122     @Formatting:
123     $p->{-parent}->append_text ($o->{link}->{dest}->{nmz__result}->title);
124    
125     FormattingRule:
126     @Category[list]:
127     link-to-resource
128     @Name: nmz--uri
129     @Formatting:
130     $p->{-parent}->append_text ($o->{link}->{dest}->{nmz__result}->uri);
131    
132     FormattingRule:
133     @Category[list]:
134     link-to-resource
135     @Name: nmz--summary
136     @Formatting:
137     $p->{-parent}->append_text ($o->{link}->{dest}->{nmz__result}->summary);
138    
139     Resource:
140     @Namazu:Result:Item:Template:
141     %line (content => {
142     {%nmz--score;}
143     %link-to-it (
144     label => {%nmz--title;}p,
145     description => {%nmz--title; <%uri-reference;>}p,
146     );
147     }p);
148     %line (content => {%nmz--summary;}p);
149    
150    
151    
152    
153    
154    
155    

admin@suikawiki.org
ViewVC Help
Powered by ViewVC 1.1.24