From 86166e3d5706f1593c84a27051fcbaedc1398845 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 26 Apr 2020 01:40:09 +0200 Subject: Remove wkst argument from tablify. --- module/output/html.scm | 10 +++++----- 1 file 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)))))) -- cgit v1.2.3