diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 21:08:08 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-10 21:08:08 +0200 |
| commit | f6e157c45f7914188ed2deeb33581f2546be79ec (patch) | |
| tree | 2e247f8d9972def68358bf43ea377ff9d245e19c /module/html/view/calendar.scm | |
| parent | Actually delete old html-search. (diff) | |
| download | calp-f6e157c45f7914188ed2deeb33581f2546be79ec.tar.gz calp-f6e157c45f7914188ed2deeb33581f2546be79ec.tar.xz | |
Remove dependency from view/calendar -> datetime.
Diffstat (limited to 'module/html/view/calendar.scm')
| -rw-r--r-- | module/html/view/calendar.scm | 6 |
1 files changed, 2 insertions, 4 deletions
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") |