diff --git a/Source/Chatbook/Graphics.wl b/Source/Chatbook/Graphics.wl index 8bbb78c1..d30ebdc0 100644 --- a/Source/Chatbook/Graphics.wl +++ b/Source/Chatbook/Graphics.wl @@ -69,6 +69,7 @@ graphicsBoxQ[ TemplateBox[ { box_, ___ }, $$graphicsBoxIgnoredTemplates, ___ ] ] graphicsBoxQ[ RowBox[ boxes_List ] ] := AnyTrue[ boxes, graphicsBoxQ ]; graphicsBoxQ[ TemplateBox[ boxes_List, "RowDefault", ___ ] ] := AnyTrue[ boxes, graphicsBoxQ ]; graphicsBoxQ[ GridBox[ boxes_List, ___ ] ] := AnyTrue[ Flatten @ boxes, graphicsBoxQ ]; +graphicsBoxQ[ StyleBox[ _, "GraphicsRawBoxes", ___ ] ] := True; graphicsBoxQ[ ___ ] := False; graphicsBoxQ // endDefinition; diff --git a/Source/Chatbook/Serialization.wl b/Source/Chatbook/Serialization.wl index f482915c..ca4300c6 100644 --- a/Source/Chatbook/Serialization.wl +++ b/Source/Chatbook/Serialization.wl @@ -1105,7 +1105,7 @@ boxesToExpressionURI[ boxes_ ] := Quiet @ ToExpression[ boxes, StandardForm, HoldComplete ], { HoldComplete[ expr_ ] :> MakeExpressionURI @ Unevaluated @ expr, - _? FailureQ :> MakeExpressionURI[ "image", RawBoxes @ boxes ] + _? FailureQ :> MakeExpressionURI[ "image", RawBoxes @ StyleBox[ boxes, "GraphicsRawBoxes" ] ] } ];