Prevent FE from creating option names in Global`

WolframResearch · Jul 26, 2023 · 178b4ae · 178b4ae
1 parent 585ef31
commit 178b4ae
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/Source/Chatbook/CreateChatNotebook.wl b/Source/Chatbook/CreateChatNotebook.wl
@@ -166,7 +166,7 @@ makeChatNotebookOptions // beginDefinition;
 
 makeChatNotebookOptions[ settings_Association, opts: OptionsPattern[ ] ] := Sequence @@ DeleteDuplicatesBy[
     Flatten @ {
-        FilterRules[ { opts }, UsingFrontEnd @ Options @ Notebook ],
+        FilterRules[ { opts }, $notebookOptions ],
         StyleDefinitions -> $chatbookStylesheet,
         If[ settings === <| |>,
             Nothing,
@@ -178,6 +178,11 @@ makeChatNotebookOptions[ settings_Association, opts: OptionsPattern[ ] ] := Sequ
 
 makeChatNotebookOptions // endDefinition;
 
+(* ::**************************************************************************************************************:: *)
+(* ::Subsubsection::Closed:: *)
+(*$notebookOptions*)
+$notebookOptions := $notebookOptions = UsingFrontEnd @ Block[ { $Context = "FrontEnd`" }, Options @ Notebook ];
+
 (* ::**************************************************************************************************************:: *)
 (* ::Subsection::Closed:: *)
 (*createNotebookFromChatObject*)