From: Adam Megacz <adam@megacz.com>
Date: Mon, 24 Jan 2011 01:57:40 +0000 (-0800)
Subject: fix emdash/endash confusion
X-Git-Url: http://git.megacz.com/?p=wix.git;a=commitdiff_plain;h=cb848b5425d038494bffb361e7f99e4996599723;hp=ab26ff591fbbaf202c3d95af6c50df747513d8ea

fix emdash/endash confusion
---

diff --git a/src/Doc.scala b/src/Doc.scala
index 1a6d322..7912eb3 100644
--- a/src/Doc.scala
+++ b/src/Doc.scala
@@ -52,7 +52,8 @@ object Doc {
       case Tree("(r)",  _               ,_) => Seq(new GlyphText(CircleR))
       case Tree("(c)",  _               ,_) => Seq(new GlyphText(CircleC))
       case Tree("(tm)", _               ,_) => Seq(new GlyphText(TradeMark))
-      case Tree("--",   _               ,_) => Seq(new GlyphText(Emdash))
+      case Tree("--",   _               ,_) => Seq(new GlyphText(Endash))
+      case Tree("---",  _               ,_) => Seq(new GlyphText(Emdash))
       case Tree("<-",   _               ,_) => Seq(new GlyphText(LeftArrow))
       case Tree("<=",   _               ,_) => Seq(new GlyphText(DoubleLeftArrow))
       case Tree("=>",   _               ,_) => Seq(new GlyphText(DoubleRightArrow))
@@ -338,6 +339,7 @@ abstract class Glyph extends ToHtml
   case object CircleC extends Glyph { override def toHtml = "&#174;" }
   case object TradeMark extends Glyph { override def toHtml = "&#8482;" }
   case object ServiceMark extends Glyph { override def toHtml = "&#8482;" }
+  case object Endash extends Glyph { override def toHtml = "&ndash;" }
   case object Emdash extends Glyph { override def toHtml = "&mdash;" }
   case object Ellipsis extends Glyph { override def toHtml = "&#0133;"  /* &cdots;? */ }
   case object Cent extends Glyph { override def toHtml = "&#189;" }
diff --git a/src/wix.g b/src/wix.g
index 003cd36..348ce40 100644
--- a/src/wix.g
+++ b/src/wix.g
@@ -92,7 +92,7 @@ styled              = Underline::     "__"       Text                       "__"
                     | Keyword::       "!"        Atom
                     | Italic::        "**"      (Text & ((~[\*]! | "*" -> ~[\*])*))      "**"
 
-glyph               = ^"(e)" | ^"(r)" | ^"(c)" | ^"(tm)" | ^"--"
+glyph               = ^"(e)" | ^"(r)" | ^"(c)" | ^"(tm)" | ^"--" | ^"---"
                     | ^"..." | ^"<-" | ^"<=" | ^"=>" | ^"<->"
                     | ^"<=>" | ^"<-" | ^"^o"
                     // ^"->"