The Trunk: ReleaseBuilder-mt.198.mcz

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-mt.198.mcz

==================== Summary ====================

Name: ReleaseBuilder-mt.198
Author: mt
Time: 19 September 2019, 10:25:20.191528 am
UUID: d9ad83c4-46ac-c44d-92f1-f7d07febea0a
Ancestors: ReleaseBuilder-mt.197

Improves readability of changes file-out. Actually file-out the changes between 5.2 release and current Trunk.

=============== Diff against ReleaseBuilder-mt.197 ===============

Item was changed:
  ----- Method: ReleaseBuilder class>>changesBetweenReleases (in category 'scripts - support') -----
  changesBetweenReleases
 
  | repos configs result |
+ repos :=#(52) collect: [:ea |
- repos :=#(51) collect: [:ea |
  (MCHttpRepository
     location: 'http://source.squeak.org/squeak', ea
     user: 'squeak'
     password: 'squeak')].
  configs := repos collect: [:ea | ea description -> (self firstConfigurationIn: ea map: 'update')].
  configs := configs, {(self buildRepository description -> self buildConfiguration)}.
 
  result := OrderedDictionary new.
  configs overlappingPairsDo: [:c1 :c2 |
  result
  at: c2 key
  put: (self changesBetween: c1 value and: c2 value)].
 
  ^ result
  !

Item was changed:
  ----- Method: ReleaseBuilder class>>fileOutChangesBetweenReleases (in category 'scripts - support') -----
  fileOutChangesBetweenReleases
  "Generate mark-down files with all commit messages by release. To be used to write release notes."
 
  | fileNames |
  fileNames := OrderedCollection new.
 
  self changesBetweenReleases keysAndValuesDo: [:location :c |
  fileNames add: ('commits-{1}.md' format: {(location findTokens: '/') last}).
  FileStream forceNewFileNamed: fileNames last do: [:strm |
  c keysAndValuesDo: [:pkg :changes |
  strm nextPutAll: '# '; nextPutAll: pkg name; cr.
  changes keysAndValuesDo: [:ver :msg |
  msg linesDo: [:line | line withBlanksTrimmed ifNotEmpty: [:m |
  (m first isDigit or: [{$*. $-} includes: m first])
  ifTrue: [strm nextPutAll: '   ', m]
  ifFalse: [strm nextPutAll: ' - ', m].
+ strm cr]].
+ strm nextPutAll: '------------------'; cr]]]].
- strm cr]]]]]].
 
  self inform: 'Files written:\' withCRs, (fileNames joinSeparatedBy: String cr).!