Format today as ISO date.

src/configuration.scm

@@ -35,6 +35,7 @@
   *jendasap-checked*
   *bank-dir*
   *email-from*
+  *summary-mailto*
   
   load-configuration!
   )
@@ -73,6 +74,10 @@
  (define *email-from* (make-parameter #f))
  (define =email-from= "Brmlab - Rada <rada@brmlab.cz>")
 
+ ;; TODO - later move to configuration
+ (define *summary-mailto* (make-parameter #f))
+ (define =summary-mailto= "rada@brmlab.cz")
+
  ;; Loads the configuration file and possibly changes the default
  ;; parameters.
  (define (load-configuration!)
@@ -101,6 +106,9 @@
 		 ((email-from)
 		  (when (not (*email-from*))
 		    (*email-from* v)))
+		 ((summary-mailto)
+		  (when (not (*summary-mailto*))
+		    (*summary-mailto* v)))
 		 )))
 	   (loop (cdr lines))))))
    (when (not (*members-directory*))
@@ -111,6 +119,8 @@
      (*jendasap-checked* =jendasap-checked=))
    ;; No bank-dir - #f default
    (when (not (*email-from*))
-     (*email-from* =email-from=)))
+     (*email-from* =email-from=))
+   (when (not (*summary-mailto*))
+     (*summary-mailto* =summary-mailto=)))
 
  )

src/notifications.scm

@@ -43,10 +43,8 @@
 	 members-payments
 	 util-format
 	 brmember-format
-	 configuration)
-
- ;; TODO - later move to configuration
- (define *summary-mailto* (make-parameter "rada@brmlab.cz"))
+	 configuration
+	 util-time)
 
  ;; Prints email to the console
  (define (print-notification-email em)
@@ -117,7 +115,8 @@
  (define (make-summary-email mb)
    (make-ldict
     `((to . ,(*summary-mailto*))
-      (subject . "xxx")
+      (subject . ,(format "Členské příspěvky ~A"
+			  (today/iso)))
       (body . ,(summary-email-body mb)))))
 
  (define (make+print-summary-email mb)

src/util-time.scm

@@ -29,10 +29,13 @@
  util-time
  (
   current-util-milliseconds
+  today/iso
   )
 
  (import scheme
-	 (chicken time))
+	 (chicken time)
+	 (chicken time posix)
+	 (chicken format))
 
  ;; Compatibility wrapper
  (define (current-util-milliseconds)
@@ -46,5 +49,20 @@
     (else
      (current-process-milliseconds))))
 
+ ;; Returns today as YYYY-MM-DD string
+ (define (today/iso)
+   (let ((d (seconds->local-time)))
+     (format "~A-~A-~A"
+	     (number->string
+	      (+ 1900 (vector-ref d 5)))
+	     (substring
+	      (number->string
+	       (+ 101 (vector-ref d 4)))
+	      1)
+	     (substring
+	      (number->string
+	       (+ 100 (vector-ref d 3)))
+	      1))))
+
  )