diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-05-01 21:09:24 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-05-01 21:09:24 +0200 |
commit | 547fa99389439b62fca04243e62560bfcbafb0b4 (patch) | |
tree | 4458cff55054677ac7bed629998f59ec76dfddf0 /module/output/html.scm | |
parent | Add options to --statprof. (diff) | |
download | calp-547fa99389439b62fca04243e62560bfcbafb0b4.tar.gz calp-547fa99389439b62fca04243e62560bfcbafb0b4.tar.xz |
Change function for creating hashtables.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index c6ba389c..01736cac 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -102,7 +102,7 @@ ,@(map (lambda (time) `(div (@ (class "clock clock-" ,time)) "")) (iota 12 0 2)) - ,@(stream->list (stream-map (lambda (e) (vevent->sxml date e)) events)))))) + ,@(map (lambda (e) (vevent->sxml date e)) (stream->list events)))))) (define (time-marker-div) `(div (@ (class "sideclock")) @@ -132,7 +132,6 @@ (end (time->string (attr ev 'DTEND) fmt))) (values start end))) - (define (fmt-single-event ev) `(article (@ (id ,(UID ev)) (class "eventtext CAL_bg_" |