From cdf9b4f0a98a696976de51ed6f5841aa941f9271 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 15 Jun 2020 19:20:47 +0200
Subject: Change STATUS to enum type.

---
 module/vcomponent/parse/component.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'module/vcomponent/parse')

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")]
 
-- 
cgit v1.2.3