David T. Lewis uploaded a new version of Chronology-Core to project The Trunk:
http://source.squeak.org/trunk/Chronology-Core-cbc.41.mcz==================== Summary ====================
Name: Chronology-Core-cbc.41
Author: cbc
Time: 22 April 2019, 8:58:13.835953 am
UUID: 3d8013b6-d58f-004e-8e6b-5a59ed5841e7
Ancestors: Chronology-Core-dtl.40
We have the ability to change the starting day of the week (Week>>startDay:).
This change adds #dayOfLocalWeek to DateAndTime and Timespan to return the indexed day of the week based on the altered starting day.
Original #dayOfWeek is left as-is along with all other working code.
=============== Diff against Chronology-Core-dtl.40 ===============
Item was added:
+ ----- Method: DateAndTime>>dayOfLocalWeek (in category 'ansi protocol') -----
+ dayOfLocalWeek
+
+ "Sunday=1, ... , Saturday=7"
+
+ ^ (self julianDayNumber + 2 - Week weekdayStartIndex rem: 7) + 1
+ !
Item was added:
+ ----- Method: Timespan>>dayOfLocalWeek (in category 'ansi protocol') -----
+ dayOfLocalWeek
+ "Answer the day of the week represented by the receiver."
+
+ ^ start dayOfLocalWeek!
Item was added:
+ ----- Method: Week class>>weekdayStartIndex (in category 'squeak protocol') -----
+ weekdayStartIndex
+ ^self indexOfDay: self startDay!