;;; 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")))