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

More porting.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-09 23:01:43 +02:00
parent d1cbfffc8f
commit f1707906d4
2 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cal-period.scm
View file

@ -71,8 +71,8 @@
(define *current-month*
(make-parameter
(let ((d (seconds->local-time (current-seconds))))
(list (+ 1900 (vector-ref d 5))
(+ (vector-ref d 4) 1)))))
(make-cal-month (+ 1900 (vector-ref d 5))
(+ (vector-ref d 4) 1)))))
;; Creates a new period value with optional since and before
;; comments.

3
src/hackerbase.scm
View file

@ -41,6 +41,7 @@
logging
progress
cal-period
cal-month
util-git
util-dict-list)
@ -236,7 +237,7 @@
(case (-action-)
((print-info)
(newline)
(print "Current month: " (month->string (*current-month*)))
(print "Current month: " (cal-month->string (*current-month*)))
(newline)
(if mr
(print-member-table mr)