Generate references using SetAttribute() & AppendChild() with strings…

… directly
whatwg · Aug 10, 2023 · c6fabf1 · c6fabf1
1 parent a72d468
commit c6fabf1
Showing 1 changed file with 2 additions and 12 deletions.
diff --git a/src/wattsi.pas b/src/wattsi.pas
@@ -1587,18 +1587,8 @@    TCrossReferences = record
             MissingReferences[ReferenceName] := ListNode;
 
             NewLink := ConstructHTMLElement(eA);
-            Scratch := Default(Rope);
-            ExtractedData := Element.TextContent.ExtractAll();
-            Scratch.Append('#refs');
-            Scratch.AppendDestructively(ExtractedData);
-            NewLink.SetAttributeDestructively('href', Scratch);
-
-            Scratch := Default(Rope);
-            ExtractedData := Element.TextContent.ExtractAll();
-            Scratch.Append('[');
-            Scratch.AppendDestructively(ExtractedData);
-            Scratch.Append(']');
-            NewLink.AppendChild(TText.CreateDestructively(Scratch));
+            NewLink.SetAttribute('href', '#refs' + ReferenceName);
+            NewLink.AppendChild(TText.Create('[' + ReferenceName + ']'));
 
             (Node.ParentNode as TElement).ReplaceChild(NewLink, Node);
             Node.Free();