Remove current-month from configuration.

This commit is contained in:
Dominik Pantůček 2023-04-12 21:58:41 +02:00
parent 94cf210ac4
commit f115379645

View file

@ -48,13 +48,6 @@
month
util-parser)
;; Current month - if changed, we get the actual state for given month.
(define *current-month*
(make-parameter
(let ((d (seconds->local-time (current-seconds))))
(list (+ 1900 (vector-ref d 5))
(+ (vector-ref d 4) 1)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Initial configuration from *etc-hackerbase*