diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-29 00:47:59 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-29 00:47:59 +0100 |
| commit | bad310815a8ff002f3b276ecc849c367f062efdf (patch) | |
| tree | 42006d8baa695d655311d61456e87babdf62f76a /module | |
| parent | Made error on missing main not print trace. (diff) | |
| download | calp-bad310815a8ff002f3b276ecc849c367f062efdf.tar.gz calp-bad310815a8ff002f3b276ecc849c367f062efdf.tar.xz | |
Handle X-HNH-ALTERNATIVES in ics output.
Diffstat (limited to 'module')
| -rw-r--r-- | module/output/ical.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/module/output/ical.scm b/module/output/ical.scm index d2f5800c..6fedc391 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -69,6 +69,7 @@ ;; Special cases depending on key. ;; Value formatting is handled in @code{value-format}. (match-lambda* + ;; Handled below [('X-HNH-ALTERNATIVES _) 'noop] [(key vline) @@ -83,7 +84,9 @@ (for-each component->ical-string (children component)) (format #t "END:~a\r\n" (type component)) - ) + ;; If we have alternatives, splice them in here. + (cond [(attr component 'X-HNH-ALTERNATIVES) + => (lambda (alts) (map component->ical-string alts))])) (define (print-header) (format #t |