brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Set today to 1st of specified month upon -month.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-22 08:54:40 +02:00
parent 3deb187036
commit e02fce55b4
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/hackerbase.scm
View file

@ -84,7 +84,10 @@
(*members-directory* dir)) (*members-directory* dir))
(-month (YYYY-MM) "Specify current month" (-month (YYYY-MM) "Specify current month"
(-normal-month- #f) (-normal-month- #f)
(*current-month* (string->cal-month YYYY-MM))) (*current-month* (string->cal-month YYYY-MM))
(*current-day* (make-cal-day (cal-month-year (*current-month*))
(cal-month-month (*current-month*))
1)))
(-today (YYYY-MM-DD) "Specify current day" (-today (YYYY-MM-DD) "Specify current day"
(-normal-month- #f) (-normal-month- #f)
(*current-day* (string->cal-day YYYY-MM-DD)) (*current-day* (string->cal-day YYYY-MM-DD))