oddmuse/modules/emailquote.pl

# Copyright (C) 2008  Weakish Jiang <weakish@gmail.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License version 2 as
# published by the Free Software Foundation.
#
# You can get a copy of GPL version 2 at
# http://www.gnu.org/licenses/gpl-2.0.html
#
# For user doc, see:
# http://www.oddmuse.org/cgi-bin/oddmuse/Email_Quote_Extension

use strict;
use v5.10;

AddModuleDescription('emailquote.pl', 'Email Quote Extension');

our ($q, $bol, @MyRules);

push(@MyRules, \&EmailQuoteRule);

sub EmailQuoteRule {
    #  > on a line of its own should work
    if ($bol && m/\G(\s*\n)*((\&gt;))+\n/cg) {
        return $q->p();
    }
    # > hi, you mentioned that:
    # >> I don't like Oddmuse.
    # > in last letter.
    elsif ($bol && m/\G(\s*\n)*((\&gt;)+)[ \t]/cg
           or InElement('dd') && m/\G(\s*\n)+((\&gt;)+)[ \t]/cg) {
        my $leng = length($2) / 4;
        return CloseHtmlEnvironmentUntil('dd') . OpenHtmlEnvironment('dl',$leng, 'quote')
        . $q->dt() . AddHtmlEnvironment('dd');
    }
    return;
}