Merge branch 'main' into feature/default-stylesheet-testing

WolframResearch · Jan 30, 2024 · 72acd1a · 72acd1a
2 parents 8467c32 + 72d88ac
commit 72acd1a
Showing 1 changed file with 17 additions and 2 deletions.
diff --git a/Source/Chatbook/Tools/Common.wl b/Source/Chatbook/Tools/Common.wl
@@ -213,8 +213,7 @@ toolAppearanceRules // beginDefinition;
 
 toolAppearanceRules[ tool: $$llmToolH[ as_Association, { opts: OptionsPattern[ ] }, ___ ] ] := Enclose[
     Module[ { optValue, optSetting, inlineSetting, autoSettings, combined },
-        (* cSpell: ignore nodef *)
-        optValue      = Association @ Quiet[ OptionValue[ LLMTool, { opts }, AppearanceRules ], OptionValue::nodef ];
+        optValue      = Association @ quietOptionValue[ LLMTool, { opts }, AppearanceRules ];
         optSetting    = If[ AssociationQ @ optValue, optValue, <| |> ];
         inlineSetting = ConfirmBy[ KeyTake[ as, $appearanceRulesKeys ], AssociationQ, "Inline" ];
         autoSettings  = ConfirmBy[ $autoAppearanceRules, AssociationQ, "Auto" ];
@@ -230,6 +229,22 @@ toolAppearanceRules[ tool: $$llmToolH[ as_Association, ___ ] ] :=
 
 toolAppearanceRules // endDefinition;
 
+(* ::**************************************************************************************************************:: *)
+(* ::Subsubsubsection::Closed:: *)
+(*quietOptionValue*)
+quietOptionValue // beginDefinition;
+
+quietOptionValue[ sym_Symbol, opts_List, name_ ] :=
+    quietOptionValue[ sym, opts, name, Automatic ];
+
+quietOptionValue[ sym_Symbol, { opts: OptionsPattern[ ] }, name_, default_ ] := Quiet[
+    Replace[ OptionValue[ sym, { opts }, name ], HoldPattern[ name ] :> default ],
+    (* cSpell: ignore nodef, optnf *)
+    { OptionValue::nodef, OptionValue::optnf }
+];
+
+quietOptionValue // endDefinition;
+
 (* ::**************************************************************************************************************:: *)
 (* ::Subsubsection::Closed:: *)
 (*toolDefaultIcon*)