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

Use new with-mbase-progress% in new static HTML export.

Browse source
This commit is contained in:
Dominik Pantůček 2023-06-19 08:59:15 +02:00
parent 350f7eca60
commit 53cfd1fd88
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/Makefile
View file

@ -470,7 +470,8 @@ UTIL-LIST-SOURCES=util-list.scm testing.import.scm
util-list.o: util-list.import.scm util-list.o: util-list.import.scm
util-list.import.scm: $(UTIL-LIST-SOURCES) util-list.import.scm: $(UTIL-LIST-SOURCES)
EXPORT-WEB-STATIC-SOURCES=export-web-static.scm brmember.import.scm EXPORT-WEB-STATIC-SOURCES=export-web-static.scm brmember.import.scm \
util-dir.import.scm mbase.import.scm
export-web-static.o: export-web-static.import.scm export-web-static.o: export-web-static.import.scm
export-web-static.import.scm: $(EXPORT-WEB-STATIC-SOURCES) export-web-static.import.scm: $(EXPORT-WEB-STATIC-SOURCES)

7
src/export-web-static.scm
View file

@ -35,7 +35,8 @@
(chicken base) (chicken base)
(chicken format) (chicken format)
brmember brmember
util-dir) util-dir
mbase)
(define (print-html-member mr) (define (print-html-member mr)
(print "<html>") (print "<html>")
@ -54,6 +55,8 @@
(define (gen-html-members mb dir) (define (gen-html-members mb dir)
(ensure-directory dir) (ensure-directory dir)
#f) (with-mbase-progress%
mb dir mr
(print mr)))
) )