diff options
Diffstat (limited to 'module/vcomponent/parse/component.scm')
| -rw-r--r-- | module/vcomponent/parse/component.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index 6819a202..6c4c6022 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -126,7 +126,7 @@ (list-parser 'PERIOD)] [(memv key '(CALSCALE METHOD PRODID COMMENT DESCRIPTION - LOCATION STATUS SUMMARY TZID TZNAME + LOCATION SUMMARY TZID TZNAME CONTACT RELATED-TO UID)) (lambda (params value) (let ((v ((get-parser 'TEXT) params value))) @@ -157,6 +157,13 @@ IN-PROCESS) #t)] + [(memv key '(STATUS)) + (enum-parser '(TENTATIVE + CONFIRMED CANCELLED + NEEDS-ACTION COMPLETED IN-PROCESS + DRAFT FINAL CANCELED) + #t)] + [(memv key '(REQUEST-STATUS)) (throw 'parse-error "TODO Implement REQUEST-STATUS")] |