#?SuikaWikiConfig/2.0 Plugin: @Name: Map @Description: @@@: Visualization of page to page relatinships @@lang:en @License: %%Perl%% @Author: @@Name: @@@@: Wakaba @@@lang:ja @@@script:Latn @@Mail[list]: w@suika.fam.cx @Date.RCS: $Date: 2004/03/11 10:13:07 $ @RequiredPlugin[list]: WikiLinking @Use: use Message::Util::Error; my $WIKILINKING; my $WIKIRESOURCE; PluginConst: @NS_XHTML1: http://www.w3.org/1999/xhtml @NS_RDF: http://www.w3.org/1999/02/22-rdf-syntax-ns# @NS_RSS: http://purl.org/rss/1.0/ @NS_DC: http://purl.org/dc/elements/1.1/ @NS_MAP: http://members.jcom.home.ne.jp/jintrick/2003/02/site-concept.xml# @WIKILINKING: {($WIKILINKING ||= SuikaWiki::Plugin->module_package ('WikiLinking'))} @WIKIRESOURCE: {($WIKIRESOURCE ||= SuikaWiki::Plugin->module_package ('WikiResource'))} FormattingRule: @Category[list]: form-input view view-resource @Name: recent-change-list @Description: @@@: Recently changed WikiPage list @@lang: en @Parameter: @@Name: ns @@Type: WikiName @@Default: (auto) @@Description: @@@@: WikiNamespace name to which listed WikiPages belong @@@lang: en @Formatting: my $list = $p->{-parent}->append_new_node (type => '#element', namespace_uri => $NS_XHTML1, local_name => 'ol'); $list->set_attribute (class => 'm--recent-changes'); __ATTRTEXT:%ns__;__ATTRTEXT:%recursive__; __ATTRTEXT:%n__; $p->{recursive} = 1 unless length $p->{recursive}; my $ns = $o->{wiki}->name ($p->{ns}); #$ns->append_component ('') unless $ns->[$#$ns] eq ''; my $i = 0; $p->{n} ||= 10; __ATTRTEXT:%template__; $p->{template} ||= $WIKIRESOURCE->get (name => 'Link:toWikiPage:SourceLabelLong:RecentChangeItem', wiki => $o->{wiki}, o => $o); __ATTRTEXT:%mode__; for (sort {$b->[1] <=> $a->[1]} map { try { [$_, $o->{wiki}->{db}->get (lastmodified => $_)] } catch SuikaWiki::DB::Util::Error with { my $err = shift; $err->throw if $err->{-type} eq 'ERROR_REPORTED'; [$_, undef]} } $o->{wiki}->{db}->keys ('content', -ns => $ns, -type => 'key', -recursive => $p->{recursive})) { next unless $_->[0]; last if $i++ == $p->{n}; $WIKILINKING->to_wikipage_in_html ({ label => $p->{template}, } => { base => $o->{wiki}->{var}->{page}, page_name_relative => $o->{wiki}->name ($_->[0]), wiki_mode => $p->{mode}, _with_lm => 1, page_lastmodified => $_->[1], }, { o => $o, parent => $list->append_new_node (type => '#element', namespace_uri => $NS_XHTML1, local_name => 'li'), }); } FormattingRule: @Category[list]: form-input view view-resource @Name: page-list @Description: @@@: WikiPage list @@lang: en @Parameter: @@Name: ns @@Type: WikiName @@Default: (auto) @@Description: @@@@: WikiNamespace name to which listed WikiPages belong @@@lang: en @Formatting: my $list = $p->{-parent}->append_new_node (type => '#element', namespace_uri => $NS_XHTML1, local_name => 'ul'); __ATTRTEXT:%ns__;__ATTRTEXT:%recursive__; __ATTRTEXT:%n__; $p->{recursive} = 1 unless length $p->{recursive}; my $ns = $o->{wiki}->name ($p->{ns}); #$ns->append_component ('') unless $ns->[$#$ns] eq ''; my $i = 0; $p->{n} ||= -1; __ATTRTEXT:%template__; $p->{template} ||= $WIKIRESOURCE->get (name => 'Link:toWikiPage:SourceLabelLong:PageList', wiki => $o->{wiki}, o => $o); __ATTRTEXT:%match__; ## WARNING: This parameter might be dangerous! my $reg = $p->{match} ? qr/$p->{match}/ : qr/./; __ATTRTEXT:%mode__; try { for (sort {$a->[1] cmp $b->[1]} grep {$_->[1] =~ /$reg/} map {[$_, join '//', @{$_}]} # make sort key $o->{wiki}->{db}->keys ('content', -ns => $ns, -type => 'key', -recursive => $p->{recursive})) { last if $i++ == $p->{n}; $WIKILINKING->to_wikipage_in_html ({ label => $p->{template}, } => { base => $o->{wiki}->{var}->{page}, page_name_relative => $o->{wiki}->name ($_->[0]), wiki_mode => $p->{mode}, }, { o => $o, parent => $list->append_new_node (type => '#element', namespace_uri => $NS_XHTML1, local_name => 'li'), }); } } catch SuikaWiki::DB::Util::Error with { my $err = shift; $err->throw if $err->{-type} eq 'ERROR_REPORTED'; }; $p->{-parent}->remove_child_node ($list) unless $list->count; FormattingRule: @Category[list]: form-input view view-resource @Name: search-result @Formatting: __ATTRTEXT:%key__; $p->{key} ||= $o->{wiki}->{var}->{page}->stringify (wiki => $o->{wiki}); __ATTRTEXT:%case_sensible__; my $word = $p->{case_sensible} ? $p->{key} : lc $p->{key}; my @r; my $sr = $o->{wiki}->{db}->get (m__search_result => [$word]); unless ($sr) { for my $page ($o->{wiki}->{db}->keys ('content')) { my $content; try { $content = $o->{wiki}->{db}->get (content => $page); } catch SuikaWiki::DB::Util::Error with { my $err = shift; $err->throw if $err->{-type} eq 'ERROR_REPORTED'; $content = undef; }; $content = $p->{case_sensitive} ? $content : lc $content; $content =~ s/^[^\x0A\x0D]+[\x0D\x0A]+//s; $page = $o->{wiki}->name ($page); my $n_page = $page->stringify (wiki => $o->{wiki}); $n_page = lc $n_page unless $p->{case_sensible}; if (index ($n_page, $word) > -1) { my $c = $content =~ s/\Q$word\E//g; push @r, [$page, $c+20]; } elsif (index ($word, $n_page) > -1) { my $c = $content =~ s/\Q$word\E//g; push @r, [$page, $c+10]; } elsif (my $c = $content =~ s/\Q$word\E//g) { push @r, [$page, $c]; } } @r = sort {$b->[1] <=> $a->[1] || $a->[0] cmp $b->[0]} @r; $sr = join "\x1E", map {$_->[0]->stringify (wiki => $o->{wiki}, delimiter => "\x1D") ."\x1F".$_->[1]} @r; $o->{wiki}->{db}->set (m__search_result => [$word] => $sr); ## TODO: Cache & case-sensitivility } else { @r = map {[$o->{wiki}->name ($_->[0], delimiter_reg => qr/\x1D/), $_->[1]]} map {[split /\x1F/, $_, 2]} split /\x1E/, $sr; } return unless @r; my $list = $p->{-parent}->append_new_node (type => '#element', namespace_uri => $NS_XHTML1, local_name => 'ol'); __ATTRTEXT:%template__; $p->{template} ||= $WIKIRESOURCE->get (name => 'Link:toWikiPage:SourceLabelLong:SearchResult', wiki => $o->{wiki}, o => $o); for (@r) { $WIKILINKING->to_wikipage_in_html ({ label => $p->{template}, } => { base => $o->{wiki}->{var}->{page}, page_name_relative => $_->[0], wiki_mode => $p->{mode}, }, { o => $o, parent => $list->append_new_node (type => '#element', namespace_uri => $NS_XHTML1, local_name => 'li'), -m__weight => $_->[1], }); } FormattingRule: @Category[list]: page-link @Name: m--link-weight @Formatting: $p->{-parent}->append_text ($o->{link}->{option}->{-m__weight}+0); ViewFragment: @Name: ws--post-content @Description: @@@: After content body -- children and backward links @@lang:en @Order: 100 @Formatting: %section ( id => children, title => {%res(name=>{Children:Title});}p, heading, content => {%page-list ( ns => {%page-name;}p, recursive => 0, type => both, template => {%resource-as-plain-text (name => {Children:Item});}p, );}p, ); %section ( id => see-also, title => {%res(name=>SeeAlso);}p, heading, content => {%search-result;}p, ); Resource: @Children:Title: %link-to-it(label=>{%ns-short-page-name;}p, description=>{%page-name(absolute);}p, ); %span(class=>headline, content=>{%page-headline;}p); @Link:toWikiPage:SourceLabelLong:PageList: %link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p); @Link:toWikiPage:SourceLabelLong:RecentChangeItem: %last-modified; %link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p); @Link:toWikiPage:SourceLabelLong:SearchResult: {%m--link-weight;} %link-to-it( label=>{%page-title(relative);}p, description=>{%page-name(absolute);}p, ); %span(class=>headline,content=>{%page-headline;}p); ## TODO: ViewFragment: @Name: navbar @Order: 21 @Formatting: %link-to-wikipage ( page => {RecentChanges}, label => {%link-to-it ( label=>"%res(name=>GoToRecentChanges);"p, description=>"%res(name=>GoToRecentChangesLong);"p, );}, rel => news, ); ## TODO: ViewFragment: @Name: links @Formatting: %link-to-wikipage ( page => {RecentChanges}, rel => news, label => {%html-link ( description => {%res(name=>GoToRecentChangesLink);}p, );}, );