diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-14 17:45:03 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-14 17:45:03 +0200 |
| commit | cab4413d62d8228ba034b1610acf64e707a8338f (patch) | |
| tree | 53f3acb0d078683d3578fe9e30916b5fc0927a37 /module/datetime.scm | |
| parent | Remove recurrence instances before our start date. (diff) | |
| download | calp-cab4413d62d8228ba034b1610acf64e707a8338f.tar.gz calp-cab4413d62d8228ba034b1610acf64e707a8338f.tar.xz | |
Add some TODO's.
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)))) |