From f6e157c45f7914188ed2deeb33581f2546be79ec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 10 Aug 2020 21:08:08 +0200 Subject: Remove dependency from view/calendar -> datetime. --- module/html/view/calendar.scm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'module/html/view/calendar.scm') diff --git a/module/html/view/calendar.scm b/module/html/view/calendar.scm index da1d6c9b..819441e6 100644 --- a/module/html/view/calendar.scm +++ b/module/html/view/calendar.scm @@ -5,7 +5,6 @@ :select (events-between)) :use-module ((vcomponent build) :select (vcalendar vevent)) - :use-module (util config) :use-module (datetime) :use-module (html components) :use-module ((html vcomponent) @@ -38,8 +37,7 @@ ;; @end example ;; date - a date in the month to display ;; week-start - which day the week begins on, see (datetime util) -(define* (cal-table key: start-date end-date next-start prev-start - (week-start (get-config 'week-start))) +(define* (cal-table key: start-date end-date next-start prev-start) (define (td date) `(a (@ ,@(cond @@ -203,7 +201,7 @@ (div (@ (class "change-view")) ,(btn href: (date->string (if (= 1 (day start-date)) - (start-of-week start-date (get-config 'week-start)) + (start-of-week start-date) start-date) "/week/~1.html") "veckovy") -- cgit v1.2.3