diff --git a/Socialmetrica.package/Timespan.extension/instance/asDates.st b/Socialmetrica.package/Timespan.extension/instance/asDates.st new file mode 100644 index 0000000..11e9fec --- /dev/null +++ b/Socialmetrica.package/Timespan.extension/instance/asDates.st @@ -0,0 +1,5 @@ +*Socialmetrica +asDates + + ^ {self start. + (self start + self duration)} \ No newline at end of file diff --git a/Socialmetrica.package/Week.extension/instance/asDatesString.st b/Socialmetrica.package/Timespan.extension/instance/asDatesString.st similarity index 100% rename from Socialmetrica.package/Week.extension/instance/asDatesString.st rename to Socialmetrica.package/Timespan.extension/instance/asDatesString.st diff --git a/Socialmetrica.package/Week.extension/instance/asDatesStrings.st b/Socialmetrica.package/Timespan.extension/instance/asDatesStrings.st similarity index 100% rename from Socialmetrica.package/Week.extension/instance/asDatesStrings.st rename to Socialmetrica.package/Timespan.extension/instance/asDatesStrings.st diff --git a/Socialmetrica.package/Timespan.extension/properties.json b/Socialmetrica.package/Timespan.extension/properties.json new file mode 100644 index 0000000..97d20a4 --- /dev/null +++ b/Socialmetrica.package/Timespan.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "Timespan" +} \ No newline at end of file diff --git a/Socialmetrica.package/TweetsCollection.class/instance/splitBytimeSpansOf..st b/Socialmetrica.package/TweetsCollection.class/instance/splitBytimeSpansOf..st new file mode 100644 index 0000000..0631b89 --- /dev/null +++ b/Socialmetrica.package/TweetsCollection.class/instance/splitBytimeSpansOf..st @@ -0,0 +1,11 @@ +accessing +splitBytimeSpansOf: integerDivisions + + | borders response | + response := OrderedDictionary new. + (self timeSpansOf: integerDivisions) doWithIndex: [ :span :i | + response + at: span asDatesString + put: (self select: [ :message | span includes: (message created asDateAndTime)]) + ]. + ^ response \ No newline at end of file