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

41
src/brmember-parser.scm
View file

@ -113,21 +113,32 @@
(string-first+rest (car rec)))
value)))
((credit)
(brmember-sub-set mr output key
(map
(lambda (rec)
(let* ((fr (string-first+rest (car rec)))
(amt (string->number (car fr)))
(msg (cdr fr))
(mlst (string-split msg))
(mon (if (null? mlst)
#f
(parse-cal-day/month (car mlst))))
(rmsg (if mon
(string-intersperse (cdr mlst) " ")
msg)))
(list amt mon rmsg)))
value)))
(let loop ((mr mr)
(src-credits value)
(credits '()))
(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)))
(msg (cdr fr))
(mlst (string-split msg))
(mon (if (null? mlst)
#f
(parse-cal-day/month (car mlst))))
(rmsg (if mon
(string-intersperse (cdr mlst) " ")
msg)))
(loop (if mon
mr
(brmember-add-highlight mr line-number
"missing date or month information"
3
'warning))
(cdr src-credits)
(cons (list amt mon rmsg)
credits))))))
((nick)
(let ((mr0 (brmember-sub-set mr output key (car value))))
(if (irregex-search (irregex "[ \\t]" 'u) (car value))