From 3deb187036b301670bd129c170e19895ae340d14 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Mon, 22 May 2023 08:53:39 +0200
Subject: [PATCH] Make today configurable from commnad-line.

---
 src/cal-period.scm | 1 +
 src/hackerbase.scm | 5 +++++
 2 files changed, 6 insertions(+)

diff --git a/src/cal-period.scm b/src/cal-period.scm
index 5ff69eb..4b32b59 100644
--- a/src/cal-period.scm
+++ b/src/cal-period.scm
@@ -29,6 +29,7 @@
  cal-period
  (
   *current-month*
+  *current-day*
   
   make-cal-period
 
diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 6625cc4..4afb760 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -42,6 +42,7 @@
 	progress
 	cal-period
 	cal-month
+	cal-day
 	util-git
 	util-dict-list
 	util-stdout)
@@ -84,6 +85,10 @@
  (-month (YYYY-MM) "Specify current month"
 	 (-normal-month- #f)
 	 (*current-month* (string->cal-month YYYY-MM)))
+ (-today (YYYY-MM-DD) "Specify current day"
+	 (-normal-month- #f)
+	 (*current-day* (string->cal-day YYYY-MM-DD))
+	 (*current-month* (cal-day->month (*current-day*))))
  (-tstyle (style) "Use given table style: debug, ascii, unicode"
 	  (*table-border-style* (string->symbol style)))
  (-apikey (fname) "File with Fio API keys"