From b0d552ffe3e336606de907897181a0f0718b3149 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 1 Jun 2019 21:56:52 +0200
Subject: Reword terminal output to better modularization.

---
 module/vulgar/components.scm | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 module/vulgar/components.scm

(limited to 'module/vulgar/components.scm')

diff --git a/module/vulgar/components.scm b/module/vulgar/components.scm
new file mode 100644
index 00000000..507ee08b
--- /dev/null
+++ b/module/vulgar/components.scm
@@ -0,0 +1,18 @@
+(define-module (vulgar components)
+  #:use-module (srfi srfi-19)
+  #:use-module (util)
+  #: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))))
+    ;; 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.
+    (if (file-exists? "/usr/bin/ncal")
+        (system*  "ncal" "-3" "-H" (format #f "~a-~a-~a"
+                                          year month day)
+                  month year)
+        (system* "cal" "-3" day month year))))
+
-- 
cgit v1.2.3