Make today configurable from commnad-line.

This commit is contained in:
Dominik Pantůček 2023-05-22 08:53:39 +02:00
parent ea9336b9bc
commit 3deb187036
2 changed files with 6 additions and 0 deletions

View file

@ -29,6 +29,7 @@
cal-period
(
*current-month*
*current-day*
make-cal-period

View file

@ -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"