From 76b127175c2d7c330af2a2b15dd27aa21ba6b9fe Mon Sep 17 00:00:00 2001 From: m455 Date: Fri, 2 Dec 2022 23:53:47 -0500 Subject: [PATCH] renamed some functions - renamed generate-readme-file to generate-readme-page - renamed generate-files-file to generate-files-page --- main.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/main.scm b/main.scm index 7c7b99e..73f2f71 100644 --- a/main.scm +++ b/main.scm @@ -125,14 +125,14 @@ string-block (for-each (lambda (source-file) (generate-source-file source-file)) source-files-list)) -(define (generate-files-file files-list-page-path source-files-list) +(define (generate-files-page files-list-page-path source-files-list) (write-file files-list-page-path (populate-html-template (string-append "\n")))) -(define (generate-readme-file index-page-path) +(define (generate-readme-page index-page-path) (write-file index-page-path (populate-html-template (md->html (git-file->string "README.md"))))) @@ -146,8 +146,8 @@ string-block (define (generate-html-files) (let ((source-files-list (git-repository->paths-list))) (generate-repository-directory) - (generate-readme-file (make-pathname REPOSITORY-DIRECTORY "index.html")) - (generate-files-file (make-pathname REPOSITORY-DIRECTORY "files.html") source-files-list) + (generate-readme-page (make-pathname REPOSITORY-DIRECTORY "index.html")) + (generate-files-page (make-pathname REPOSITORY-DIRECTORY "files.html") source-files-list) (generate-source-files source-files-list))) (define (if-git-directory-generate-html-files)