aboutsummaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@hornquist.se>2019-04-22 12:14:11 +0200
committerHugo Hörnquist <hugo@hornquist.se>2019-04-22 12:14:11 +0200
commit582bc6b91850daf104147473e5f7508beba2d539 (patch)
treedfed2e968426fa6e9fd1e18e9b4826fcad1e20fe /module
parentAdd rudamentary HTML output. (diff)
downloadcalp-582bc6b91850daf104147473e5f7508beba2d539.tar.gz
calp-582bc6b91850daf104147473e5f7508beba2d539.tar.xz
Add CSS.
Diffstat (limited to 'module')
-rw-r--r--module/html/html.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/html/html.scm b/module/html/html.scm
index 5ad98b0a..51de18aa 100644
--- a/module/html/html.scm
+++ b/module/html/html.scm
@@ -36,7 +36,7 @@
(if (null? ev-list)
#f
(let* ((pred? (lambda (next)
- (time<=? (attr next 'DTSTART)
+ (time<? (attr next 'DTSTART)
(attr (car ev-list) 'DTEND))))
(overlapping (take-while pred? ev-list))
(rest (drop-while pred? ev-list)))