Bugfix: Handle expression URIs in formatted output cells

WolframResearch · Nov 19, 2024 · 351ebb3 · 351ebb3
1 parent 8ff094e
commit 351ebb3
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/Source/Chatbook/Formatting.wl b/Source/Chatbook/Formatting.wl
@@ -293,6 +293,9 @@ makeResultCell0[ inlineCodeCell[ code_String ] ] := ReplaceAll[
 makeResultCell0[ mathCell[ math_String ] ] /; StringMatchQ[ math, (DigitCharacter|"."|","|" ").. ] :=
     math;
 
+makeResultCell0[ mathCell[ name_String ] ] /; NameQ @ name && Context @ name === "System`" && StringLength @ name > 1 :=
+    makeResultCell0 @ inlineCodeCell @ name;
+
 makeResultCell0[ mathCell[ math_String ] ] :=
     With[ { boxes = makeTeXBoxes @ math },
         If[ MatchQ[ boxes, _RawBoxes ],
@@ -1907,7 +1910,7 @@ makeLabeledBlockCell0[ code_String, "Input" ] :=
     makeInteractiveCodeCell[ "Wolfram", code ];
 
 makeLabeledBlockCell0[ code_String, style_String ] :=
-    Cell[ BoxData @ code, style ];
+    Cell[ BoxData @ StringToBoxes[ code, "WL" ], style ];
 
 makeLabeledBlockCell0 // endDefinition;