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

Basic calendar processing.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-27 20:58:38 +02:00
parent 6c8d2c8dbd
commit 2a6b364b4a
3 changed files with 30 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
member-fees.scm
View file

@ -29,6 +29,9 @@
member-fees
(
member-calendar
member-calendar-first-month
member-calendar-last-month
member-calendar-query
member-calendar->fees
)
@ -56,6 +59,19 @@
(member-flags mr)))
cal))))))
;; Returns the first month of the calendar
(define (member-calendar-first-month mc)
(caar mc))
;; Returns the last month of the calendar
(define (member-calendar-last-month mc)
(caar (reverse mc)))
;; Returns the calendar entry which matches given month or #f if none
;; found.
(define (member-calendar-query mc m)
(assoc m mc))
(define (member-calendar->fees mr)
#f)