From cbaf49183b204f0e60352e36df06d2c454a89689 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Wed, 29 Mar 2023 14:52:04 +0200 Subject: [PATCH] Add ignored keys. --- member-parser.scm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/member-parser.scm b/member-parser.scm index 0c87410..a1cd656 100644 --- a/member-parser.scm +++ b/member-parser.scm @@ -44,11 +44,13 @@ utils configuration) - ;; Pass 2: known keys and multikeys + ;; Pass 2: known keys (define mandatory-keys '(nick name mail phone)) (define optional-keys '(born joined destroyed)) - (define known-keys (append mandatory-keys optional-keys)) (define known-multikeys '(card desfire credit studentstart studentstop suspendstart suspendstop)) + (define ignored-keys '(mail2)) + + (define known-keys (append mandatory-keys optional-keys)) ;; Pass 3: Interpreter passes (define member-schema-interpreters @@ -204,7 +206,9 @@ (dict-set processed key (cons (cons value number) (dict-ref processed key '())))) (loop (cdr parsed) - (member-record-add-highlight mr number "Unknown key" 2 'warning) + (if (member key ignored-keys) + mr + (member-record-add-highlight mr number "Unknown key" 2 'warning)) processed))))))) ;; Pass 3+: Single interpreter pass - input must be