11 lines
265 B
Smalltalk
11 lines
265 B
Smalltalk
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 |