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

move common line outside conditional for d.r.y.

Browse source
This commit is contained in:
pho4cexa 2022-12-04 18:07:10 -08:00 committed by m455
parent c69fe335e3
commit 42d1fab665
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
main.scm
View file

@ -155,10 +155,9 @@ string-block
(call-with-input-pipe "git shortlog -ns HEAD" read-lines)))))))))
(define (generate-repository-directory)
(if (directory-exists? REPOSITORY-DIRECTORY)
(begin (delete-directory REPOSITORY-DIRECTORY #t)
(create-directory REPOSITORY-DIRECTORY #t))
(create-directory REPOSITORY-DIRECTORY #t)))
(when (directory-exists? REPOSITORY-DIRECTORY)
(delete-directory REPOSITORY-DIRECTORY #t))
(create-directory REPOSITORY-DIRECTORY #t))
(define (generate-html-files)
(let ((source-files-list (git-repository->paths-list)))