blob: 64d14d04ed2b8083dac6ab43e15b799bfc4ea09c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
;;; SPDX-FileCopyrightText: 2026 Matthew Fennell <matthew@fennell.dev>
;;;
;;; SPDX-License-Identifier: AGPL-3.0-or-later
(include "secrets.scm")
(include "util.scm")
(define default-venues '(botwell-green-leisure-centre))
(define default-activities '(badminton-40min badminton-60min))
(define default-dates '(sat sun))
(define default-min-lookahead-days 3)
(define default-checkout #t)
(define default-user matthew)
(define (default-scorer booking)
(let ((score (lambda (pred amount) (if (pred booking) amount 0))))
(+
(score rob-friendly? 4)
(score badminton-60min? 2)
(score sat? 1)
(score unreasonable-time? -8)
)))
(define (rob-friendly? booking)
(between-hours? booking "13:00" "18:00"))
(define (unreasonable-time? booking)
(not (between-hours? booking "10:00" "22:00")))
|
