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

Finish porting.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-09 22:58:46 +02:00
parent cc463991c1
commit d1cbfffc8f
2 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/hackerbase.scm
View file

@ -24,7 +24,6 @@
;; ;;
(import (chicken repl) (import (chicken repl)
month
command-line command-line
mbase mbase
brmember brmember
@ -41,7 +40,7 @@
util-mail util-mail
logging logging
progress progress
period cal-period
util-git util-git
util-dict-list) util-dict-list)

16
src/members-print.scm
View file

@ -47,12 +47,12 @@
(chicken format) (chicken format)
util-dict-list util-dict-list
brmember brmember
month cal-month
util-list util-list
table table
listing listing
ansi ansi
period cal-period
primes primes
mbase mbase
configuration configuration
@ -102,10 +102,12 @@
(map (map
(lambda (p) (lambda (p)
(list (list
(string-append (month->string (period-since p)) " " (string-append (cal-month->string
(or (period-scomment p) "")) (cal-period-since p)) " "
(string-append (month->string (period-before p)) " " (or (cal-period-scomment p) ""))
(or (period-bcomment p) "")))) (string-append (cal-month->string
(cal-period-before p)) " "
(or (cal-period-bcomment p) ""))))
v)) v))
#:col-border #t))) #:col-border #t)))
(else (else
@ -251,7 +253,7 @@
(let loop ((rows data)) (let loop ((rows data))
(when (not (null? rows)) (when (not (null? rows))
(let* ((row (car rows)) (let* ((row (car rows))
(month (month->string (car row))) (month (cal-month->string (car row)))
(vals (cdr row))) (vals (cdr row)))
(print month " " (string-intersperse (map number->string vals) " ")) (print month " " (string-intersperse (map number->string vals) " "))
(loop (cdr rows))))))) (loop (cdr rows)))))))