Bugfix: Some boxes serialized as graphics weren't recognized as graph…

…ics later on
WolframResearch · Jan 21, 2025 · 18acbec · 18acbec
1 parent 59a2cd7
commit 18acbec
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/Source/Chatbook/Graphics.wl b/Source/Chatbook/Graphics.wl
@@ -16,7 +16,8 @@ $$graphicsPattern = HoldPattern @ Alternatives[
     _Graphics3D,
     _Image,
     _Image3D,
-    _Legended
+    _Legended,
+    Dynamic[ RawBoxes[ _FEPrivate`ImportImage ], ___ ]
 ];
 
 $$definitelyNotGraphics = HoldPattern @ Alternatives[

diff --git a/Source/Chatbook/Serialization.wl b/Source/Chatbook/Serialization.wl
@@ -1190,7 +1190,11 @@ boxesToExpressionURI[ boxes_ ] :=
     Replace[
         Quiet @ ToExpression[ boxes, StandardForm, HoldComplete ],
         {
-            HoldComplete[ expr_ ] :> MakeExpressionURI @ Unevaluated @ expr,
+            HoldComplete[ expr_ ] :> (
+                (* Ensure that the expression is recognized as a graphics expression later: *)
+                HoldPattern[ graphicsQ[ Verbatim @ expr ] ] = True;
+                MakeExpressionURI @ Unevaluated @ expr
+            ),
             _? FailureQ :> MakeExpressionURI[ "image", RawBoxes @ StyleBox[ boxes, "GraphicsRawBoxes" ] ]
         }
     ];