<commit_before>accessing
textLenghtInfo
	^ Text streamContents: [ :aStream | | textColor |
			textColor := self exceedsMessageLenghtLimit
				ifTrue: [ self exceedTextColor ]
				ifFalse: [ self textColor ].
			aStream
				withAttribute:
					(TextColor new
						color: textColor;
						yourself)
				do: [ aStream
						nextPutAll: 'Length: ';
						print: self text size;
						nextPutAll: ' out of ';
						print: DSConstants maxMessageLenght.
				self exceedsMessageLenghtLimit ifTrue: [ 
					aStream 
						nextPutAll: ' Cursor position: ';
						print: self textArea pointIndex ] ] ]<commit_msg>improve message #22<commit_after>accessing
textLenghtInfo
	^ Text streamContents: [ :aStream |
			aStream
				withAttribute:
					(TextColor new
						color: self exceedTextColor;
						yourself)
				do: [ aStream
						nextPutAll: 'Text too long: ';
						print: self text size;
						nextPutAll: ' characters (max. ';
						print: DSConstants maxMessageLenght;
						nextPutAll: '), cursor at ';
						print: self textArea pointIndex ] ]
{'fraction_non_alphanumeric': 0.08637236084452975, 'fraction_numerical': 0.0019193857965451055, 'mean_word_length': 2.862962962962963, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '4760499', 'n_tokens_mistral': 447, 'n_tokens_neox': 322, 'n_words': 85}