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))
case object CircleC extends Glyph { override def toHtml = "®" }
case object TradeMark extends Glyph { override def toHtml = "™" }
case object ServiceMark extends Glyph { override def toHtml = "™" }
+ case object Endash extends Glyph { override def toHtml = "–" }
case object Emdash extends Glyph { override def toHtml = "—" }
case object Ellipsis extends Glyph { override def toHtml = "…" /* &cdots;? */ }
case object Cent extends Glyph { override def toHtml = "½" }