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

5
main.scm
View file

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