From e02fce55b4fdffce2cb410f6e4e1ca50cff0c083 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 22 May 2023 08:54:40 +0200 Subject: [PATCH] Set today to 1st of specified month upon -month. --- src/hackerbase.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/hackerbase.scm b/src/hackerbase.scm index 4afb760..5bae170 100644 --- a/src/hackerbase.scm +++ b/src/hackerbase.scm @@ -84,7 +84,10 @@ (*members-directory* dir)) (-month (YYYY-MM) "Specify current month" (-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" (-normal-month- #f) (*current-day* (string->cal-day YYYY-MM-DD))