From 8171ba98a3df7d9d2cfc1489ef4ae363816e56bf Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 26 Aug 2020 20:37:46 +0200
Subject: Fix ncal.

---
 module/vulgar/components.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'module')

diff --git a/module/vulgar/components.scm b/module/vulgar/components.scm
index 3909d63f..2b018e4e 100644
--- a/module/vulgar/components.scm
+++ b/module/vulgar/components.scm
@@ -11,8 +11,7 @@
     ;; testing the functionality. This seems to at least give me
     ;; an (almost) working display, albeit ugly.
     (if (file-exists? "/usr/bin/ncal")
-        (system*  "ncal" "-3" "-H" (format #f "~a-~a-~a"
-                                          year month day)
-                  month year)
+        (system* "ncal" "-3" "-H" (date->string date)
+                 month year)
         (system* "cal" "-3" day month year))))
 
-- 
cgit v1.2.3