aboutsummaryrefslogtreecommitdiff
path: root/terminal/util.scm
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--terminal/util.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/terminal/util.scm b/terminal/util.scm
index a13aa813..a7435ad8 100644
--- a/terminal/util.scm
+++ b/terminal/util.scm
@@ -14,8 +14,11 @@
(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* "cal" "-3" "-H" (format #f "~a-~a-~a"
+ (system* "ncal" "-3" "-H" (format #f "~a-~a-~a"
year month day)
month year)
(system* "cal" "-3" day month year))))