From 9518a250f254f5388097d35ec55ab7bb3b1ad762 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 28 Jun 2020 23:28:47 +0200 Subject: Flip ics parser enum-parser default for allow. --- module/vcomponent/parse/component.scm | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) (limited to 'module/vcomponent/parse') diff --git a/module/vcomponent/parse/component.scm b/module/vcomponent/parse/component.scm index 6f522e8f..d2ca5eb4 100644 --- a/module/vcomponent/parse/component.scm +++ b/module/vcomponent/parse/component.scm @@ -87,7 +87,7 @@ (map (lambda (v) (parser params v)) (string-split value #\,))))) -(define* (enum-parser enum optional: allow-other) +(define* (enum-parser enum optional: (allow-other #t)) (let ((parser (compose car (get-parser 'TEXT)))) (lambda (params value) (let ((vv (parser params value))) @@ -144,24 +144,22 @@ v))] [(memv key '(TRANSP)) - (enum-parser '(OPAQUE TRANSPARENT))] + (enum-parser '(OPAQUE TRANSPARENT) #f)] [(memv key '(CLASS)) - (enum-parser '(PUBLIC PRIVATE CONFIDENTIAL) #t)] + (enum-parser '(PUBLIC PRIVATE CONFIDENTIAL))] [(memv key '(PARTSTAT)) (enum-parser '(NEEDS-ACTION ACCEPTED DECLINED TENTATIVE DELEGATED - IN-PROCESS) - #t)] + IN-PROCESS))] [(memv key '(STATUS)) (enum-parser '(TENTATIVE CONFIRMED CANCELLED NEEDS-ACTION COMPLETED IN-PROCESS - DRAFT FINAL CANCELED) - #t)] + DRAFT FINAL CANCELED))] [(memv key '(REQUEST-STATUS)) (throw 'parse-error "TODO Implement REQUEST-STATUS")] @@ -170,8 +168,7 @@ (enum-parser '(AUDIO DISPLAY EMAIL NONE ; I don't know where NONE is from ; but it appears to be prevelant. - ) - #t)] + ))] [(memv key '(TZOFFSETFROM TZOFFSETTO)) (get-parser 'UTC-OFFSET)] -- cgit v1.2.3