fix reflink without ref

save & copy literal text
fperrad · Mar 24, 2009 · 6c33c05 · 6c33c05
1 parent 6ebcba4
commit 6c33c05
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/src/Compiler.pir b/src/Compiler.pir
@@ -345,8 +345,7 @@ Return generated HTML for all of its children.
 
 .sub 'html' :method :multi(_,['Markdown';'RefLink'])
     .param pmc node
-    .local string content, image, key
-    content = self.'html_children'(node)
+    .local string key
     key = node.'key'()
     $P0 = get_hll_global [ 'Markdown';'HTML';'Compiler' ], '%ref'
     $S0 = downcase key
@@ -359,10 +358,11 @@ Return generated HTML for all of its children.
     title = escape_xml($S0)
     goto L2
   L1:
-    $S0 = key
-    $S0 .= content
+    $S0 = node.'text'()
     goto L5
   L2:
+    .local string content, image
+    content = self.'html_children'(node)
     image = node.'image'()
     if image goto L3
     if content goto L4

diff --git a/src/parser/actions.pm b/src/parser/actions.pm
@@ -231,15 +231,17 @@ method ReferenceLink($/, $key) {
 }
 
 method ReferenceLinkDouble($/) {
-    my $mast := Markdown::RefLink.new( :key( ~$<Label>[1].text() ) );
+    my $mast := Markdown::RefLink.new( :key( ~$<Label>[1].text() ),
+                                       :text( $/.text() ) );
     for $<Label>[0]<Inline> {
         $mast.push( $( $_ ) );
     }
     make $mast;
 }
 
 method ReferenceLinkSingle($/) {
-    make Markdown::RefLink.new( :key( ~$<Label>.text() ) );
+    make Markdown::RefLink.new( :key( ~$<Label>.text() ),
+                                :text( $/.text() ) );
 }
 
 method ExplicitLink($/) {