SuikaWiki/Plugin/WikiRead.wp2

#?SuikaWikiConfig/2.0

Plugin:
  @Name: WikiRead
  @Description:
    @@@: Showing WikiPage content
    @@lang:en
  @License: %%GPL%%
  @Author:
    @@Name:
      @@@@: Wakaba
      @@@lang:ja
      @@@script:Latn
    @@Mail[list]: w@suika.fam.cx
  @Date.RCS: $Date: 2004/01/16 07:48:11 $
  @RequiredModule[list]:
    SuikaWiki::Format::Definition
  @RequiredPlugin[list]:
    WikiFormat
    WikiView
    WikiStruct
    WikiLinking
    HTML
    SuikaWiki09
  @Use:
    require SuikaWiki::Format::Definition;
    use Message::Util::Error;

ViewDefinition:
  @Mode: read
  @Condition:
    @@http-method[list]:
      GET
      HEAD
  @Description:
    @@@: Show WikiPage content as whole
    @@lang: en
  @template:
    @@http-status-code: 200
    @@media-type: text/html
    @@use-media-type-charset: 1
    @@expires: %%view%%
    @@body:
        %html-document (
          title => {%res (name => {View:WebPageTitle});}p,
          link-meta => {%template (name => links);}p,
          content => {
            %template (
              name => ws--page,
              -content => {
                %block (
                  class => "bodytext",
                  content => {%template (name => wr--read-body);}p,
                );
              },
            );
          }p,
        );

ViewFragment:
  @Template[list]:wr--read-body
  @Order: 0
  @Description:
    @@@: "Read" mode body -- WikiPage main content
    @@lang:en
  @Formatting:
    %read (comment);

PluginConst:
  @NS_XHTML1:
    http://www.w3.org/1999/xhtml

FormattingRule:
  @Category[list]: view
  @Name: read
  @Description:
    @@@:
      Show the WikiPage to be "read"
    @@lang: en
  @Parameter:
    @@Name: page
    @@Type: WikiName
    @@Default: (current)
    @@Description:
      @@@@: WikiPage shown
      @@@lang:en
  @Parameter:
    @@Name: comment
    @@Type: boolean
    @@Default: {0}
    @@Description:
      @@@@: Append comment form
      @@@lang:en
  @Formatting:
    __ATTRTEXT:%page__;__ATTRTEXT:%comment__;
## TODO: pagename
    my $page = $p->{page} ? 
               [split $o->{wiki}->{config}->{name}->{space}->{separator_reg},
                               $p->{page}] :
                             $o->{wiki}->{var}->{page};
    my $content;
    try {
      $content = $o->{wiki}->{db}->get (content => $page);
    } catch SuikaWiki::DB::Util::Error with {
      $content = undef;
    };
    
    my $format = SuikaWiki::Plugin->module_package ('WikiFormat')
                                  ->handler (\$content,
                                             o => $o, wiki => $o->{wiki});
    $format->convert (\$content, Type => 'text/html',
                      IsFragment => 1, -parent => $p->{-parent},
                      o => $o, page => $page,
                      -with_annotation_input => $p->{comment});

ViewFragment:
  @Name: links
  @Description:
    @@@: Link to read mode of the WikiPage
    @@lang:en
  @Formatting:
    %link-wiki(mode=>read,rel=>view,class=>wiki-cmd,
               description=>{%res(name=>{Link:View:Description});}p,up-to-date); 

ViewFragment:
  @Name: navbar
  @Description:
    @@@: Link to read mode of the WikiPage
  @Order: 0
  @Formatting:
    %link-to-wikipage (
      rel => view,
      mode => read,
      up-to-date,
      label => {%link-to-it (
        class => wiki-cmd,
        label => {%res(name=>ViewThisPage);}p,
        description => {%res(name=>ViewThisPageLong);}p,
      );},
    ); 

Resource:
  @Link:View:Description:
    @@@: Show this WikiPage in reading mode
    @@lang:en
  @ViewThisPage:
    @@@: View
    @@lang:en
  @ViewThisPageLong:
    @@@: Show latest version of this WikiPage
    @@lang:en
  @View:WebPageTitle:
    @@@: %page-name;
    @@lang:en


1	#?SuikaWikiConfig/2.0
2
3	Plugin:
4	@Name: WikiRead
5	@Description:
6	@@@: Showing WikiPage content
7	@@lang:en
8	@License: %%GPL%%
9	@Author:
10	@@Name:
11	@@@@: Wakaba
12	@@@lang:ja
13	@@@script:Latn
14	@@Mail[list]: w@suika.fam.cx
15	@Date.RCS: $Date: 2004/01/16 07:48:11 $
16	@RequiredModule[list]:
17	SuikaWiki::Format::Definition
18	@RequiredPlugin[list]:
19	WikiFormat
20	WikiView
21	WikiStruct
22	WikiLinking
23	HTML
24	SuikaWiki09
25	@Use:
26	require SuikaWiki::Format::Definition;
27	use Message::Util::Error;
28
29	ViewDefinition:
30	@Mode: read
31	@Condition:
32	@@http-method[list]:
33	GET
34	HEAD
35	@Description:
36	@@@: Show WikiPage content as whole
37	@@lang: en
38	@template:
39	@@http-status-code: 200
40	@@media-type: text/html
41	@@use-media-type-charset: 1
42	@@expires: %%view%%
43	@@body:
44	%html-document (
45	title => {%res (name => {View:WebPageTitle});}p,
46	link-meta => {%template (name => links);}p,
47	content => {
48	%template (
49	name => ws--page,
50	-content => {
51	%block (
52	class => "bodytext",
53	content => {%template (name => wr--read-body);}p,
54	);
55	},
56	);
57	}p,
58	);
59
60	ViewFragment:
61	@Template[list]:wr--read-body
62	@Order: 0
63	@Description:
64	@@@: "Read" mode body -- WikiPage main content
65	@@lang:en
66	@Formatting:
67	%read (comment);
68
69	PluginConst:
70	@NS_XHTML1:
71	http://www.w3.org/1999/xhtml
72
73	FormattingRule:
74	@Category[list]: view
75	@Name: read
76	@Description:
77	@@@:
78	Show the WikiPage to be "read"
79	@@lang: en
80	@Parameter:
81	@@Name: page
82	@@Type: WikiName
83	@@Default: (current)
84	@@Description:
85	@@@@: WikiPage shown
86	@@@lang:en
87	@Parameter:
88	@@Name: comment
89	@@Type: boolean
90	@@Default: {0}
91	@@Description:
92	@@@@: Append comment form
93	@@@lang:en
94	@Formatting:
95	__ATTRTEXT:%page__;__ATTRTEXT:%comment__;
96	## TODO: pagename
97	my $page = $p->{page} ?
98	[split $o->{wiki}->{config}->{name}->{space}->{separator_reg},
99	$p->{page}] :
100	$o->{wiki}->{var}->{page};
101	my $content;
102	try {
103	$content = $o->{wiki}->{db}->get (content => $page);
104	} catch SuikaWiki::DB::Util::Error with {
105	$content = undef;
106	};
107
108	my $format = SuikaWiki::Plugin->module_package ('WikiFormat')
109	->handler (\$content,
110	o => $o, wiki => $o->{wiki});
111	$format->convert (\$content, Type => 'text/html',
112	IsFragment => 1, -parent => $p->{-parent},
113	o => $o, page => $page,
114	-with_annotation_input => $p->{comment});
115
116	ViewFragment:
117	@Name: links
118	@Description:
119	@@@: Link to read mode of the WikiPage
120	@@lang:en
121	@Formatting:
122	%link-wiki(mode=>read,rel=>view,class=>wiki-cmd,
123	description=>{%res(name=>{Link:View:Description});}p,up-to-date);
124
125	ViewFragment:
126	@Name: navbar
127	@Description:
128	@@@: Link to read mode of the WikiPage
129	@Order: 0
130	@Formatting:
131	%link-to-wikipage (
132	rel => view,
133	mode => read,
134	up-to-date,
135	label => {%link-to-it (
136	class => wiki-cmd,
137	label => {%res(name=>ViewThisPage);}p,
138	description => {%res(name=>ViewThisPageLong);}p,
139	);},
140	);
141
142	Resource:
143	@Link:View:Description:
144	@@@: Show this WikiPage in reading mode
145	@@lang:en
146	@ViewThisPage:
147	@@@: View
148	@@lang:en
149	@ViewThisPageLong:
150	@@@: Show latest version of this WikiPage
151	@@lang:en
152	@View:WebPageTitle:
153	@@@: %page-name;
154	@@lang:en
155
156