Add ignored keys.
This commit is contained in:
parent
d483025321
commit
cbaf49183b
1 changed files with 7 additions and 3 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue