diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 19:20:47 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 19:20:47 +0200 |
commit | cdf9b4f0a98a696976de51ed6f5841aa941f9271 (patch) | |
tree | fa389d590a0ed9ae9ab24b5cbaee57e715032dad /module | |
parent | Save soruce-prop object to vline. (diff) | |
download | calp-cdf9b4f0a98a696976de51ed6f5841aa941f9271.tar.gz calp-cdf9b4f0a98a696976de51ed6f5841aa941f9271.tar.xz |
Change STATUS to enum type.
Diffstat (limited to '')
-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")] |