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

Use new git module.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-16 19:21:25 +02:00
parent 62367d7f41
commit a1f7378b84
2 changed files with 8 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/Makefile
View file

@ -239,10 +239,10 @@ MEMBERS-PAYMENTS-SOURCES=members-payments.scm bank-account.import.scm \
members-payments.o: members-payments.import.scm members-payments.o: members-payments.import.scm
members-payments.import.scm: $(MEMBERS-PAYMENTS-SOURCES) members-payments.import.scm: $(MEMBERS-PAYMENTS-SOURCES)
WEB-STATIC-SOURCES=web-static.scm brmember.import.scm \ WEB-STATIC-SOURCES=web-static.scm brmember.import.scm \
configuration.import.scm members-payments.import.scm \ configuration.import.scm members-payments.import.scm \
mbase.import.scm util-io.import.scm \ mbase.import.scm util-git.import.scm util-list.import.scm \
util-list.import.scm progress.import.scm progress.import.scm
web-static.o: web-static.import.scm web-static.o: web-static.import.scm
web-static.import.scm: $(WEB-STATIC-SOURCES) web-static.import.scm: $(WEB-STATIC-SOURCES)

13
src/web-static.scm
View file

@ -45,7 +45,7 @@
configuration configuration
members-payments members-payments
mbase mbase
util-io util-git
progress) progress)
;; Generate all the files in specified (default current) directory. ;; Generate all the files in specified (default current) directory.
@ -69,14 +69,9 @@
(loop (cdr lines)))))) (loop (cdr lines))))))
(with-output-to-file (make-pathname dir (sprintf "~A.log" nick)) (with-output-to-file (make-pathname dir (sprintf "~A.log" nick))
(lambda () (lambda ()
(let loop ((lines (let loop ((lines ((git (*members-directory*) #:output)
(get-process-output-lines 'log '-p '--
"git" (brmember-file-name mr))))
"-C" (*members-directory*)
"log"
"-p"
"--"
(brmember-file-name mr))))
(when (not (null? lines)) (when (not (null? lines))
(print (car lines)) (print (car lines))
(loop (cdr lines)))))) (loop (cdr lines))))))