Creating tweets collection split by weeks.

Socialmetrica.package/TweetsCollection.class/instance/splitByWeeks.st

@@ -0,0 +1,11 @@
+accessing
+splitByWeeks
+
+	| response spans |
+	response := OrderedDictionary new.
+	self timeSpansByWeeks doWithIndex: [ :span :i |
+		response
+			at: span asDatesString
+			put: (self select: [ :message | span includes: (message created asDateAndTime)])
+	].
+	^ response

Socialmetrica.package/TweetsCollection.class/instance/timeSpansByWeeks.st

@@ -0,0 +1,5 @@
+accessing
+timeSpansByWeeks
+
+	^ (Timespan starting: self oldest created ending: self newest created) 
+			weeks asOrderedCollection

Socialmetrica.package/Week.extension/instance/asDates.st

@@ -0,0 +1,5 @@
+*Socialmetrica
+asDates
+
+	^ {self start.
+	(self start + self duration) - 1 milliSecond}

Socialmetrica.package/Week.extension/instance/asDatesString.st

@@ -0,0 +1,9 @@
+*Socialmetrica
+asDatesString
+
+	| dates firstDate |
+	dates := self asDatesStrings.
+	firstDate := dates first splitOn: ' '.
+	firstDate removeLast.
+	firstDate:= '' join: firstDate.
+	^ firstDate, '→', (dates second copyWithoutAll: ' ')

Socialmetrica.package/Week.extension/instance/asDatesStrings.st

@@ -0,0 +1,4 @@
+*Socialmetrica
+asDatesStrings
+
+	^ self asDates collect: [ :date | date asDate asString ]

Socialmetrica.package/Week.extension/properties.json

@@ -0,0 +1,3 @@
+{
+	"name" : "Week"
+}