From 241a3116e6672d101fa748f67ef95608c7bf9932 Mon Sep 17 00:00:00 2001
From: Jason Garber <jg@jasongarber.com>
Date: Wed, 11 Feb 2009 14:47:32 -0500
Subject: [PATCH] Recognize deleted phrases when they start at the beginning of
 a line. [#83 state:resolved]

---
 CHANGELOG                            | 2 ++
 ext/redcloth_scan/redcloth_inline.rl | 2 +-
 test/basic.yml                       | 6 +++++-
 3 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/CHANGELOG b/CHANGELOG
index 6a305d4e..8a82f70b 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,5 +1,7 @@
 === Edge
 
+* 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
 
 * Fix dimensions and primes for LaTeX. #103
diff --git a/ext/redcloth_scan/redcloth_inline.rl b/ext/redcloth_scan/redcloth_inline.rl
index adaa1ba0..741c74db 100644
--- a/ext/redcloth_scan/redcloth_inline.rl
+++ b/ext/redcloth_scan/redcloth_inline.rl
@@ -38,7 +38,7 @@
   i = "["? "__" >X mtext >A %T :> "__" "]"? ;
   del = "[-" >X C ( mtext ) >A %T :>> "-]" ;
   emdash_parenthetical_phrase_with_spaces = " -- " mtext " -- " ;
-  del_phrase = (( " " >A %{ STORE("beginning_space"); } "-") >X C ( mtext ) >A %T :>> ( "-" end_markup_phrase )) - emdash_parenthetical_phrase_with_spaces ;
+  del_phrase = (( " " >A %{ STORE("beginning_space"); } "-" | "-" when starts_line) >X C ( mtext ) >A %T :>> ( "-" end_markup_phrase )) - emdash_parenthetical_phrase_with_spaces ;
   ins = "["? "+" >X mtext >A %T :> "+" "]"? ;
   sup = "[^" >X mtext >A %T :> "^]" ;
   sup_phrase = ( "^" when starts_phrase) >X ( mtext ) >A %T :>> ( "^" end_markup_phrase ) ;
diff --git a/test/basic.yml b/test/basic.yml
index 6f8fb2f5..fa526d07 100644
--- a/test/basic.yml
+++ b/test/basic.yml
@@ -272,7 +272,11 @@ html: <p>Please email why@domain.com or jason@domain.com.</p>
 name: del
 desc: To indicate a passage which has been deleted, surround the passage with hypens.
 in: I'm -sure- not sure.
-html: <p>I&#8217;m <del>sure</del> not sure.</p>
+html: "<p>I&#8217;m <del>sure</del> not sure.</p>"
+--- 
+name: del beginning a phrase
+in: -delete-
+html: "<p><del>delete</del></p>"
 --- 
 name: ins
 desc: Pluses around a passage indicate its insertion.