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

Issue warnings for missing date/month information in credit statements.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-15 11:17:02 +02:00
parent 34b360fcd6
commit 7bd4c7d222
1 changed files with 26 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/brmember-parser.scm
View file

@ -113,10 +113,14 @@
(string-first+rest (car rec))) (string-first+rest (car rec)))
value))) value)))
((credit) ((credit)
(brmember-sub-set mr output key (let loop ((mr mr)
(map (src-credits value)
(lambda (rec) (credits '()))
(let* ((fr (string-first+rest (car rec))) (if (null? src-credits)
(brmember-sub-set mr output key credits)
(let* ((rec (caar src-credits))
(line-number (cdar src-credits))
(fr (string-first+rest rec))
(amt (string->number (car fr))) (amt (string->number (car fr)))
(msg (cdr fr)) (msg (cdr fr))
(mlst (string-split msg)) (mlst (string-split msg))
@ -126,8 +130,15 @@
(rmsg (if mon (rmsg (if mon
(string-intersperse (cdr mlst) " ") (string-intersperse (cdr mlst) " ")
msg))) msg)))
(list amt mon rmsg))) (loop (if mon
value))) mr
(brmember-add-highlight mr line-number
"missing date or month information"
3
'warning))
(cdr src-credits)
(cons (list amt mon rmsg)
credits))))))
((nick) ((nick)
(let ((mr0 (brmember-sub-set mr output key (car value)))) (let ((mr0 (brmember-sub-set mr output key (car value))))
(if (irregex-search (irregex "[ \\t]" 'u) (car value)) (if (irregex-search (irregex "[ \\t]" 'u) (car value))