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

Link reminders module.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-10 21:46:49 +02:00
parent da82efa356
commit 3351f62e88
2 changed files with 14 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Makefile
View file

@ -47,7 +47,7 @@ HACKERBASE-OBJS=hackerbase.o testing.o listing.o month.o period.o \
member-parser.o web-static.o environment.o mailman.o \
util-set-list.o util-time.o util-tag.o util-io.o \
util-string.o util-io.o util-list.o util-parser.o texts.o \
tests.o util-proc.o util-mail.o
tests.o util-proc.o util-mail.o reminders.o
.PHONY: imports
imports: $(HACKERBASE-DEPS)
@ -314,3 +314,9 @@ UTIL-MAIL-SOURCES=util-mail.scm util-io.import.scm
util-mail.o: util-mail.import.scm
util-mail.import.scm: $(UTIL-MAIL-SOURCES)
REMINDERS-SOURCES=reminders.scm member-record.import.scm \
util-mail.import.scm util-dict-list.import.scm
reminders.o: reminders.import.scm
reminders.import.scm: $(REMINDERS-SOURCES)

8
src/reminders.scm
View file

@ -50,7 +50,13 @@
;; Prints email to the console
(define (print-reminder-email em)
(print em))
(print "### From: " (ldict-ref em 'from "-"))
(print "### To: " (ldict-ref em 'to))
(print "### Subject: " (ldict-ref em 'subject))
(let loop ((lines (ldict-ref em 'body)))
(when (not (null? lines))
(print (car lines))
(loop (cdr lines)))))
;; Creates and prints reminder email for given member record
(define (make+print-reminder-email mr)