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

Advanced accessors.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-11 22:38:22 +02:00
parent 4bd6837e08
commit 12a911bbff
7 changed files with 25 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/brmember-format.scm
View file

@ -48,9 +48,9 @@
(if (eq? ch #\~)
(loop (cddr fmtl)
(cons (case (cadr fmtl)
((#\N) (member-nick mr))
((#\I) (number->string (member-id mr)))
((#\S) (number->string (member-suspended-months mr)))
((#\N) (brmember-nick mr))
((#\I) (number->string (brmember-id mr)))
((#\S) (number->string (brmember-suspended-months mr)))
((#\E)
(let ((n (length (ldict-ref mr 'highlights '()))))
(if (eq? n 0)