diff options
Diffstat (limited to 'module/datetime.scm')
| -rw-r--r-- | module/datetime.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/module/datetime.scm b/module/datetime.scm index b2a3d38e..b8b515fc 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -686,13 +686,14 @@ time: (parse-ics-time timestr) tz: tz))) - +;; TODO rewrite this (define-public (current-date) (let ((d ((@ (srfi srfi-19) current-date)))) (date year: ((@ (srfi srfi-19) date-year) d) month: ((@ (srfi srfi-19) date-month) d) day: ((@ (srfi srfi-19) date-day) d)))) +;; TODO this returns UTC time, but without a TZ component (define-public (current-datetime) (unix-time->datetime ((@ (guile) current-time)))) |