diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 18:46:41 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-04-23 18:46:41 +0200 |
commit | 58b55517bc6799603252a851d97800ce184b7429 (patch) | |
tree | 69a345eb26c72c38ec95d6f0c1d8415952ffba39 /module/html/html.scm | |
parent | Change how util is loaded. (diff) | |
download | calp-58b55517bc6799603252a851d97800ce184b7429.tar.gz calp-58b55517bc6799603252a851d97800ce184b7429.tar.xz |
Add summary-filter to HTML output.
Diffstat (limited to '')
-rw-r--r-- | module/html/html.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/module/html/html.scm b/module/html/html.scm index 44745ba0..220b12f2 100644 --- a/module/html/html.scm +++ b/module/html/html.scm @@ -7,7 +7,10 @@ #:use-module (util) #:use-module (util tree) #:use-module (srfi srfi-19) - #:use-module (srfi srfi-19 util)) + #:use-module (srfi srfi-19 util) + + #:use-module (parameters) + #:use-module (config)) (define-stream (group-stream in-stream) (define (ein? day) (lambda (e) (event-in? e (date->time-utc day)))) @@ -106,7 +109,7 @@ ,(if (time<? (add-day time) (attr ev 'DTEND)) " continuing" "")) (style ,style)) - ,(attr ev 'SUMMARY))) + ,((summary-filter) ev (attr ev 'SUMMARY)))) (define (lay-out-day day) (let* (((date . events) day)) |