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

Add preliminary current day specification.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-21 22:02:11 +02:00
parent f20f815784
commit ea9336b9bc
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cal-period.scm
View file

@ -77,6 +77,14 @@
(make-cal-month (+ 1900 (vector-ref d 5)) (make-cal-month (+ 1900 (vector-ref d 5))
(+ (vector-ref d 4) 1))))) (+ (vector-ref d 4) 1)))))
;; Current month - if changed, we get the actual state for given month.
(define *current-day*
(make-parameter
(let ((d (seconds->local-time (current-seconds))))
(make-cal-day (+ 1900 (vector-ref d 5))
(+ (vector-ref d 4) 1)
(vector-ref d 3)))))
;; Creates a new period value with optional since and before ;; Creates a new period value with optional since and before
;; comments. ;; comments.
(define (make-cal-period since before . args) (define (make-cal-period since before . args)