From 2ef2099c7dd8b091874bd41350fd9e895eb7c1ce Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 17 Apr 2023 22:18:45 +0200 Subject: [PATCH] Start work on unpaired transactions. --- src/notifications.scm | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/src/notifications.scm b/src/notifications.scm index 6d4ed21..bc73895 100644 --- a/src/notifications.scm +++ b/src/notifications.scm @@ -114,11 +114,18 @@ (define (summary-email-body mb) (let* ((mbs (members-summary mb)) (students (car mbs)) - (full (cdr mbs))) - (list (format "Expected income: ~A" 0) - (format " ~A full members" full) - (format " ~A students" students) - ))) + (full (cdr mbs)) + (income (+ (* (lookup-member-fee 'normal) full) + (* (lookup-member-fee 'student) students))) + (income-lst + (list (format "Expected income: ~A CZK" income) + (format " ~A full members" full) + (format " ~A students" students))) + (unpaired-lst + (list "" + "Unpaired transactions:"))) + (append income-lst + unpaired-lst))) ;; Creates the summary email structure (define (make-summary-email mb)