From 57186f444f8d4fe3af1abe51a468414d34df95fc Mon Sep 17 00:00:00 2001 From: ruidajo Date: Thu, 27 Jul 2023 11:20:19 -0500 Subject: [PATCH] Refactoring messages. --- .../instance/configureDefaultReportingPeriod.st | 8 ++++++++ .../NitterUser.class/instance/messages.st | 15 +++++++-------- 2 files changed, 15 insertions(+), 8 deletions(-) create mode 100644 Socialmetrica.package/NitterUser.class/instance/configureDefaultReportingPeriod.st diff --git a/Socialmetrica.package/NitterUser.class/instance/configureDefaultReportingPeriod.st b/Socialmetrica.package/NitterUser.class/instance/configureDefaultReportingPeriod.st new file mode 100644 index 0000000..f041732 --- /dev/null +++ b/Socialmetrica.package/NitterUser.class/instance/configureDefaultReportingPeriod.st @@ -0,0 +1,8 @@ +accessing +configureDefaultReportingPeriod + [ config at: 'reportingPeriod' ] + onErrorDo: [ self config + at: 'reportingPeriod' + put: (Timespan + starting: messages oldest created asDateAndTime + ending: messages newest created asDateAndTime + 1 minute) ] \ 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 b0f5c5f..45af756 100644 --- a/Socialmetrica.package/NitterUser.class/instance/messages.st +++ b/Socialmetrica.package/NitterUser.class/instance/messages.st @@ -1,13 +1,12 @@ accessing messages - messages ifNil: [ messages := TweetsCollection new ]. messages ifEmpty: [ self getLocalMessages ]. messages ifEmpty: [ self getRemoteMessagesFromHtml ]. - [ 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 + config at: 'reportingPeriod' ifAbsent: [ ^ messages ]. + "self configureDefaultReportingPeriod." + ^ messages + select: [ :message | + message created + between: self reportingPeriod start + and: self reportingPeriod end ] \ No newline at end of file