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