1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
I would love to see more traditional support for comments in ikiwiki. One
way would be to structure data on the discussion page in such a way that a
"comment" plugin could parse it and yet the discussion page would still be
a valid and usable wiki page.
For example if the discussion page looked like this:
# Subject of First Comment
Posted by [Adam Shand](http://adam.shand.net/) at 10:34PM on 14/04/2007
Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Morbi consectetuer nunc quis
magna. Etiam non est eget sapien vulputate varius. Vivamus magna. Sed justo. Donec
pellentesque ultrices urna.
# Subject of the Second Comment
Posted by [Foo Bar](http://foobar.net/) at 11:41PM on 14/04/2007
Quisque lacinia, lorem eget ornare facilisis, enim eros iaculis felis, id volutpat nibh
mauris ut felis. Vestibulum risus nibh, adipiscing volutpat, volutpat et, lacinia ut,
pede. Maecenas dolor. Vivamus feugiat volutpat ligula.
Each header marks the start of a new comment and the line immediately
following is the comments meta data (author, email/url, datestamp).
Hopefully you could structure it in such a way that the scope
This would allow:
* A comment plugin to render the comments in "traditional blog" format .
* Possibly even support nesting comments by the header level?
* A comment plugin to create a form at the bottom of the page for people to add comments in the appropriate format to the discussion page
* Still remain usable and readable by people who work via svn.
* When there is ACL support you could mark the discussion page as read only so it could only be updated by the comment plugin (if that's what you wanted)
Is this simple enough to be sensible?
-- [[AdamShand]]
> Well, if it's going to look like a blog, why not store the data the same
> way ikiwiki stores blogs, with a separate page per comment? As already
> suggested in [[discussion_page_as_blog]] though there are some things to
> be worked out also discussed there.
> --[[Joey]]
>> I certainly won't be fussy about how it gets implemented, I was just trying to think of the lightest weight most "wiki" solution. :-) -- Adam.
>>> As a side note, the feature described above (having a form not to add a page but to expand it in a formated way) would be useful for other things when the content is short (timetracking, sub-todo list items, etc..) --[[hb]]
I've been looking into this. I'd like to implement a "blogcomments"
plugin. Looking at the code, I think the way to go is to have a
formbuilder_setup hook that uses a different template instead of the
standard editpage one. That template would not display the editcontent
field. The problem that I'm running into is that I need to append the new
content to the old one.
-- [[MarceloMagallon]]
> Anything I can do to help? --[[Joey]]
>> Figured it out. Can you comment on the code below? Thanks. -- [[MarceloMagallon]]
So, I have some code, included below. For some reason that I don't quite get it's not updating the wiki page after a submit. Maybe it's something silly on my side...
What I ended up doing is write something like this to the page:
[[!blogcomment from="""Username""" timestamp="""12345""" subject="""Some text""" text="""the text of the comment"""]]
Each comment is processed to something like this:
<div>
<dl>
<dt>From</dt><dd>Username</dd>
<dt>Date</dt><dd>Date (needs fixing)</dd>
<dt>Subject</dt><dd>Subject text</dd>
</dl>
<p>Text of the comment...</p>
</div>
. In this way the comments can be styled using CSS.
-- [[MarceloMagallon]]
# Code
#!/usr/bin/perl
package IkiWiki::Plugin::comments;
use warnings;
use strict;
use IkiWiki '1.02';
sub import { #{{{
hook(type => "formbuilder_setup", id => "comments",
call => \&formbuilder_setup);
hook(type => "preprocess", id => "blogcomment",
call => \&preprocess);
} # }}}
sub formbuilder_setup (@) { #{{{
my %params=@_;
my $cgi = $params{cgi};
my $form = $params{form};
my $session = $params{session};
my ($page)=$form->field('page');
$page=IkiWiki::titlepage(IkiWiki::possibly_foolish_untaint($page));
# XXX: This needs something to make it blog specific
unless ($page =~ m{/discussion$} &&
$cgi->param('do') eq 'edit' &&
! exists $form->{title})
{
return;
}
if (! $form->submitted)
{
$form->template(IkiWiki::template_file("makeblogcomment.tmpl"));
$form->field(name => "blogcomment", type => "textarea", rows => 20,
cols => 80);
return;
}
my $content="";
if (exists $pagesources{$page}) {
$content=readfile(srcfile($pagesources{$page}));
$content.="\n\n";
}
my $name=defined $session->param('name') ?
$session->param('name') : gettext('Anonymous');
my $timestamp=time;
my $subject=defined $cgi->param('comments') ?
$cgi->param('comments') : '';
my $comment=$cgi->param('blogcomment');
$content.=qq{[[!blogcomment from="""$name""" timestamp="""$timestamp""" subject="""$subject""" text="""$comment"""]]\n\n};
$content=~s/\n/\r\n/g;
$form->field(name => "editcontent", value => $content, force => 1);
} # }}}
sub preprocess (@) { #{{{
my %params=@_;
my ($text, $date, $from, $subject, $r);
$text=IkiWiki::preprocess($params{page}, $params{destpage},
IkiWiki::filter($params{page}, $params{text}));
$from=exists $params{from} ? $params{from} : gettext("Anonymous");
$date=localtime($params{timestamp}) if exists $params{timestamp};
$subject=$params{subject} if exists $params{subject};
$r = qq{<div class="blogcomment"><dl>\n};
$r .= '<dt>' . gettext("From") . "</dt><dd>$from</dd>\n" if defined $from;
$r .= '<dt>' . gettext("Date") . "</dt><dd>$date</dd>\n" if defined $date;
$r .= '<dt>' . gettext("Subject") . "</dt><dd>$subject</dd>\n"
if defined $subject;
$r .= "</dl>\n" . $text . "</div>\n";
return $r;
} # }}}
1;
|