diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-24 20:21:41 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-24 20:23:04 +0100 |
| commit | e822f7b81245c919eda8bd8ad4b482df075e0508 (patch) | |
| tree | 3024a9a1a80e5c9ffd6d187a028c783dc4b7abbd /module/vulgar | |
| parent | Extend define-many to allow a custom define procedure. (diff) | |
| download | calp-e822f7b81245c919eda8bd8ad4b482df075e0508.tar.gz calp-e822f7b81245c919eda8bd8ad4b482df075e0508.tar.xz | |
Start of new date structures.
Diffstat (limited to 'module/vulgar')
| -rw-r--r-- | module/vulgar/components.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/vulgar/components.scm b/module/vulgar/components.scm index 507ee08b..640d4747 100644 --- a/module/vulgar/components.scm +++ b/module/vulgar/components.scm @@ -4,9 +4,9 @@ #:export ()) (define-public (display-calendar-header! date) - (let* ((day (number->string (date-day date))) - (month (number->string (date-month date))) - (year (number->string (date-year date)))) + (let* ((day (number->string (day date))) + (month (number->string (month date))) + (year (number->string (year date)))) ;; BSD cal only supports setting highlighted day explicitly for ;; testing the functionality. This seems to at least give me ;; an (almost) working display, albeit ugly. |