From 0a0b92dee4e1f8108673590fe4794c7edd34e3c9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Thu, 13 Feb 2020 23:58:45 +0100
Subject: Remove in-day?

---
 module/output/html.scm           | 2 +-
 module/srfi/srfi-19/alt/util.scm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'module')

diff --git a/module/output/html.scm b/module/output/html.scm
index 46abfdb6..4bb12b45 100644
--- a/module/output/html.scm
+++ b/module/output/html.scm
@@ -79,7 +79,7 @@
             (* 100 (width ev))          ; width
 
             ;; top
-            (if (in-day? date (attr ev 'DTSTART))
+            (if (date= date (as-date (attr ev 'DTSTART)))
                 (* 100/24
                    (time->decimal-hour
                     (as-time (attr ev 'DTSTART))
diff --git a/module/srfi/srfi-19/alt/util.scm b/module/srfi/srfi-19/alt/util.scm
index 8299c6cb..e81baa26 100644
--- a/module/srfi/srfi-19/alt/util.scm
+++ b/module/srfi/srfi-19/alt/util.scm
@@ -158,8 +158,8 @@
 ;; given by @var{base-date}.
 ;; TODO test time zones
 ;; date x datetime → bool
-(define-public (in-day? base-date date/-time)
-  (date< base-date (as-date date/-time) (date+ base-date (date day: 1))))
+;; (define-public (in-day? base-date date/-time)
+;;   (date< base-date (as-date date/-time) (date+ base-date (date day: 1))))
 
 (define-public (in-date-range? start-date end-date)
   (lambda (date)
-- 
cgit v1.2.3