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

Output member file to nick.misc in web output.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-01 17:45:56 +02:00
parent 76ff48329a
commit b3bb37cbce
3 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/web-static.scm
View file

@ -47,6 +47,12 @@
(with-output-to-file (sprintf "~A.balance" nick)
(lambda ()
(print (member-total-balance mr))))
(with-output-to-file (sprintf "~A.misc" nick)
(lambda ()
(let loop ((lines (member-source mr)))
(when (not (null? lines))
(print (car lines))
(loop (cdr lines))))))
))
)