github/repo2html
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

renamed some functions

Browse source 
- renamed generate-readme-file to generate-readme-page
- renamed generate-files-file to generate-files-page
This commit is contained in:
m455 2022-12-02 23:53:47 -05:00
parent 0216eacef6
commit 76b127175c
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
main.scm
View file

@ -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 "<ul>\n"
(generate-list-of-files source-files-list)
"</ul>\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)