Work on calendar formatting.

2023-03-27 21:18:11 +02:00 · 2023-03-27 21:18:11 +02:00 · 3e9b421f60
commit 3e9b421f60
parent 2a6b364b4a
3 changed files with 45 additions and 1 deletions
--- a/bbstool.scm
+++ b/bbstool.scm
@ -137,7 +137,13 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
   (if mr
       (let ()
 	 (print-member-table mr)
-	 (print (member-calendar mr)))
+	 (print (table->string (cons (list "" 1 2 3 4 5 6 7 8 9 10 11 12)
+				     (member-calendar->years-table (member-calendar mr)))
+			       #:table-border #t
+			       #:row-border #t
+			       #:col-border #t
+			       #:ansi #t
+			       )))
       (print-members-base-table MB))
   (newline))
  ((print-stats)