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: 2003/12/01 07:40:32 $
  @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 = $o->{wiki}->{db}->get (content => $page);
    
    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);

        ## TODO: generic (format-independent) comment support

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	wakaba	1.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	wakaba	1.5	@Date.RCS: $Date: 2003/12/01 07:40:32 $
16	wakaba	1.2	@RequiredModule[list]:
17	wakaba	1.3	SuikaWiki::Format::Definition
18	wakaba	1.2	@RequiredPlugin[list]:
19	wakaba	1.5	WikiFormat
20	wakaba	1.2	WikiView
21			WikiStruct
22			WikiLinking
23			HTML
24			SuikaWiki09
25	wakaba	1.3	@Use:
26			require SuikaWiki::Format::Definition;
27	wakaba	1.5	# use Message::Util::Error;
28	wakaba	1.1
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	wakaba	1.2	title => {%res (name => {View:WebPageTitle});}p,
46			link-meta => {%template (name => links);}p,
47	wakaba	1.1	content => {
48			%template (
49			name => ws--page,
50			-content => {
51			%block (
52	wakaba	1.3	class => "bodytext",
53	wakaba	1.2	content => {%template (name => wr--read-body);}p,
54	wakaba	1.1	);
55			},
56			);
57			}p,
58			);
59
60	wakaba	1.2	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	wakaba	1.1	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	wakaba	1.3	__ATTRTEXT:%page__;__ATTRTEXT:%comment__;
96			## TODO: pagename
97	wakaba	1.5	my $page = $p->{page} ?
98			[split $o->{wiki}->{config}->{name}->{space}->{separator_reg},
99			$p->{page}] :
100			$o->{wiki}->{var}->{page};
101	wakaba	1.3	my $content = $o->{wiki}->{db}->get (content => $page);
102	wakaba	1.4
103	wakaba	1.5	my $format = SuikaWiki::Plugin->module_package ('WikiFormat')
104			->handler (\$content,
105			o => $o, wiki => $o->{wiki});
106			$format->convert (\$content, Type => 'text/html',
107	wakaba	1.4	IsFragment => 1, -parent => $p->{-parent},
108	wakaba	1.5	o => $o, page => $page);
109	wakaba	1.3
110	wakaba	1.1	## TODO: generic (format-independent) comment support
111
112			ViewFragment:
113			@Name: links
114			@Description:
115			@@@: Link to read mode of the WikiPage
116			@@lang:en
117			@Formatting:
118			%link-wiki(mode=>read,rel=>view,class=>wiki-cmd,
119	wakaba	1.4	description=>{%res(name=>{Link:View:Description});}p,up-to-date);
120	wakaba	1.1
121			ViewFragment:
122			@Name: navbar
123			@Description:
124			@@@: Link to read mode of the WikiPage
125			@Order: 0
126			@Formatting:
127	wakaba	1.3	%link-to-wikipage (
128			rel => view,
129			mode => read,
130			up-to-date,
131			label => {%link-to-it (
132			class => wiki-cmd,
133			label => {%res(name=>ViewThisPage);}p,
134			description => {%res(name=>ViewThisPageLong);}p,
135			);},
136			);
137	wakaba	1.1
138			Resource:
139			@Link:View:Description:
140			@@@: Show this WikiPage in reading mode
141			@@lang:en
142			@ViewThisPage:
143			@@@: View
144			@@lang:en
145			@ViewThisPageLong:
146			@@@: Show latest version of this WikiPage
147			@@lang:en
148			@View:WebPageTitle:
149			@@@: %page-name;
150			@@lang:en
151
152