brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Output email with address, nick and id.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-10 21:59:14 +02:00
parent f4cb441835
commit 8a89fc3ad6
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/member-record.scm
View file

@ -332,7 +332,7 @@
(loop (cddr fmtl)
(cons (case (cadr fmtl)
((#\N) (member-record-info mr 'nick))
((#\I) (number->string (member-record-info mr 'id)))
((#\I) (number->string (member-id mr)))
((#\S) (number->string (member-suspended-months mr)))
((#\E)
(let ((n (length (ldict-ref mr 'highlights '()))))

8
src/reminders.scm
View file

@ -40,15 +40,15 @@
;; Creates reminder email body
(define (reminder-email-body mr)
(list
(member-format "reminder for ~N" mr)
(member-format "reminder for ~N id ~I" mr)
))
;; Creates reminder email dictionary
(define (make-reminder-email mr)
(make-ldict
`((to (member-email mr))
(subject "Připomínka členských příspěvků / Membership fees reminder")
(body ,(reminder-email-body mr)))))
`((to . ,(member-record-info mr 'mail))
(subject . "Připomínka členských příspěvků / Membership fees reminder")
(body . ,(reminder-email-body mr)))))
;; Prints email to the console
(define (print-reminder-email em)