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

Highlight missing DokuWiki records.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-26 20:33:06 +02:00
parent 9e0d6f62c4
commit 9257f04deb
1 changed files with 12 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/members-print.scm
View file

@ -135,7 +135,15 @@
sikeys)) sikeys))
(mailman (list (list "Mailing Lists" (mailman (list (list "Mailing Lists"
(string-intersperse (brmember-mailman mr) "\n")))) (string-intersperse (brmember-mailman mr) "\n"))))
(result (filter identity (append head body mailman)))) (dokuwiki (if (ldict-contains? mr 'dokuwiki)
(list (list "DokuWiki"
(format "Groups: ~A\nEmail: ~A"
(brmember-sub-ref mr 'dokuwiki 'groups)
(brmember-sub-ref mr 'dokuwiki 'email)
)))
(list (list (ansi-string #:red "DokuWiki")
(ansi-string #:red "---")))))
(result (filter identity (append head body mailman dokuwiki))))
;;(write result)(newline) ;;(write result)(newline)
(table->string result (table->string result
#:border '(((#:bottom #:right light) ... (#:bottom light)) #:border '(((#:bottom #:right light) ... (#:bottom light))
@ -154,12 +162,14 @@
) )
#:border '(((#:bottom #:right light) ... (#:bottom light)) #:border '(((#:bottom #:right light) ... (#:bottom light))
((#:right light) ... none) ((#:right light) ... none)
...))) ...
)))
(let* ((balance (member-balance mr)) (let* ((balance (member-balance mr))
(fees (ldict-ref balance 'fees)) (fees (ldict-ref balance 'fees))
(credit (ldict-ref balance 'credit)) (credit (ldict-ref balance 'credit))
(payment (ldict-ref balance 'payment)) (payment (ldict-ref balance 'payment))
(total (- (+ credit payment) fees))) (total (- (+ credit payment) fees)))
(newline)
(print "Total fees: " fees) (print "Total fees: " fees)
(print "Total credit: " credit) (print "Total credit: " credit)
(print "Total payments: " payment) (print "Total payments: " payment)