diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 01:28:36 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-26 01:28:36 +0200 |
| commit | 908a3e2c349dab3fd87cf4a5341e0a89c2d0f0ee (patch) | |
| tree | b544f27ee4cd4d9fd4b6e7f938308e32b9b75539 | |
| parent | HTML update gray to have slightly better contrast. (diff) | |
| download | calp-908a3e2c349dab3fd87cf4a5341e0a89c2d0f0ee.tar.gz calp-908a3e2c349dab3fd87cf4a5341e0a89c2d0f0ee.tar.xz | |
HTML Description exception handler now works.
| -rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 70c3b8a9..2600079c 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -366,8 +366,8 @@ ,(when (and=> (attr ev 'LOCATION) (negate string-null?)) `(div (b "Plats: ") (div (@ (class "location")),(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 "Description filter failed with ~a, ~a" err args) + (lambda (err . args) + (warning "~a on formatting description, ~s" err args) str)))) ,(awhen (attr ev 'RRULE) `(span (@ (class "rrule")) |