Allow leading spaces on lists for backward compatibility with RedClot…

…h 3.x. [#89 state:resolved]
jgarber · Feb 11, 2009 · 2bdd829 · 2bdd829
1 parent 241a311
commit 2bdd829
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 2 deletions.
diff --git a/CHANGELOG b/CHANGELOG
@@ -1,5 +1,7 @@
 === Edge
 
+* Allow leading spaces on lists for backward compatibility with RedCloth 3.x. #89
+
 * Recognize deleted phrases when they start at the beginning of a line. #83
 
 * Fix escaped <code> tag when it has the class attribute and is in a <pre> tag. #95

diff --git a/ext/redcloth_scan/redcloth_scan.rl b/ext/redcloth_scan/redcloth_scan.rl
@@ -30,7 +30,7 @@
   ol = "#" %{nest++; list_type = "ol";};
   ul_start  = ( ul | ol )* ul A C :> " "+   ;
   ol_start  = ( ul | ol )* ol N A C :> " "+ ;
-  list_start  = ( ul_start | ol_start ) >{nest = 0;} ;
+  list_start  = " "* ( ul_start | ol_start ) >{nest = 0;} ;
   dt_start = "-" . " "+ ;
   dd_start = ":=" ;
   long_dd  = dd_start " "* LF %{ ADD_BLOCK(); ASET("type", "dd"); } any+ >A %{ TRANSFORM("text"); } :>> "=:" ;

diff --git a/test/lists.yml b/test/lists.yml
@@ -280,4 +280,22 @@ html: |-
   <ul>
   	<li>One</li>
   	<li>Two</li>
-  </ul>
+  </ul>
+---
+name: unordered list with leading spaces
+in: " * notice the leading space\n * RedCloth 3.0.4 used to accept it\n * Now we do too"
+html: |-
+  <ul>
+  	<li>notice the leading space</li>
+  	<li>RedCloth 3.0.4 used to accept it</li>
+  	<li>Now we do too</li>
+  </ul>
+---
+name: ordered list with leading spaces
+in: " # notice the leading space\n # RedCloth 3.0.4 used to accept it\n # Now we do too"
+html: |-
+  <ol>
+  	<li>notice the leading space</li>
+  	<li>RedCloth 3.0.4 used to accept it</li>
+  	<li>Now we do too</li>
+  </ol>