Add ignored keys.

This commit is contained in:
Dominik Pantůček 2023-03-29 14:52:04 +02:00
parent d483025321
commit cbaf49183b

View file

@ -44,11 +44,13 @@
utils utils
configuration) configuration)
;; Pass 2: known keys and multikeys ;; Pass 2: known keys
(define mandatory-keys '(nick name mail phone)) (define mandatory-keys '(nick name mail phone))
(define optional-keys '(born joined destroyed)) (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 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 ;; Pass 3: Interpreter passes
(define member-schema-interpreters (define member-schema-interpreters
@ -204,7 +206,9 @@
(dict-set processed key (cons (cons value number) (dict-set processed key (cons (cons value number)
(dict-ref processed key '())))) (dict-ref processed key '()))))
(loop (cdr parsed) (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))))))) processed)))))))
;; Pass 3+: Single interpreter pass - input must be ;; Pass 3+: Single interpreter pass - input must be