[squeak-dev] The Trunk: System-mt.1342.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Apr 18 10:12:48 UTC 2022
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1342.mcz
==================== Summary ====================
Name: System-mt.1342
Author: mt
Time: 18 April 2022, 12:12:44.029816 pm
UUID: 252dec0f-c955-6845-9f33-b0cc3d5fb1de
Ancestors: System-mt.1341
Makes CI status in update dialog more compact.
=============== Diff against System-mt.1341 ===============
Item was changed:
----- Method: SystemVersion>>ciStatusBadgeUrl (in category 'continuous integration') -----
ciStatusBadgeUrl
"shields.io needs a workflow's descriptive name, not the name of the .yml file."
+ ^ 'https://raster.shields.io/github/workflow/status/squeak-smalltalk/squeak-app/{1}/{2}?style=flat&logo=github&label='
- ^ 'https://raster.shields.io/github/workflow/status/squeak-smalltalk/squeak-app/{1}/{2}?style=flat&logo=github'
format: {self ciWorkflowName encodeForHTTP. self ciBranch}!
Item was changed:
----- Method: SystemVersion>>ciStatusTimestamp (in category 'continuous integration') -----
ciStatusTimestamp
"Slow. Fetch HTML page, extract first occurrence of
... <time-ago datetime='2021-08-04T14:24:20Z' ... "
| statusResponse statusPage begin end dateAndTime |
statusResponse := WebClient httpGet: self ciStatusPageUrl.
statusResponse isSuccess ifFalse: [^ nil].
statusPage := statusResponse content.
begin := statusPage findString: 'datetime' startingAt: 100000. "Skip the first X bytes decoration."
end := statusPage findString: 'Z' startingAt: begin.
dateAndTime := DateAndTime readFrom: (statusPage copyFrom: begin + 10 to: end) readStream.
^ String streamContents: [:s |
dateAndTime asDate = Date today
ifTrue: [s nextPutAll: 'Today' translated, ',']
ifFalse: [dateAndTime asDate = Date yesterday
ifTrue: [s nextPutAll: 'Yesterday' translated, ',']
ifFalse: [dateAndTime printYMDOn: s]].
s space.
+ dateAndTime printHMOn: s]!
- dateAndTime printHMSOn: s]!
More information about the Squeak-dev
mailing list
|