From 53be61d3457609c55a9f8b14a0a89d64b7e2157e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Thu, 26 Dec 2024 21:21:31 +0100
Subject: [PATCH] Generate date and GM number.

---
 src/export-sheet.scm | 14 +++++++++-----
 src/hackerbase.scm   |  6 ++++--
 2 files changed, 13 insertions(+), 7 deletions(-)

diff --git a/src/export-sheet.scm b/src/export-sheet.scm
index 90ac1d9..31c217f 100644
--- a/src/export-sheet.scm
+++ b/src/export-sheet.scm
@@ -43,18 +43,22 @@
 	 members-payments
 	 util-format
 	 members-fees
-	 cal-period)
+	 cal-period
+	 cal-day)
 
- (define (print-attendance-sheet MB)
+ (define (print-attendance-sheet MB number)
    (print "\\documentclass[10pt]{article}")
    (print "\\usepackage[top=1cm,left=2cm,right=2cm,bottom=2cm]{geometry}")
    (print "\\begin{document}")
    (print "\\begin{center}")
    (print
     (format
-     "Prezenční listina ~A. Valné Hromady brmlab z.s. konané ~A v sídle spolku"
-     666
-     "1.2.3456"))
+     "Prezenční listina ~A. Valné Hromady brmlab z.s. konané ~A. ~A. ~A v sídle spolku"
+     number  
+     (cal-day-day (*current-day*))
+     (cal-day-month (*current-day*))
+     (cal-day-year (*current-day*))
+     ))
    (newline)
    (print "\\vskip1em")
    (newline)
diff --git a/src/hackerbase.scm b/src/hackerbase.scm
index 9758e93..7074d1e 100644
--- a/src/hackerbase.scm
+++ b/src/hackerbase.scm
@@ -67,6 +67,7 @@
 (define -show-only-active- (make-parameter #f))
 (define -notify-months- (make-parameter 1))
 (define -send-emails- (make-parameter #f))
+(define -number- (make-parameter #f))
 
 ;; Arguments parsing
 (command-line
@@ -183,9 +184,10 @@
  (-stats (file:gnuplot-data) "Get stats for all months"
 	 (-action- 'print-stats)
 	 (-fname- file:gnuplot-data))
- (-sheet (filename) "Generate attendance sheet"
+ (-sheet (filename gmnum) "Generate attendance sheet for given GM number"
 	 (-needs-bank- #t)
 	 (-fname- filename)
+	 (-number- gmnum)
 	 (-action- 'gen-sheet))
 	 
  ""
@@ -363,7 +365,7 @@
   ((gen-sheet)
    (log-info "Generating attendance sheet")
    (parameterize ((current-output-port (open-output-file (-fname-))))
-     (print-attendance-sheet MB)))
+     (print-attendance-sheet MB (-number-))))
   ((edit)
    (if mr
        (let ()