diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 19:31:41 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 19:31:41 +0200 |
commit | 13c37a9a7cc0e781a508462d8621e059de73abce (patch) | |
tree | 65ee2a69e34b4516bc6fddac1c4d4a90f62d6209 /module/output/html.scm | |
parent | "Resolve" missing configuration TODO. (diff) | |
download | calp-13c37a9a7cc0e781a508462d8621e059de73abce.tar.gz calp-13c37a9a7cc0e781a508462d8621e059de73abce.tar.xz |
All warning procedures now uses warning system.
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index eb675005..3b17d81b 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -374,6 +374,12 @@ it)))) ".")) +(define (format-description ev str) + (catch #t (lambda () ((get-config 'description-filter) ev str)) + (lambda (err . args) + (warning "~a on formatting description, ~s" err args) + str))) + ;; For sidebar, just text (define* (fmt-single-event ev @@ -401,10 +407,7 @@ ,(string-map (lambda (c) (if (char=? c #\,) #\newline c)) (attr ev 'LOCATION))))) ,(and=> (attr ev 'DESCRIPTION) - (lambda (str) (catch #t (lambda () ((get-config 'description-filter) ev str)) - (lambda (err . args) - (warning "~a on formatting description, ~s" err args) - str)))) + (lambda (str) (format-description ev str))) ,(awhen (attr ev 'RRULE) (format-recurrence-rule ev)) ,(when (attr ev 'LAST-MODIFIED) |