| 1 |
wakaba |
1.1 |
use strict; |
| 2 |
|
|
package SuikaWiki::Plugin::Registry; |
| 3 |
|
|
|
| 4 |
|
|
|
| 5 |
|
|
our %Info; |
| 6 |
|
|
$Info{q#Phrase#}->{Name} = q#Phrase#; |
| 7 |
hero |
1.1.2.1 |
$Info{q#Phrase#}->{q#Version#} = q#2005.0121.1410#; |
| 8 |
wakaba |
1.1 |
$Info{q#Phrase#}->{q#InterfaceVersion#} = q#2.9.1#; |
| 9 |
hero |
1.1.2.1 |
$Info{q#Phrase#}->{q#mkpluginVersion#} = q#2.1.21#; |
| 10 |
|
|
$Info{q#Phrase#}->{q#module_name#} = q#SuikaWiki::Plugin::plugin::Phrase1050021141040GVaC#; |
| 11 |
wakaba |
1.1 |
$Info{q#Phrase#}->{q#Date.RCS#} = q#$Date: 2004/02/14 10:53:13 $#; |
| 12 |
|
|
$Info{q#Phrase#}->{Description} = [[q#Phrasal element#, q#en#, q##]]; |
| 13 |
|
|
$Info{q#Phrase#}->{License} = [[q#%%GPL%%#, q##, q##]]; |
| 14 |
|
|
$Info{q#Phrase#}->{Author} = [[[[q#Wakaba#, q#ja#, q#Latn#]], [[q#w@suika.fam.cx#]], [q##]]]; |
| 15 |
|
|
|
| 16 |
hero |
1.1.2.1 |
package SuikaWiki::Plugin::plugin::Phrase1050021141040GVaC; |
| 17 |
wakaba |
1.1 |
|
| 18 |
|
|
{my $def = {q#Parameter#, {}, q#Description#, [[q#Abbreviation#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; |
| 19 |
|
|
|
| 20 |
|
|
#line 1 "(WikiPlugin module source phrase.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#, q#page-link#, q#link-to-resource#]/abbr']/Formatting)" |
| 21 |
|
|
my $abbr = $p->{-parent}->append_new_node |
| 22 |
|
|
(type => '#element', |
| 23 |
|
|
namespace_uri => q#http://www.w3.org/1999/xhtml#, |
| 24 |
|
|
local_name => 'abbr'); |
| 25 |
|
|
$f->parse_attr ($p=>q#short#, $o, -parent => $abbr, -non_parsed_to_node => 1, %opt); |
| 26 |
|
|
$p->{q#long#} = do { my $r = $f->parse_attr ($p=>q#long#, $o, -non_parsed_to_node => 1, %opt); ref $r?$r->inner_text:$r}; |
| 27 |
|
|
$abbr->set_attribute (title => $p->{long}) if $p->{long};}} |
| 28 |
|
|
#line 1 "(WikiPlugin module Phrase, chunk 1)" |
| 29 |
|
|
; |
| 30 |
|
|
$SuikaWiki::Plugin::Rule{view}->{abbr} = $def; |
| 31 |
|
|
$SuikaWiki::Plugin::Rule{view_resource}->{abbr} = $def; |
| 32 |
|
|
$SuikaWiki::Plugin::Rule{form_input}->{abbr} = $def; |
| 33 |
|
|
$SuikaWiki::Plugin::Rule{page_link}->{abbr} = $def; |
| 34 |
|
|
$SuikaWiki::Plugin::Rule{link_to_resource}->{abbr} = $def; |
| 35 |
|
|
}; |
| 36 |
|
|
|
| 37 |
|
|
{my $def = {q#Parameter#, {}, q#Description#, [[q#Emphasis#, q#en#, q##]], q#main#, sub {my ($f, $rule_name, $p, $o, %opt) = @_; |
| 38 |
|
|
|
| 39 |
|
|
#line 1 "(WikiPlugin module source phrase.wp2, block FormattingRule[name()='[q#view#, q#view-resource#, q#form-input#, q#page-link#, q#link-to-resource#]/em']/Formatting)" |
| 40 |
|
|
my $em = $p->{-parent}->append_new_node |
| 41 |
|
|
(type => '#element', |
| 42 |
|
|
namespace_uri => q#http://www.w3.org/1999/xhtml#, |
| 43 |
|
|
local_name => 'em'); |
| 44 |
|
|
$f->parse_attr ($p=>q#content#, $o, -parent => $em, -non_parsed_to_node => 1, %opt);}} |
| 45 |
|
|
#line 1 "(WikiPlugin module Phrase, chunk 3)" |
| 46 |
|
|
; |
| 47 |
|
|
$SuikaWiki::Plugin::Rule{view}->{em} = $def; |
| 48 |
|
|
$SuikaWiki::Plugin::Rule{view_resource}->{em} = $def; |
| 49 |
|
|
$SuikaWiki::Plugin::Rule{form_input}->{em} = $def; |
| 50 |
|
|
$SuikaWiki::Plugin::Rule{page_link}->{em} = $def; |
| 51 |
|
|
$SuikaWiki::Plugin::Rule{link_to_resource}->{em} = $def; |
| 52 |
|
|
}; |
| 53 |
|
|
package SuikaWiki::Plugin::Registry; |
| 54 |
|
|
|
| 55 |
|
|
$Info{q#Phrase#}->{provide} = {q#rule#, {q#link_to_resource#, [q#abbr#, q#em#], q#form_input#, [q#abbr#, q#em#], q#view#, [q#abbr#, q#em#], q#view_resource#, [q#abbr#, q#em#], q#page_link#, [q#abbr#, q#em#]}}; |
| 56 |
|
|
|
| 57 |
|
|
1; |
Parent Directory
| 
Revision Log