diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 15:21:32 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-16 15:21:32 +0200 |
| commit | e96963ab77c6c3d4c12ea00dd4e6906121fb228f (patch) | |
| tree | 4ab22dc1cc7e3155ebc5e31fc00a2dd4efafe0dc /module/vcomponent/formats/xcal/output.scm | |
| parent | Remove some old debug prints. (diff) | |
| download | calp-e96963ab77c6c3d4c12ea00dd4e6906121fb228f.tar.gz calp-e96963ab77c6c3d4c12ea00dd4e6906121fb228f.tar.xz | |
Fixen in vcomponent formats.
Previously almost everything was broken. This takes it back to a
somewhat working state.
Diffstat (limited to 'module/vcomponent/formats/xcal/output.scm')
| -rw-r--r-- | module/vcomponent/formats/xcal/output.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/module/vcomponent/formats/xcal/output.scm b/module/vcomponent/formats/xcal/output.scm index 2378d87e..6d5e0656 100644 --- a/module/vcomponent/formats/xcal/output.scm +++ b/module/vcomponent/formats/xcal/output.scm @@ -76,10 +76,11 @@ (warning (G_ "Unknown key ~a") k) (get-writer 'TEXT)])) - (writer ((@@ (vcomponent base) get-vline-parameters) vline) - (value vline))) + (writer (vline-parameters vline) + (vline-value vline))) -(define (property->value-tag tag . values) +(define (property->value-tag pair) + (define-values (tag value) (car+cdr pair)) (if (or (eq? tag 'VALUE) (internal-field? tag)) #f @@ -87,7 +88,7 @@ ,@(map (lambda (v) ;; TODO parameter types!!!! (rfc6321 3.5.) `(,(xml xcal 'text) ,(->string v))) - values)))) + value)))) ;; ((key value ...) ...) -> `(parameters , ... ) (define (parameters-tag parameters) |