diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-13 15:28:49 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-13 15:28:53 +0100 |
| commit | b517196f2e1f4ff7cbcbaa042d3b6651065d4439 (patch) | |
| tree | ea888c0fc6c14d261161ead5b33c7b56e1c53e46 | |
| parent | Fix events only overlapping days. (diff) | |
| download | calp-b517196f2e1f4ff7cbcbaa042d3b6651065d4439.tar.gz calp-b517196f2e1f4ff7cbcbaa042d3b6651065d4439.tar.xz | |
Possibly add support for systems with BSD cal(1).
| -rw-r--r-- | terminal/util.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/terminal/util.scm b/terminal/util.scm index 5b454769..a13aa813 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)))) - (system* "cal" "-3" day month year))) - + (if (file-exists? "/usr/bin/ncal") + (system* "cal" "-3" "-H" (format #f "~a-~a-~a" + year month day) + month year) + (system* "cal" "-3" day month year)))) (define (color-escape n) (cond ((not n) "") @@ -28,3 +31,4 @@ (string->number rs 16) (string->number gs 16) (string->number bs 16)))))) + |