Merge pull request #590 from WolframResearch/main

Release v1.4.2
WolframResearch · Feb 4, 2024 · 6cd862a · 6cd862a
2 parents 99ef68c + 2bb8289
commit 6cd862a
Show file tree

Hide file tree

Showing 20 changed files with 573 additions and 301 deletions.
diff --git a/Developer/Resources/Styles.wl b/Developer/Resources/Styles.wl
@@ -235,9 +235,19 @@ Cell[
     StyleKeyMapping   -> { "~" -> "ChatDelimiter", "'" -> "ChatSystemInput", "Backspace" -> "ChatInput" },
     TaggingRules      -> <| "ChatNotebookSettings" -> <| "IncludeHistory" -> False |> |>,
     CellDingbat       -> Cell[
-        BoxData @ RowBox @ { ToBoxes @ $chatInputCellDingbat, TemplateBox[ { 12 }, "Spacer1" ] },
+        BoxData @ RowBox @ {
+            DynamicBox @ ToBoxes[
+                If[ TrueQ @ CloudSystem`$CloudNotebooks,
+                    RawBoxes @ TemplateBox[ { }, "ChatIconUser" ],
+                    RawBoxes @ TemplateBox[ { }, "ChatInputActiveCellDingbat" ]
+                ],
+                StandardForm
+            ],
+            TemplateBox[ { 12 }, "Spacer1" ]
+        },
         CellFrame        -> { { 0, 0 }, { 0, 2 } },
-        CellFrameMargins -> 5
+        CellFrameColor   -> RGBColor[ "#a3c9f2" ],
+        CellFrameMargins -> 6
     ]
 ]
 

diff --git a/Developer/StylesheetBuilder.wl b/Developer/StylesheetBuilder.wl
@@ -566,12 +566,23 @@ $ChatbookStylesheet = Notebook[
 (*BuildChatbookStylesheet*)
 
 
+fixContexts[ expr_ ] := ResourceFunction[ "ReplaceContext" ][
+    expr,
+    {
+        "Wolfram`ChatbookStylesheetBuilder`"         -> "Wolfram`ChatNB`",
+        "Wolfram`ChatbookStylesheetBuilder`Private`" -> "Wolfram`ChatNB`",
+        "$CellContext`"                              -> "Wolfram`ChatNB`",
+        $Context                                     -> "Wolfram`ChatNB`"
+    }
+];
+
+
 BuildChatbookStylesheet[ ] := BuildChatbookStylesheet @ $styleSheetTarget;
 
 BuildChatbookStylesheet[ target_ ] :=
     Block[ { $Context = "Global`", $ContextPath = { "System`", "Global`" } },
         Module[ { exported },
-            exported = Export[ target, $ChatbookStylesheet, "NB" ];
+            exported = Export[ target, fixContexts @ $ChatbookStylesheet, "NB" ];
             PacletInstall[ "Wolfram/PacletCICD" ];
             Needs[ "Wolfram`PacletCICD`" -> None ];
             SetOptions[