forgot this fix
This commit is contained in:
parent
e039c29a83
commit
f68eaea795
1 changed files with 11 additions and 11 deletions
|
@ -151,17 +151,17 @@
|
||||||
(-> source-file
|
(-> source-file
|
||||||
git-file->lines
|
git-file->lines
|
||||||
lines->string
|
lines->string
|
||||||
markdown->sxml))
|
markdown->sxml)))
|
||||||
((.jpg .jpeg .png .gif .webp .webm .apng .avif .svgz .ico)
|
((.jpg .jpeg .png .gif .webp .webm .apng .avif .svgz .ico)
|
||||||
(image-link))
|
(image-link))
|
||||||
((.svg)
|
((.svg)
|
||||||
(list (image-link) (plaintext)))
|
(list (image-link) (plaintext)))
|
||||||
((.gz .pack .idx)
|
((.gz .pack .idx)
|
||||||
(binary))
|
(binary))
|
||||||
(else
|
(else
|
||||||
(if (git-file-is-text? source-file)
|
(if (git-file-is-text? source-file)
|
||||||
(numbered-sxml)
|
(numbered-sxml)
|
||||||
(binary))))))
|
(binary)))))
|
||||||
|
|
||||||
(define (filelist->sxml source-files-list relative-root)
|
(define (filelist->sxml source-files-list relative-root)
|
||||||
`((h1 "Files")
|
`((h1 "Files")
|
||||||
|
|
Loading…
Reference in a new issue