From 146210f00a629c8954aa70876ea52c208cae79e0 Mon Sep 17 00:00:00 2001
From: Weakish Jiang <weakish@gmail.com>
Date: Sat, 23 Feb 2008 14:30:28 +0000
Subject: [PATCH] * (CreoleAdditionRule) add simple blockquote syntax *
 (CreoleAdditionRule) change quote syntax from "" to ''

---
 modules/creoleaddition.pl | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/modules/creoleaddition.pl b/modules/creoleaddition.pl
index fc2eba1e..7d52e99f 100644
--- a/modules/creoleaddition.pl
+++ b/modules/creoleaddition.pl
@@ -10,7 +10,7 @@
 # For user doc, see: 
 # http://www.oddmuse.org/cgi-bin/oddmuse/CreoleAddition
 
-$ModulesDescription .= '<p>$Id: creoleaddition.pl,v 1.4 2008/02/23 13:17:20 weakish Exp $</p>';
+$ModulesDescription .= '<p>$Id: creoleaddition.pl,v 1.5 2008/02/23 14:30:28 weakish Exp $</p>';
 
 # Since these rules are not official now, users can turn off some of
 # them. Currently, It's no use, since there is only one rule. But
@@ -44,8 +44,17 @@ sub CreoleAdditionRule{
     return CloseHtmlEnvironment() . AddHtmlEnvironment('dd');
   } elsif (InElement('dd') and m/\G\s*(\n)+(\s)*\:[ \t]*(?=(.+(\n)(\s)*\:)*)/cg) {
 	return 	CloseHtmlEnvironment() . AddHtmlEnvironment('dd');
-  # ""quote""
-  }	elsif ($CreoleAdditionQuote && m/\G\"\"/cg) {
+  # """
+  # blockquote
+  # """
+  } elsif ($CreoleAdditionQuote && $bol && m/\G\"\"\"[ \t]*\n(?=(.+(\n)+\"\"\"[ \t]*(\n|\z)))/cg) {
+	        return AddHtmlEnvironment('blockquote')
+			    . AddHtmlEnvironment('p');
+  } elsif ($CreoleAdditionQuote && m/\G\n\"\"\"[ \t]*(\n|\z)/cgs) {
+	  return  
+	  CloseHtmlEnvironment(); 
+  # ''quote''
+  }	elsif ($CreoleAdditionQuote && m/\G\'\'/cgs) {
 	  return (defined $HtmlStack[0] && $HtmlStack[0] eq 'q')
 	   ? CloseHtmlEnvironment() : AddHtmlEnvironment('q');
   }