Make today configurable from commnad-line.
This commit is contained in:
parent
ea9336b9bc
commit
3deb187036
2 changed files with 6 additions and 0 deletions
|
@ -29,6 +29,7 @@
|
|||
cal-period
|
||||
(
|
||||
*current-month*
|
||||
*current-day*
|
||||
|
||||
make-cal-period
|
||||
|
||||
|
|
|
@ -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"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue