diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 01:40:09 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 01:40:09 +0200 |
| commit | 86166e3d5706f1593c84a27051fcbaedc1398845 (patch) | |
| tree | 6fd2fcb889a952b64d00dc357f8219c5044b4e3d | |
| parent | DTEND now optional for recurrence sets. (diff) | |
| download | calp-86166e3d5706f1593c84a27051fcbaedc1398845.tar.gz calp-86166e3d5706f1593c84a27051fcbaedc1398845.tar.xz | |
Remove wkst argument from tablify.
| -rw-r--r-- | module/output/html.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 1e52350a..b8e63202 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -105,13 +105,13 @@ ;; Given a list, partitions it up into sublists of width length, ;;; each starting with 'tr. -(define* (tablify list width key: (proc identity) (wkst sun)) +(define* (tablify list width key: (proc identity)) (unless (null? list) - (let* ((row rest (split-at list width))) + (let* ((wkst (week-day (car list))) + (row rest (split-at list width))) (cons `(tr (td ,(week-number (car row) wkst)) ,@(map proc row)) (tablify rest width - proc: proc - wkst: wkst))))) + proc: proc))))) @@ -543,7 +543,7 @@ ;; start-date is part of (month-days (start-of-month start-date) week-start))) (tablify (append last current next) - 7 proc: td wkst: week-start)))))) + 7 proc: td)))))) |