diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-13 15:33:17 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-13 15:33:17 +0100 |
| commit | 4a917940b749719650d1a7329e9ac7ac8e5ce5cd (patch) | |
| tree | 60ac77dec68eae44d046455f0f993e7f10dd2feb | |
| parent | Possibly add support for systems with BSD cal(1). (diff) | |
| download | calp-4a917940b749719650d1a7329e9ac7ac8e5ce5cd.tar.gz calp-4a917940b749719650d1a7329e9ac7ac8e5ce5cd.tar.xz | |
Fix BSD cal output.
| -rw-r--r-- | terminal/util.scm | 5 |
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)))) |