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]: [email protected]
  @Date.RCS: $Date: 2003/10/25 06:37:08 $
  @RequiredModule[list]:
    SuikaWiki::SrcFormat
  @RequiredPlugin[list]:
    WikiView
    WikiStruct
    WikiLinking
    HTML
    SuikaWiki09

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:
        my $page = $p->{page} ? [split $o->{wiki}->{config}->{name}->{space}->{separator_reg}, $p->{page}] : $o->{wiki}->{var}->{page};
        my $content = SuikaWiki::SrcFormat->new ($o->{wiki}->{db}->get (content => $page));
        
        ## TODO: generic (format-independent) comment support
        $content->{content} .= qq(\n[[#comment]])
          if $p->{comment}
             &&
             (
               ($content->{type}->[0] eq 'SuikaWiki' && $content->{type}->[1] eq '0.9' && $content->{param}->{obsoleted} ne 'yes')
               ||
               (!$content->{type}->[0])
             )
           ;#  &&
            #  not $o->_database->meta (IsFrozen => $page);
        
        $r = $content->convert (to => ($p->{to} || 'HTML'), from_default => 'SuikaWiki/0.9', toc => $o->{toc}, page => join ($o->{wiki}->{config}->{name}->{space}->{separator}, $page), p => $p);

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

ViewFragment:
  @Name: navbar
  @Description:
    @@@: Link to read mode of the WikiPage
  @Order: 0
  @Formatting:
    %anchor-wiki(mode=>read,rel=>view,class=>wiki-cmd,
                 label=>{%res(name=>ViewThisPage);}p,
                 title=>{%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]: [email protected]
15	@Date.RCS: $Date: 2003/10/25 06:37:08 $
16	@RequiredModule[list]:
17	SuikaWiki::SrcFormat
18	@RequiredPlugin[list]:
19	WikiView
20	WikiStruct
21	WikiLinking
22	HTML
23	SuikaWiki09
24
25	ViewDefinition:
26	@Mode: read
27	@Condition:
28	@@http-method[list]:
29	GET
30	HEAD
31	@Description:
32	@@@: Show WikiPage content as whole
33	@@lang: en
34	@template:
35	@@http-status-code: 200
36	@@media-type: text/html
37	@@use-media-type-charset: 1
38	@@expires: %%view%%
39	@@body:
40	%html-document (
41	title => {%res (name => {View:WebPageTitle});}p,
42	link-meta => {%template (name => links);}p,
43	content => {
44	%template (
45	name => ws--page,
46	-content => {
47	%block (
48	class => 'bodytext',
49	content => {%template (name => wr--read-body);}p,
50	);
51	},
52	);
53	}p,
54	);
55
56	ViewFragment:
57	@Template[list]:wr--read-body
58	@Order: 0
59	@Description:
60	@@@: "Read" mode body -- WikiPage main content
61	@@lang:en
62	@Formatting:
63	%read (comment);
64
65	PluginConst:
66	@NS_XHTML1:
67	http://www.w3.org/1999/xhtml
68
69	FormattingRule:
70	@Category[list]: view
71	@Name: read
72	@Description:
73	@@@:
74	Show the WikiPage to be "read"
75	@@lang: en
76	@Parameter:
77	@@Name: page
78	@@Type: WikiName
79	@@Default: (current)
80	@@Description:
81	@@@@: WikiPage shown
82	@@@lang:en
83	@Parameter:
84	@@Name: comment
85	@@Type: boolean
86	@@Default: {0}
87	@@Description:
88	@@@@: Append comment form
89	@@@lang:en
90	@Formatting:
91	my $page = $p->{page} ? [split $o->{wiki}->{config}->{name}->{space}->{separator_reg}, $p->{page}] : $o->{wiki}->{var}->{page};
92	my $content = SuikaWiki::SrcFormat->new ($o->{wiki}->{db}->get (content => $page));
93
94	## TODO: generic (format-independent) comment support
95	$content->{content} .= qq(\n[[#comment]])
96	if $p->{comment}
97	&&
98	(
99	($content->{type}->[0] eq 'SuikaWiki' && $content->{type}->[1] eq '0.9' && $content->{param}->{obsoleted} ne 'yes')
100	\|\|
101	(!$content->{type}->[0])
102	)
103	;# &&
104	# not $o->_database->meta (IsFrozen => $page);
105
106	$r = $content->convert (to => ($p->{to} \|\| 'HTML'), from_default => 'SuikaWiki/0.9', toc => $o->{toc}, page => join ($o->{wiki}->{config}->{name}->{space}->{separator}, $page), p => $p);
107
108	ViewFragment:
109	@Name: links
110	@Description:
111	@@@: Link to read mode of the WikiPage
112	@@lang:en
113	@Formatting:
114	%link-wiki(mode=>read,rel=>view,class=>wiki-cmd,
115	title=>{%res(name=>{Link:View:Description});}p,up-to-date);
116
117	ViewFragment:
118	@Name: navbar
119	@Description:
120	@@@: Link to read mode of the WikiPage
121	@Order: 0
122	@Formatting:
123	%anchor-wiki(mode=>read,rel=>view,class=>wiki-cmd,
124	label=>{%res(name=>ViewThisPage);}p,
125	title=>{%res(name=>ViewThisPageLong);}p);
126
127	Resource:
128	@Link:View:Description:
129	@@@: Show this WikiPage in reading mode
130	@@lang:en
131	@ViewThisPage:
132	@@@: View
133	@@lang:en
134	@ViewThisPageLong:
135	@@@: Show latest version of this WikiPage
136	@@lang:en
137	@View:WebPageTitle:
138	@@@: %page-name;
139	@@lang:en
140
141