From c3ed0230df578ce934289e3064b987ab86d602f2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 29 Mar 2019 15:32:52 +0100 Subject: Add summary-filter to SUMMARY field. --- module/main.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'module/main.scm') diff --git a/module/main.scm b/module/main.scm index 995e55a6..aae640ac 100755 --- a/module/main.scm +++ b/module/main.scm @@ -41,6 +41,8 @@ (define (now) (date->time-utc (current-date))) +(define (summary-filter _ str) str) + (define (main-loop regular-events repeating-events) (define time (now)) (define cur-event 0) @@ -76,7 +78,8 @@ (time->string (attr ev 'DTSTART) "~1 ~3") ; TODO show truncated string (if (= i cur-event) "\x1b[7m" "") (color-escape (attr (parent ev) 'COLOR)) - (trim-to-width (attr ev 'SUMMARY) 30) + ;; Summary filter is a hook for the user + (trim-to-width (summary-filter ev (attr ev 'SUMMARY)) 30) STR-RESET (trim-to-width (or (attr ev 'LOCATION) "\x1b[1;30mINGEN LOKAL") 20) -- cgit v1.2.3