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.

---
 TODO                         | 6 ------
 module/vulgar/components.scm | 5 ++---
 2 files changed, 2 insertions(+), 9 deletions(-)

diff --git a/TODO b/TODO
index 7764043d..fe8b3bdc 100644
--- a/TODO
+++ b/TODO
@@ -6,12 +6,6 @@ XDG_CONFIG_HOME
 Liknande för cache, genererade filer, med mera
 Både när programmet körs som användare och som systemtjänst.
 
-Terminal
-========
-
-Handle systems with bad `cal' programs
---------------------------------------
-
 HTML
 ====
 
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