From d1cbfffc8fb4b163b9a6995155aa1f0896dc3701 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Tue, 9 May 2023 22:58:46 +0200
Subject: [PATCH] Finish porting.

---
 src/hackerbase.scm    |  3 +--
 src/members-print.scm | 16 +++++++++-------
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 43e634b..bf1a151 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -24,7 +24,6 @@
 ;;
 
 (import (chicken repl)
-	month
 	command-line
 	mbase
 	brmember
@@ -41,7 +40,7 @@
 	util-mail
 	logging
 	progress
-	period
+	cal-period
 	util-git
 	util-dict-list)
 
diff --git a/src/members-print.scm b/src/members-print.scm
index 5df5338..eb2f853 100644
--- a/src/members-print.scm
+++ b/src/members-print.scm
@@ -47,12 +47,12 @@
 	 (chicken format)
 	 util-dict-list
 	 brmember
-	 month
+	 cal-month
 	 util-list
 	 table
 	 listing
 	 ansi
-	 period
+	 cal-period
 	 primes
 	 mbase
 	 configuration
@@ -102,10 +102,12 @@
 					 (map
 					  (lambda (p)
 					    (list
-					     (string-append (month->string (period-since p)) " "
-							    (or (period-scomment p) ""))
-					     (string-append (month->string (period-before p)) " "
-							    (or (period-bcomment p) ""))))
+					     (string-append (cal-month->string
+							     (cal-period-since p)) " "
+							    (or (cal-period-scomment p) ""))
+					     (string-append (cal-month->string
+							     (cal-period-before p)) " "
+							    (or (cal-period-bcomment p) ""))))
 					  v))
 				   #:col-border #t)))
 			   (else
@@ -251,7 +253,7 @@
      (let loop ((rows data))
        (when (not (null? rows))
 	 (let* ((row (car rows))
-		(month (month->string (car row)))
+		(month (cal-month->string (car row)))
 		(vals (cdr row)))
 	   (print month " " (string-intersperse (map number->string vals) " "))
 	   (loop (cdr rows)))))))