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

Use new mechanism in main file as well.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-22 21:52:21 +02:00
parent fc0d87cbdd
commit 5ce940de24
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/hackerbase.scm
View file

@ -86,14 +86,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)) (set-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)) (set-current-day! (string->cal-day YYYY-MM-DD)))
(*current-month* (cal-day->month (*current-day*))))
(-tstyle (style) "Use given table style: debug, ascii, unicode" (-tstyle (style) "Use given table style: debug, ascii, unicode"
(*table-border-style* (string->symbol style))) (*table-border-style* (string->symbol style)))
(-apikey (fname) "File with Fio API keys" (-apikey (fname) "File with Fio API keys"