cd576ffb3c
to run all kinds of days. also fix a bug so that it properly resets the prefs back to the defaults (and thus has to explicitly set the language)
33 lines
1.0 KiB
Racket
33 lines
1.0 KiB
Racket
#lang racket/base
|
|
(require racket/class
|
|
racket/date
|
|
"private/easter-egg-lib.rkt")
|
|
|
|
(define (run-tests)
|
|
(start-up-on-day 2 14 "Valentine's Day")
|
|
(start-up-on-day 3 2 "Texas Indepenence Day")
|
|
(start-up-on-day 3 26 "Prince Kuhio Day")
|
|
(start-up-on-day 6 11 "King Kamehameha Day")
|
|
(start-up-on-day 7 30 "Eli's birthday")
|
|
(start-up-on-day 10 29 "Matthias's birthday")
|
|
(start-up-on-day 10 31 "Halloween")
|
|
(start-up-on-day 11 1 "Matthew's birthday")
|
|
(start-up-on-day 12 25 "Christmas")
|
|
|
|
(define now (current-seconds))
|
|
(define week-day (date-week-day (seconds->date now)))
|
|
(define seconds-in-a-day (* 60 60 24))
|
|
(define sunday-secs (+ (* (- 7 week-day) seconds-in-a-day) now))
|
|
(define sunday (seconds->date sunday-secs))
|
|
(define monday (seconds->date (+ sunday-secs seconds-in-a-day)))
|
|
(start-up-on-day (date-month sunday)
|
|
(date-day sunday)
|
|
"Weekend")
|
|
(start-up-on-day (date-month monday)
|
|
(date-day monday)
|
|
"Weekday"))
|
|
|
|
|
|
|
|
(run-tests)
|