Merge pull request #995 from WolframResearch/bugfix/misc-cloud-fixes

Bugfix: Miscellaneous cloud fixes
WolframResearch · Dec 19, 2024 · a37a329 · a37a329
2 parents 936eafb + cc64caf
commit a37a329
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 4 deletions.
diff --git a/Developer/Resources/WorkspaceStyles.wl b/Developer/Resources/WorkspaceStyles.wl
@@ -230,9 +230,12 @@ Cell[
             ],
             EventHandlerTag @ {
                 "MouseEntered" :>
-                    With[ { cell = EvaluationCell[ ] },
-                        Quiet @ Needs[ "Wolfram`Chatbook`" -> None ];
-                        Symbol[ "Wolfram`Chatbook`ChatbookAction" ][ "AttachAssistantMessageButtons", cell ]
+                    If[ TrueQ @ $CloudEvaluation,
+                        Null,
+                        With[ { cell = EvaluationCell[ ] },
+                            Quiet @ Needs[ "Wolfram`Chatbook`" -> None ];
+                            Symbol[ "Wolfram`Chatbook`ChatbookAction" ][ "AttachAssistantMessageButtons", cell ]
+                        ]
                     ],
                 Method         -> "Preemptive",
                 PassEventsDown -> Automatic,

diff --git a/Source/Chatbook/PromptGenerators/VectorDatabases.wl b/Source/Chatbook/PromptGenerators/VectorDatabases.wl
@@ -103,6 +103,7 @@ $noSemanticSearch := $noSemanticSearch = ! PacletObjectQ @ Quiet @ PacletInstall
 getVectorDBDirectory // beginDefinition;
 
 getVectorDBDirectory[ ] := Enclose[
+    If[ $CloudEvaluation, cleanupLegacyVectorDBFiles @ $localVectorDBDirectory ];
     $vectorDBDirectory = SelectFirst[
         {
             $pacletVectorDBDirectory,
@@ -203,7 +204,7 @@ downloadVectorDatabases // endDefinition;
 (*cleanupLegacyVectorDBFiles*)
 cleanupLegacyVectorDBFiles // beginDefinition;
 
-cleanupLegacyVectorDBFiles[ dir_String ] := Quiet @ Map[
+cleanupLegacyVectorDBFiles[ dir_String ] := cleanupLegacyVectorDBFiles[ dir ] = Quiet @ Map[
     DeleteDirectory[ #1, DeleteContents -> True ] &,
     Join[
         Select[ FileNames[ DigitCharacter.. ~~ "." ~~ DigitCharacter.. ~~ "." ~~ DigitCharacter.., dir ], DirectoryQ ],