Merge pull request #920 from WolframResearch/915-printtemporary-cells-are-not-cleaned-up-after-a-chat-evaluation

Bugfix: Ensure `PrintTemporary` cells are cleaned up

Author: rhennigan

Developer/Resources/WorkspaceStyles.wl

@@ -336,6 +336,15 @@ Cell[
     }
 ]
 
+(* ::**************************************************************************************************************:: *)
+(* ::Section::Closed:: *)
+(*Generated Styles*)
+Cell[
+    StyleData[ "PrintTemporary" ],
+    CellMargins -> { { 30, Inherited }, { Inherited, Inherited } },
+    Selectable  -> True
+]
+
 (* ::**************************************************************************************************************:: *)
 (* ::Section::Closed:: *)
 (*Package Footer*)

FrontEnd/Assets/Extensions/CoreExtensions.nb

@@ -11,7 +11,7 @@ Notebook[
   Cell["Chatbook Core.nb Extensions", "Title"],
   Cell[
    StyleData["ChatStyleSheetInformation"],
-   TaggingRules -> <|"StyleSheetVersion" -> "1.5.2.3940575613"|>
+   TaggingRules -> <|"StyleSheetVersion" -> "1.5.2.3940579478"|>
   ],
   Cell[
    StyleData["NotebookAssistant`Text"],

FrontEnd/StyleSheets/Chatbook.nb

@@ -824,7 +824,7 @@ Notebook[
   ],
   Cell[
    StyleData["ChatStyleSheetInformation"],
-   TaggingRules -> <|"StyleSheetVersion" -> "1.5.2.3940575613"|>
+   TaggingRules -> <|"StyleSheetVersion" -> "1.5.2.3940579478"|>
   ],
   Cell[
    StyleData["NotebookAssistant`Text"],

FrontEnd/StyleSheets/Wolfram/WorkspaceChat.nb

@@ -75,7 +75,7 @@ Notebook[
   Cell[StyleData["CellExpression"], Selectable -> True],
   Cell[
    StyleData["WorkspaceChatStyleSheetInformation"],
-   TaggingRules -> <|"WorkspaceChatStyleSheetVersion" -> "1.5.2.3940575613"|>
+   TaggingRules -> <|"WorkspaceChatStyleSheetVersion" -> "1.5.2.3940579478"|>
   ],
   Cell[
    StyleData[
@@ -412,6 +412,11 @@ Notebook[
       ]
      ])
    }
+  ],
+  Cell[
+   StyleData["PrintTemporary"],
+   Selectable -> True,
+   CellMargins -> {{30, Inherited}, {Inherited, Inherited}}
   ]
  },
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"

Source/Chatbook/Sandbox.wl

@@ -768,6 +768,8 @@ sessionEvaluate[ HoldComplete[ eval0_ ] ] := Enclose[
             ]
         ];
 
+        If[ $WorkspaceChat, NotebookDelete @ Cells[ $evaluationNotebook, CellStyle -> "PrintTemporary" ] ];
+
         result = HoldComplete @@ ConfirmMatch[ Lookup[ response, "Result" ], _HoldComplete|_Hold, "Result" ];
         packets = TextPacket /@ response[ "OutputLog" ];
         initialized = result;