diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-25 14:37:13 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-25 14:37:13 +0200 |
commit | 47c1ef23b1f3038e95beda254081cb0dce63327b (patch) | |
tree | 45a83c64d1715968dbbb8109270cb9e967107796 /module/datetime.scm | |
parent | Add note about weeks starting on sunday. (diff) | |
download | calp-47c1ef23b1f3038e95beda254081cb0dce63327b.tar.gz calp-47c1ef23b1f3038e95beda254081cb0dce63327b.tar.xz |
Add current-datetime.
Diffstat (limited to 'module/datetime.scm')
-rw-r--r-- | module/datetime.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/module/datetime.scm b/module/datetime.scm index 5b9a65e5..f78b7d69 100644 --- a/module/datetime.scm +++ b/module/datetime.scm @@ -700,6 +700,9 @@ month: ((@ (srfi srfi-19) date-month) d) day: ((@ (srfi srfi-19) date-day) d)))) +(define-public (current-datetime) + (unix-time->datetime ((@ (guile) current-time)))) + |