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

no-op cleanup

Browse source
This commit is contained in:
pho4cexa 2022-12-07 16:17:49 -08:00 committed by m455
parent 3833395a2c
commit 0b86b0022e
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
main.scm
View file

@ -161,10 +161,9 @@ string-block
(lambda () (display-source-html source-file))) (lambda () (display-source-html source-file)))
(case (string->symbol (or (pathname-extension source-file) "")) (case (string->symbol (or (pathname-extension source-file) ""))
((jpg jpeg png gif webp webm svg apng avif svgz ico) ((jpg jpeg png gif webp webm svg apng avif svgz ico)
(system (format "git-show HEAD:~a > ~a " (system (format "git show HEAD:~a > ~a"
source-file source-file
(make-pathname html-repo-path source-file) (make-pathname html-repo-path source-file))))))
)))))
source-files-list))) source-files-list)))
(define (bail . args) (define (bail . args)