fix a TODO test

but Smart is an extension, not strict Markdown
fperrad · Mar 23, 2009 · 13ac70e · 13ac70e
1 parent 1fbf6a8
commit 13ac70e
Show file tree

Hide file tree

Showing 3 changed files with 78 additions and 2 deletions.
diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -299,6 +299,38 @@ method Space($/) {
     make Markdown::Space.new( :text( $/.text() ) );
 }
 
+method Smart($/, $key) {
+    make $( $/{$key} );
+}
+
+method Apostrophe($/) {
+#    make Markdown::Entity.new( :text( '&rsquo;' ) );
+    make Markdown::Entity.new( :text( $/.text() ) );
+}
+
+method Ellipsis($/) {
+#    make Markdown::Entity.new( :text( '&hellip;' ) );
+    make Markdown::Entity.new( :text( $/.text() ) );
+}
+
+method Dash($/, $key) {
+    make $( $/{$key} );
+}
+
+method EnDash($/) {
+#    make Markdown::Entity.new( :text( '&ndash;' ) );
+    make Markdown::Entity.new( :text( $/.text() ) );
+}
+
+method EmDash($/) {
+#    make Markdown::Entity.new( :text( '&mdash;' ) );
+    make Markdown::Entity.new( :text( $/.text() ) );
+}
+
+method DoubleQuoted($/) {
+    make Markdown::Line.new( :text( $/.text() ) );
+}
+
 # Local Variables:
 #   mode: cperl
 #   cperl-indent-level: 4

diff --git a/src/parser/grammar.pg b/src/parser/grammar.pg
@@ -204,6 +204,7 @@ token Inline {
     | <Code> {*}                #= Code
     | <Entity> {*}              #= Entity
     | <EscapedChar> {*}         #= EscapedChar
+    | <Smart> {*}               #= Smart
     | <Symbol> {*}              #= Symbol
 }
 
@@ -494,12 +495,14 @@ token Sp { <Spacechar>* }
 
 token Spnl { <.Sp> [<.Newline> <.Sp>]? }
 
-token SpecialChar { '*' | '_' | '`' | '&' | '[' | ']' | '<' | '!' | '\\' }
+token SpecialChar { '*' | '_' | '`' | '&' | '[' | ']' | '<' | '!' | '\\' | '.' | '-' | '\'' | '"' | '^' }
 
 token NormalChar { <!SpecialChar> <!Spacechar> <!Newline> . }
 
 token Alphanumeric { \w }
 
+token Digit { \d }
+
 token HexEntity { '&#' <[Xx]> <[0..9a..fA..F]>+ ';' }
 
 token DecEntity { '&#' <[0..9]>+ ';'}
@@ -523,3 +526,44 @@ token RawLine {
     ]
     {*}
 }
+
+token Smart {
+    | <Ellipsis> {*}            #= Ellipsis
+    | <Dash> {*}                #= Dash
+    | <DoubleQuoted> {*}        #= DoubleQuoted
+    | <Apostrophe> {*}          #= Apostrophe
+}
+
+token Apostrophe {
+    '\''
+    {*}
+}
+
+token Ellipsis {
+    '...' | '. . .'
+    {*}
+}
+
+token Dash {
+    | <EmDash> {*}              #= EmDash
+    | <EnDash> {*}              #= EnDash
+}
+
+token EnDash {
+    '-' <!Digit>
+    {*}
+}
+
+token EmDash {
+    '---' | '--'
+    {*}
+}
+
+token DoubleQuoteStart { '"' }
+
+token DoubleQuoteEnd { '"' }
+
+token DoubleQuoted {
+    <.DoubleQuoteStart> [ <!DoubleQuoteEnd> <.Inline> ]+ <.DoubleQuoteEnd>
+    {*}
+}
diff --git a/t/32-reflink.t b/t/32-reflink.t
@@ -41,7 +41,7 @@ CODE
 
 OUT
 
-language_output_is( 'markdown', <<'CODE', <<'OUT', 'reference link simple', todo => 'bug with quoted ref' );
+language_output_is( 'markdown', <<'CODE', <<'OUT', 'reference link simple' );
 
 Or you can use a [shortcut][] reference, which links the text "shortcut"
 to the link named "[shortcut]" on the next paragraph.