Bugfix: Fix for inconsistent EvaluationCell behavior on Linux and Mac

FrontEnd/StyleSheets/Chatbook.nb

@@ -1161,7 +1161,7 @@ Notebook[
   ],
   Cell[
    StyleData["ChatStyleSheetInformation"],
-   TaggingRules -> <|"StyleSheetVersion" -> "1.3.7.3913365950"|>
+   TaggingRules -> <|"StyleSheetVersion" -> "1.3.8.3913394031"|>
   ],
   Cell[
    StyleData["Text"],

PacletInfo.wl

@@ -1,7 +1,7 @@
 PacletObject[ <|
     "Name"           -> "Wolfram/Chatbook",
     "PublisherID"    -> "Wolfram",
-    "Version"        -> "1.3.7",
+    "Version"        -> "1.3.8",
     "WolframVersion" -> "13.3+",
     "Description"    -> "Wolfram Notebooks + LLMs",
     "License"        -> "MIT",

Source/Chatbook/Actions.wl

@@ -921,10 +921,14 @@ AttachCodeButtons[ attached_, cell_CellObject, string_, lang_ ] := Enclose[
         If[ chatCodeBlockQ @ parent, Throw @ AttachCodeButtons[ attached, parent, string, lang ] ];
 
         (* Otherwise, we have an EvaluationCell[] failure, so try to recover by retrying EvaluationCell[] *)
-        evalCell  = ConfirmMatch[ (FinishDynamic[ ]; EvaluationCell[ ]), _CellObject, "EvaluationCell" ];
+        evalCell = ConfirmMatch[ (FinishDynamic[ ]; EvaluationCell[ ]), _CellObject, "EvaluationCell" ];
 
         (* The chat code block should be the parent of the current evaluation cell *)
-        newParent = ConfirmBy[ parentCell @ evalCell, chatCodeBlockQ, "ParentCell" ];
+        newParent = ConfirmBy[
+            If[ chatCodeBlockQ @ evalCell, evalCell, parentCell @ evalCell ],
+            chatCodeBlockQ,
+            "ParentCell"
+        ];
 
         (* Finish attaching now that we have the correct cell *)
         AttachCodeButtons[ attached, newParent, string, lang ]

Source/Chatbook/SendChat.wl

@@ -2301,7 +2301,7 @@ attachChatOutputMenu[ cell_CellObject ] /; $cloudNotebooks := Null;
 
 attachChatOutputMenu[ cell_CellObject ] := (
     $lastChatOutput = cell;
-    Block[ { EvaluationCell = cell & }, CurrentValue[ cell, Initialization ] ]
+    Lookup[ Options[ cell, Initialization ] /. HoldPattern @ EvaluationCell[ ] -> cell, Initialization ]
 );
 
 attachChatOutputMenu // endDefinition;