Merge pull request #447 from WolframResearch/feature/multimodal-messages

Add support for GPT-4-Vision and longer contexts
WolframResearch · Nov 11, 2023 · 62d3211 · 62d3211
2 parents 1aed8c2 + c99111a
commit 62d3211
Show file tree

Hide file tree

Showing 14 changed files with 1,305 additions and 309 deletions.
diff --git a/Source/Chatbook/Actions.wl b/Source/Chatbook/Actions.wl
@@ -113,7 +113,6 @@ ChatbookAction[ "TabRight"             , args___ ] := catchMine @ TabRight @ arg
 ChatbookAction[ "ToggleFormatting"     , args___ ] := catchMine @ ToggleFormatting @ args;
 ChatbookAction[ "ToolManage"           , args___ ] := catchMine @ ToolManage @ args;
 ChatbookAction[ "WidgetSend"           , args___ ] := catchMine @ WidgetSend @ args;
-ChatbookAction[ name_String            , args___ ] := catchMine @ throwFailure[ "NotImplemented", name, args ];
 ChatbookAction[ args___                          ] := catchMine @ throwInternalFailure @ ChatbookAction @ args;
 
 (* ::**************************************************************************************************************:: *)
@@ -634,8 +633,9 @@ CopyChatObject // endDefinition;
 (*constructChatObject*)
 constructChatObject // beginDefinition;
 
+(* cSpell: ignore bdprompt *)
 constructChatObject[ messages_List ] :=
-    With[ { chat = chatObject @ standardizeMessageKeys @ messages },
+    With[ { chat = Quiet[ ChatObject @ standardizeMessageKeys @ messages, ChatObject::bdprompt ] },
         chat /; MatchQ[ chat, _chatObject ]
     ];
 
@@ -644,8 +644,6 @@ constructChatObject[ messages_List ] :=
 
 constructChatObject // endDefinition;
 
-chatObject := chatObject = Symbol[ "System`ChatObject" ];
-
 (* ::**************************************************************************************************************:: *)
 (* ::Subsubsection::Closed:: *)
 (*standardizeMessageKeys*)