From 58b55517bc6799603252a851d97800ce184b7429 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Tue, 23 Apr 2019 18:46:41 +0200
Subject: Add summary-filter to HTML output.

---
 module/html/html.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'module/html/html.scm')

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))
-- 
cgit v1.2.3