brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Default #f for all mandatory keys.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-26 21:24:28 +02:00
parent faa3a930be
commit 34ce407268
2 changed files with 31 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

16
member-parser.scm
View file

@ -99,14 +99,22 @@
(msg (cdr fr)))
(cons amt msg)))
value)))
((nick)
(let ((mr0 (member-record-sub-set mr output key (car value))))
(if (irregex-search (irregex "[ \\t]" 'u) (car value))
(member-record-add-highlight
mr0 (cdr value) "Whitespace not allowed in nick" 3 'error)
mr0)))
(else
(member-record-sub-set mr output key (car value))))))))
;; Final checks - add defaults
;; Pass 4: Final checks - add defaults
(define (member-schema-finalize mr)
(if (member-record-sub-has-key? mr 'info 'joined)
mr
(member-record-sub-set mr 'info 'joined (*member-default-joined*))))
(apply
member-record-sub-ensure
mr 'info
'joined (*member-default-joined*)
(join (map (lambda (mk) (list mk #f)) mandatory-keys))))
;; Pass 0: Removes any comments and removes any leading and trailing
;; whitespace.