Generate date and GM number.

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)

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 ()