From e7c99e14691e768e0c3e7c54049301183ddfc32f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 24 Mar 2020 22:52:57 +0100 Subject: Change date{,time}-difference to hopefully sensible types. --- module/output/html.scm | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) (limited to 'module/output') diff --git a/module/output/html.scm b/module/output/html.scm index cb0ba9b5..9f5c7c81 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -82,9 +82,9 @@ ;; of a regular day. (define (long-event? ev) (or (date? (attr ev 'DTSTART)) - (<= (* 3600 24) - (datetime-difference (attr ev 'DTEND) - (attr ev 'DTSTART))))) + (datetime<= (datetime date: (date day: 1)) + (datetime-difference (attr ev 'DTEND) + (attr ev 'DTSTART))))) (define (event-debug-html event) @@ -185,15 +185,16 @@ ;; Set start time ;; left (* 100 - (let ((dt (datetime date: start-date))) - (/ (datetime-difference (datetime-max dt (as-datetime (attr ev 'DTSTART))) dt) - 3600 total-length))) + (let* ((dt (datetime date: start-date)) + (diff (datetime-difference (datetime-max dt (as-datetime (attr ev 'DTSTART))) + dt))) + (/ (datetime->decimal-hour diff) total-length))) ;; Set length of event, which makes end time ;; width (* 100 - (/ (event-length/clamped start-date end-date ev) - 3600 total-length)))) + (/ (datetime->decimal-hour (as-datetime (event-length/clamped start-date end-date ev))) + total-length)))) `(a (@ (href "#" ,(UID ev)) (class "hidelink")) @@ -232,7 +233,7 @@ (define (lay-out-long-events start end events) (fix-event-widths! events event-length-key: event-length - event-length-comperator: >) + event-length-comperator: date/-time>) (map (lambda (e) (create-top-block start end e)) events)) -- cgit v1.2.3