Merge pull request #941 from WolframResearch/feature/version-in-servi…

…ce-caller Add paclet version to Chatbook service caller string
WolframResearch · Nov 20, 2024 · 190523d · 190523d
2 parents e2c7c46 + 88112be
commit 190523d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/PacletInfo.wl b/PacletInfo.wl
@@ -1,7 +1,7 @@
 PacletObject[ <|
     "Name"           -> "Wolfram/Chatbook",
     "PublisherID"    -> "Wolfram",
-    "Version"        -> "1.5.2",
+    "Version"        -> "1.5.2.1",
     "WolframVersion" -> "14.1+",
     "Description"    -> "Wolfram Notebooks + LLMs",
     "License"        -> "MIT",

diff --git a/Source/Chatbook/Common.wl b/Source/Chatbook/Common.wl
@@ -850,7 +850,7 @@ setServiceCaller[ eval_, caller_ ] := (
 );
 
 setServiceCaller[ eval_, caller: $$serviceCaller, { current___ } ] :=
-    Block[ { ServiceConnectionUtilities`$Caller = DeleteDuplicates @ Flatten @ { current, "Chatbook", caller } },
+    Block[ { ServiceConnectionUtilities`$Caller = DeleteDuplicates @ Flatten @ { current, $chatbookCaller, caller } },
         eval
     ];
 
@@ -860,6 +860,9 @@ setServiceCaller[ eval_, caller_, _ ] :=
 setServiceCaller // Attributes = { HoldFirst };
 setServiceCaller // endDefinition;
 
+
+$chatbookCaller := $chatbookCaller = "Chatbook-" <> $thisPaclet[ "Version" ];
+
 (* ::**************************************************************************************************************:: *)
 (* ::Subsubsection::Closed:: *)
 (*chatbookServiceCaller*)