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