The Trunk: SystemReporter-mt.29.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: SystemReporter-mt.29.mcz

commits-2
Marcel Taeumel uploaded a new version of SystemReporter to project The Trunk:
http://source.squeak.org/trunk/SystemReporter-mt.29.mcz

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

Name: SystemReporter-mt.29
Author: mt
Time: 29 July 2016, 1:56:31.420062 pm
UUID: acb6c18a-32cd-0346-a521-610207d5c2f2
Ancestors: SystemReporter-mt.28

Order all Squeak Contributors alphabetically.

=============== Diff against SystemReporter-mt.28 ===============

Item was changed:
  ----- Method: SystemReporter>>reportContributors: (in category 'reporting') -----
  reportContributors: stream
 
+ self header: 'Squeak Contributors (alphabetically)' on: stream.
- | squeakBoardAuthors |
- self header: 'Squeak Contributors' on: stream.
 
  stream withAttribute: (TextColor color: (Color r: 0 g: 0.5 b: 0)) do: [
  stream nextPutAll: 'If we forgot to mention YOU in this list, please report to [hidden email]'].
+ stream cr; cr.
- stream cr.
 
+ SystemNavigation authors keys sorted do: [:fullName |
- "Squeak Oversight Board Members and other influential Squeakers since its first days. :-)"
- squeakBoardAuthors := (SystemNavigation authors keys
- select: [:nm | #(curtis kaehler ingalls teitelbaum freudenberg latta 't. lewis' muller rowledge taeumel uzonyi assumpcao black causey cleene cunnington groot denker ducasse miranda ohshima putney raab schwartz shearar stasenko vuletich) anySatisfy: [:token | nm includesSubstring: token caseSensitive: false]]).
-
- stream cr.
- squeakBoardAuthors sorted do: [:fullName |
  (SystemNavigation authors at: fullName) in: [:abbreviations |
- stream nextPutAll: ('{1} ({2})' format: {fullName. abbreviations asArray joinSeparatedBy: ' '}); cr]].
-
- stream cr.
- stream withAttribute: (TextColor color: (Color r: 0 g: 0.5 b: 0)) do: [
- stream nextPutAll: '_,.-''~''-.,__,.-''~''-.,__,.-''~''-.,__,.-''~''-.,__,.-''~''-.,_'].
- stream cr;cr .
-
- (SystemNavigation authors keys copyWithoutAll: squeakBoardAuthors) sorted do: [:fullName |
- (SystemNavigation authors at: fullName) in: [:abbreviations |
  stream nextPutAll: ('{1} ({2})' format: {fullName. abbreviations asArray joinSeparatedBy: ' '}); cr]].!