diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-11 00:07:35 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-03-11 00:07:35 +0100 |
commit | 0bfdb8ce894453b1022e9a37662cf13d8289025d (patch) | |
tree | d2a98f0911e3fd9178d305c1575d12a07914dff2 /srfi/srfi-19 | |
parent | Add serialize-vcomponent. (diff) | |
download | calp-0bfdb8ce894453b1022e9a37662cf13d8289025d.tar.gz calp-0bfdb8ce894453b1022e9a37662cf13d8289025d.tar.xz |
Work on RRULE's.
Diffstat (limited to '')
-rw-r--r-- | srfi/srfi-19/util.scm | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/srfi/srfi-19/util.scm b/srfi/srfi-19/util.scm index 81dd7ec5..c0a7fd5e 100644 --- a/srfi/srfi-19/util.scm +++ b/srfi/srfi-19/util.scm @@ -5,8 +5,9 @@ #:export (copy-date drop-time! drop-time today? - seconds minutes hours days weeks - time-add + ;; seconds minutes hours days weeks + ;; time-add + make-duration time->string)) #; @@ -33,21 +34,15 @@ attribute set to 0. Can also be seen as \"Start of day\"" ((date-second) 0) ((date-nanosecond) 0))) - -(define seconds 1) -(define minutes 60) -(define hours (* 60 minutes)) -(define days (* 24 hours)) -(define weeks (* 7 days)) - -(define (time-add time amount unit) - (add-duration time (make-time time-duration 0 (* amount unit)))) +(define (make-duration s) + (make-time time-duration 0 s)) (define (today? time) (let* ((now (date->time-utc (drop-time (current-date)))) - (then (time-add now 1 days))) + (then (add-duration now (make-duration (* 60 60 24))))) (and (time<=? now time) (time<=? time then)))) (define* (time->string time #:optional (format "~c")) (date->string (time-utc->date time) format)) + |