Merge pull request #168 from WolframResearch/bugfix/155-appearance-elements-failure

Bugfix: Fall back when AppearanceElements option is unsupported

Author: rhennigan

Kernel/UIResources.wl

@@ -19,8 +19,9 @@ $toolUIAssociations = <|
     "WolframAlpha" :> If[ $deployCloudNotebooks, "ui://wolfram/wolframalpha-viewer", None ]
 |>;
 
-$deployedNotebookRoot  = "AgentTools/Notebooks";
-$deployCloudNotebooks := $deployCloudNotebooks = $CloudConnected; (* must be connected to deploy notebooks *)
+$includeAppearanceElements = False;
+$deployedNotebookRoot      = "AgentTools/Notebooks";
+$deployCloudNotebooks     := $deployCloudNotebooks = $CloudConnected; (* must be connected to deploy notebooks *)
 
 (* ::**************************************************************************************************************:: *)
 (* ::Section::Closed:: *)
@@ -48,13 +49,10 @@ deployCloudNotebookForMCPApp[ nb_Notebook, identifier_ ] := Enclose[
             "Target"
         ];
 
-        deployed = CloudDeploy[
-            nb,
-            target,
-            AppearanceElements -> None,
-            AutoRemove         -> True,
-            IconRules          -> { },
-            Permissions        -> { "All" -> { "Read", "Interact" } }
+        deployed = ConfirmMatch[
+            cloudDeployTryAppearanceElements[ nb, target ],
+            _CloudObject | _? FailureQ,
+            "Deployed"
         ];
 
         If[ MatchQ[ deployed, _CloudObject ],
@@ -69,6 +67,52 @@ deployCloudNotebookForMCPApp[ nb_Notebook, identifier_ ] := Enclose[
 
 deployCloudNotebookForMCPApp // endDefinition;
 
+(* ::**************************************************************************************************************:: *)
+(* ::Subsubsection::Closed:: *)
+(*cloudDeployTryAppearanceElements*)
+cloudDeployTryAppearanceElements // beginDefinition;
+
+cloudDeployTryAppearanceElements[ expr_, target_ ] /; $includeAppearanceElements :=
+    cloudDeployWithAppearanceElements[ expr, target ];
+
+(* This tries to CloudDeploy with AppearanceElements -> None, since the footer links will not be clickable in the app.
+   However, some cloud accounts do not support this option, which causes CloudDeploy to fail with a message.
+   In that case, we retry without the AppearanceElements option. *)
+cloudDeployTryAppearanceElements[ expr_, target_ ] := Quiet[
+    Check[
+        CloudDeploy[
+            expr,
+            target,
+            AppearanceElements -> None,
+            AutoRemove         -> True,
+            IconRules          -> { },
+            Permissions        -> { "All" -> { "Read", "Interact" } }
+        ],
+        (* Disable this check for the remainder of the session: *)
+        $includeAppearanceElements = True;
+        cloudDeployWithAppearanceElements[ expr, target ],
+        { CloudDeploy::appearancenotsup }
+    ],
+    { CloudDeploy::appearancenotsup }
+];
+
+cloudDeployTryAppearanceElements // endDefinition;
+
+(* ::**************************************************************************************************************:: *)
+(* ::Subsubsection::Closed:: *)
+(*cloudDeployWithAppearanceElements*)
+cloudDeployWithAppearanceElements // beginDefinition;
+
+cloudDeployWithAppearanceElements[ expr_, target_ ] := CloudDeploy[
+    expr,
+    target,
+    AutoRemove  -> True,
+    IconRules   -> { },
+    Permissions -> { "All" -> { "Read", "Interact" } }
+];
+
+cloudDeployWithAppearanceElements // endDefinition;
+
 (* ::**************************************************************************************************************:: *)
 (* ::Section::Closed:: *)
 (*MCP Integration Helpers*)

PacletInfo.wl

@@ -2,7 +2,7 @@ PacletObject[ <|
     "Name"             -> "Wolfram/AgentTools",
     "Description"      -> "Provides tools and integrations for connecting Wolfram Language to AI agents and LLMs",
     "Creator"          -> "Richard Hennigan (Wolfram Research)",
-    "Version"          -> "2.1.0",
+    "Version"          -> "2.1.1",
     "WolframVersion"   -> "14.3+",
     "PublisherID"      -> "Wolfram",
     "License"          -> "MIT",

docs/mcp-apps.md

@@ -75,6 +75,8 @@ Tools with UI-enhanced behavior:
 
 These enhancements require both MCP Apps support and an active Wolfram Cloud connection. The session flag `$deployCloudNotebooks` (initialized from `$CloudConnected`) gates deployment: if a `CloudDeploy` call fails at runtime, the helper `deployCloudNotebookForMCPApp` sets the flag to `False` and the tools fall back to their standard (non-UI) results for the rest of the session rather than surfacing an internal failure.
 
+Cloud notebooks are deployed with `AppearanceElements -> None` by default, which hides the footer links that would not be clickable inside the MCP App iframe. Some cloud accounts reject this option with `CloudDeploy::appearancenotsup`; in that case the deployment is transparently retried without `AppearanceElements`, and the unsupported status is cached in a session flag (`$includeAppearanceElements`) so subsequent deployments skip the failing attempt.
+
 The fallback is per-tool:
 
 - `WolframLanguageEvaluator` always has a text/image result it can return, so it degrades in place.