From 53cfd1fd88a207db742bed8bc8e0fae666672805 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Mon, 19 Jun 2023 08:59:15 +0200 Subject: [PATCH] Use new with-mbase-progress% in new static HTML export. --- src/Makefile | 3 ++- src/export-web-static.scm | 7 +++++-- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/src/Makefile b/src/Makefile index 69e7aab..8808bf7 100644 --- a/src/Makefile +++ b/src/Makefile @@ -470,7 +470,8 @@ UTIL-LIST-SOURCES=util-list.scm testing.import.scm util-list.o: util-list.import.scm 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.import.scm: $(EXPORT-WEB-STATIC-SOURCES) diff --git a/src/export-web-static.scm b/src/export-web-static.scm index c13572f..326b6c8 100644 --- a/src/export-web-static.scm +++ b/src/export-web-static.scm @@ -35,7 +35,8 @@ (chicken base) (chicken format) brmember - util-dir) + util-dir + mbase) (define (print-html-member mr) (print "") @@ -54,6 +55,8 @@ (define (gen-html-members mb dir) (ensure-directory dir) - #f) + (with-mbase-progress% + mb dir mr + (print mr))) )