Use GToolkit-specific package for LLM core [feenkcom/gtoolkit#4322]

src/Gt4Llm/BrGlamorousVectorIcons.extension.st → src/Gt4Llm-GToolkit/BrGlamorousVectorIcons.extension.st

@@ -1,6 +1,6 @@
 Extension { #name : #BrGlamorousVectorIcons }
 
-{ #category : #'*Gt4Llm' }
+{ #category : #'*Gt4Llm-GToolkit' }
 BrGlamorousVectorIcons class >> largeOpenAi [
 	<script: 'self openAi inspect'>
 	^ [ BlElement new
@@ -11,7 +11,7 @@ BrGlamorousVectorIcons class >> largeOpenAi [
 		background: Color black ] asStencil
 ]
 
-{ #category : #'*Gt4Llm' }
+{ #category : #'*Gt4Llm-GToolkit' }
 BrGlamorousVectorIcons class >> openAi [
 	^ [ self largeOpenAi asElement asScalableElement size: 16 @ 16 ] asStencil
 ]

src/Gt4Llm/Gt4LlmHomeSection.class.st → src/Gt4Llm-GToolkit/Gt4LlmHomeSection.class.st

@@ -4,7 +4,7 @@ Class {
 	#classVars : [
 		'ShouldShowSection'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #settings }

src/Gt4Llm/GtBPEDemoEncodingResultProxy.class.st → src/Gt4Llm-GToolkit/GtBPEDemoEncodingResultProxy.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #GtBPEDemoEncodingResultProxy,
 	#superclass : #PBProxyObject,
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm/GtBPEDemoMergeProxy.class.st → src/Gt4Llm-GToolkit/GtBPEDemoMergeProxy.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #GtBPEDemoMergeProxy,
 	#superclass : #PBProxyObject,
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm-GToolkit/GtBPEEncoder.extension.st

@@ -0,0 +1,14 @@
+Extension { #name : #GtBPEEncoder }
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtBPEEncoder >> getStatsFor: aListOfTokens [
+	| stats |
+	stats := GtCounter new.
+	1
+		to: aListOfTokens size - 1
+		do: [ :anIndex | 
+			stats
+				increment: {aListOfTokens at: anIndex.
+						aListOfTokens at: anIndex + 1} ].
+	^ stats
+]

src/Gt4Llm/GtHome.extension.st → src/Gt4Llm-GToolkit/GtHome.extension.st

@@ -1,6 +1,6 @@
 Extension { #name : #GtHome }
 
-{ #category : #'*Gt4Llm' }
+{ #category : #'*Gt4Llm-GToolkit' }
 GtHome >> gt4llmSection [
 	"<gtHomeSection>"
 	Gt4LlmHomeSection shouldShowSection ifFalse: [ ^ GtHomeEmptySection new ].

src/Gt4Llm-GToolkit/GtLlmActionChat.extension.st

@@ -0,0 +1,11 @@
+Extension { #name : #GtLlmActionChat }
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmActionChat >> asViewModel [
+	^ GtLlmActionChatViewModel new assistantChat: self
+]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmActionChat >> executeWait: aBlock [
+	(self whenReadyFuture then: [ :_ | aBlock value: self messages last ]) await
+]

src/Gt4Llm/GtLlmActionChatViewModel.class.st → src/Gt4Llm-GToolkit/GtLlmActionChatViewModel.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #GtLlmActionChatViewModel,
 	#superclass : #GtLlmChatViewModel,
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm/GtLlmActionTemplateElement.class.st → src/Gt4Llm-GToolkit/GtLlmActionTemplateElement.class.st

@@ -11,7 +11,7 @@ Class {
 		'example',
 		'onActionCreated'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm/GtLlmActionThreadMessageViewModel.class.st → src/Gt4Llm-GToolkit/GtLlmActionThreadMessageViewModel.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'action'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm-GToolkit/GtLlmActionsGroup.extension.st

@@ -0,0 +1,25 @@
+Extension { #name : #GtLlmActionsGroup }
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmActionsGroup >> gtActionsFor: aView [
+	<gtView>
+	^ aView columnedList
+		title: 'Actions';
+		priority: 1;
+		items: [ self items ];
+		column: 'Name'
+			text: #name
+			weight: 0.5;
+		column: 'Description' text: #description;
+		column: 'Actions'
+			stencil: [ :anItem | 
+				BrButton new
+					aptitude: BrGlamorousButtonWithIconAptitude;
+					icon: BrGlamorousVectorIcons cancel;
+					label: 'Remove';
+					action: [ :aButton | 
+						self remove: anItem.
+						anItem removeFromSystem.
+						aButton phlow fireToolUpdateWish ] ]
+			width: 70
+]

src/Gt4Llm/GtLlmApiKeyCardElement.class.st → src/Gt4Llm-GToolkit/GtLlmApiKeyCardElement.class.st

@@ -8,7 +8,7 @@ Class {
 		'fileError',
 		'clientClass'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm/GtLlmBasicThreadMessageViewModel.class.st → src/Gt4Llm-GToolkit/GtLlmBasicThreadMessageViewModel.class.st

@@ -8,7 +8,7 @@ Class {
 		'styler',
 		'checkRunResultViewModels'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm-GToolkit/GtLlmChat.extension.st

@@ -0,0 +1,44 @@
+Extension { #name : #GtLlmChat }
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmChat >> asViewModel [
+	^ GtLlmChatViewModel new assistantChat: self
+]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmChat >> gtMessagesWidgetFor: aView [
+	"cannot be a forward because the update wouldn’t work"
+
+	<gtView>
+	| aViewModel |
+	self provider ifNil: [ ^ aView empty ].
+
+	^ aView explicit
+		title: 'Chat';
+		priority: 0;
+		stencil: [ aViewModel ifNil: [ aViewModel := self asViewModel ].
+			GtLlmChatElement new chatViewModel: aViewModel ];
+		actionUpdateButton
+]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmChat >> gtWriteFor: aView [
+	<gtView>
+	^ aView textEditor
+		title: 'Write';
+		priority: 4;
+		text: [ 'Write a message here' ];
+		actionButtonIcon: BrGlamorousVectorIcons play
+			tooltip: 'Send'
+			action: [ :aButton | 
+				aButton parent parent parent parent
+					allChildrenBreadthFirstDetect: [ :anElement | anElement isKindOf: BrEditor ]
+					ifFound: [ :anEditor | 
+						self sendMessage: anEditor text asString.
+						anEditor text: '' ] ]
+]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmChat >> whenReadyFuture [
+	^ GtLlmChatReadyFuture new chat: self
+]

src/Gt4Llm/GtLlmChatElement.class.st → src/Gt4Llm-GToolkit/GtLlmChatElement.class.st

@@ -7,7 +7,7 @@ Class {
 		'chatViewModel',
 		'listElement'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm/GtLlmChatExamples.class.st → src/Gt4Llm-GToolkit/GtLlmChatExamples.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #GtLlmChatExamples,
 	#superclass : #Object,
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #'as yet unclassified' }

src/Gt4Llm-GToolkit/GtLlmChatMessage.extension.st

@@ -0,0 +1,17 @@
+Extension { #name : #GtLlmChatMessage }
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmChatMessage >> asViewModel [
+	^ GtLlmThreadMessageViewModel new threadMessage: self
+]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmChatMessage >> gtContentFor: aView [
+	<gtView>
+	<gtLlmMessageView>
+	^ aView explicit
+		title: 'Content';
+		priority: 5;
+		stencil: [ GtLlmThreadMessageElement new
+				threadMessageViewModel: self asViewModel ]
+]

src/Gt4Llm/GtLlmChatReadyFuture.class.st → src/Gt4Llm-GToolkit/GtLlmChatReadyFuture.class.st

@@ -7,7 +7,7 @@ Class {
 		'chat',
 		'delay'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm/GtLlmChatViewModel.class.st → src/Gt4Llm-GToolkit/GtLlmChatViewModel.class.st

@@ -7,7 +7,7 @@ Class {
 		'newThreadMessageViewModel',
 		'threadMessageViewModelsCache'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #initialization }

src/Gt4Llm/GtLlmCoderViewModelProposeRenameAction.class.st → src/Gt4Llm-GToolkit/GtLlmCoderViewModelProposeRenameAction.class.st

@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'choices'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #'as yet unclassified' }

src/Gt4Llm-GToolkit/GtLlmEmbeddingRegistry.extension.st

@@ -0,0 +1,22 @@
+Extension { #name : #GtLlmEmbeddingRegistry }
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmEmbeddingRegistry >> gtEmbeddingsFor: aView [
+	<gtView>
+	^ aView columnedList
+		title: 'Embeddings';
+		priority: 1;
+		items: [ embeddings associations ];
+		column: 'Input' text: [ :aPair | aPair value input ];
+		column: 'Actions'
+			stencil: [ :aPair | 
+				BrButton new
+					aptitude: BrGlamorousButtonWithIconAptitude;
+					label: 'Remove';
+					icon: BrGlamorousVectorIcons remove;
+					action: [ :aButton | 
+						embeddings removeKey: aPair key.
+						aButton phlow fireUpdateWish ] ]
+			width: 80;
+		send: #value
+]

src/Gt4Llm/GtLlmExampleViewConversationCollector.class.st → src/Gt4Llm-GToolkit/GtLlmExampleViewConversationCollector.class.st

@@ -6,7 +6,7 @@ Class {
 		'instructions',
 		'viewsBlacklist'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm/GtLlmExpandableThreadMessageElement.class.st → src/Gt4Llm-GToolkit/GtLlmExpandableThreadMessageElement.class.st

@@ -7,7 +7,7 @@ Class {
 		'oneLineThreadMessageElement',
 		'threadMessageElement'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #factory }

src/Gt4Llm-GToolkit/GtLlmFailureThreadMessage.extension.st

@@ -0,0 +1,17 @@
+Extension { #name : #GtLlmFailureThreadMessage }
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmFailureThreadMessage >> elementClass [
+	^ GtLlmThreadMessageElement
+]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmFailureThreadMessage >> gtContentFor: aView [
+	<gtView>
+	<gtLlmMessageView>
+	^ aView explicit
+		title: 'Content';
+		priority: 1;
+		stencil: [ GtLlmThreadMessageElement new
+				threadMessageViewModel: (GtLlmThreadMessageViewModel new threadMessage: self) ]
+]

src/Gt4Llm-GToolkit/GtLlmFineTuningFile.extension.st

@@ -0,0 +1,60 @@
+Extension { #name : #GtLlmFineTuningFile }
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmFineTuningFile >> costsForEpochs: anInteger [ 
+	| numberOfTokens |
+	numberOfTokens := self numberOfTokens * anInteger.
+
+	"this model is free until september 23rd 2024 for under 2M tokens"
+	((self model beginsWith: 'gpt-4o-mini')
+		and: [ Date today
+				< (Date
+						year: 2024
+						month: 9
+						day: 23) and: [ numberOfTokens < 2000000 ] ])
+		ifTrue: [ ^ GtTCurrencyMoney new
+				amount: 0;
+				currency: GtTCurrency usd ].
+
+	^ GtTCurrencyMoney new
+		amount: numberOfTokens * self pricePerToken;
+		currency: GtTCurrency usd
+]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmFineTuningFile >> costsPerEpoch [
+	| numberOfTokens |
+	numberOfTokens := self numberOfTokens.
+
+	"this model is free until september 23rd 2024 for under 2M tokens"
+	((self model beginsWith: 'gpt-4o-mini')
+		and: [ Date today
+				< (Date
+						year: 2024
+						month: 9
+						day: 23) and: [ numberOfTokens < 2000000 ] ])
+		ifTrue: [ ^ GtTCurrencyMoney new
+				amount: 0;
+				currency: GtTCurrency usd ].
+
+	^ GtTCurrencyMoney new
+		amount: numberOfTokens * self pricePerToken;
+		currency: GtTCurrency usd
+]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmFineTuningFile >> gtCostFor: aView [
+	<gtView>
+	^ aView forward
+		title: 'Cost';
+		priority: 3;
+		object: [ self costsPerEpoch ];
+		view: #gtDetailsFor:
+]
+
+{ #category : #'*Gt4Llm-GToolkit' }
+GtLlmFineTuningFile >> numberOfTokens [
+	^ (GtLlmTokenizer new
+		tokenizeMessages: (conversations flatCollect: #items)
+		usingModel: self model) tokenCount
+]

src/Gt4Llm/GtLlmInspectorSummarizer.class.st → src/Gt4Llm-GToolkit/GtLlmInspectorSummarizer.class.st

@@ -1,7 +1,7 @@
 Class {
 	#name : #GtLlmInspectorSummarizer,
 	#superclass : #Object,
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }

src/Gt4Llm/GtLlmInspectorViewSummary.class.st → src/Gt4Llm-GToolkit/GtLlmInspectorViewSummary.class.st

@@ -7,7 +7,7 @@ Class {
 		'viewClass',
 		'withoutMarkup'
 	],
-	#category : #Gt4Llm
+	#category : #'Gt4Llm-GToolkit'
 }
 
 { #category : #accessing }