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 | |
| parent | Add note about weeks starting on sunday. (diff) | |
| download | calp-47c1ef23b1f3038e95beda254081cb0dce63327b.tar.gz calp-47c1ef23b1f3038e95beda254081cb0dce63327b.tar.xz | |
Add current-datetime.
| -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)))) + |