diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-28 23:28:47 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-29 01:08:54 +0200 |
| commit | 9518a250f254f5388097d35ec55ab7bb3b1ad762 (patch) | |
| tree | 02f4948df8d9afd24ab8c9942cd2f152f038dea8 | |
| parent | Add base64 utility functions. (diff) | |
| download | calp-9518a250f254f5388097d35ec55ab7bb3b1ad762.tar.gz calp-9518a250f254f5388097d35ec55ab7bb3b1ad762.tar.xz | |
Flip ics parser enum-parser default for allow.
| -rw-r--r-- | module/vcomponent/parse/component.scm | 15 |
1 files changed, 6 insertions, 9 deletions
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)] |