From fb00701e9e93a13748c91ba998ec5e783e878df0 Mon Sep 17 00:00:00 2001 From: ruidajo Date: Thu, 9 Jun 2022 18:07:22 -0500 Subject: [PATCH] Fixing messages and Improving remote messages from html. --- .../instance/getRemoteMessagesFromHtml.st | 3 +-- .../NitterUser.class/instance/messages.st | 9 +++++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/Socialmetrica.package/NitterUser.class/instance/getRemoteMessagesFromHtml.st b/Socialmetrica.package/NitterUser.class/instance/getRemoteMessagesFromHtml.st index bdad00c..f768809 100644 --- a/Socialmetrica.package/NitterUser.class/instance/getRemoteMessagesFromHtml.st +++ b/Socialmetrica.package/NitterUser.class/instance/getRemoteMessagesFromHtml.st @@ -1,5 +1,4 @@ accessing getRemoteMessagesFromHtml - self messages: (self collectRawTweetsUpToPage: 1). - ^ self messages \ No newline at end of file + ^ messages := self collectRawTweetsUpToPage: 1 \ No newline at end of file diff --git a/Socialmetrica.package/NitterUser.class/instance/messages.st b/Socialmetrica.package/NitterUser.class/instance/messages.st index c2a442b..552d6a8 100644 --- a/Socialmetrica.package/NitterUser.class/instance/messages.st +++ b/Socialmetrica.package/NitterUser.class/instance/messages.st @@ -1,7 +1,12 @@ accessing messages - messages ifNil: [ ^ messages := TweetsCollection new ]. + messages ifNil: [ messages := TweetsCollection new ]. messages ifEmpty: [ self getRemoteMessagesFromHtml ]. - self config isEmpty ifTrue: [ ^ messages ]. + [ config at: 'reportingPeriod' ] + onErrorDo: [ self config + at: 'reportingPeriod' + put: (Timespan + starting: (messages oldest created asDateAndTime) + ending: (messages newest created asDateAndTime + 1 minute)) ]. ^ messages select: [ :message | message created between: self reportingPeriod start and: self reportingPeriod end ] \ No newline at end of file