summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-04-29 17:33:37 +0530
committerArun Isaac2022-04-29 17:33:37 +0530
commit923034d860d1beac22f0425796cda6b8a966a54a (patch)
tree7605deedcb00152a43c963ebf59908e21214985c
parent331e06ba54065cf5f8a0a8611957e1b0f2cfa171 (diff)
downloadgn-gemtext-923034d860d1beac22f0425796cda6b8a966a54a.tar.gz
tissue: Publish images.
* tissue.scm (#:web-files): Copy image files to output.
-rw-r--r--tissue.scm19
1 files changed, 13 insertions, 6 deletions
diff --git a/tissue.scm b/tissue.scm
index 3bcdcd7..81d66bd 100644
--- a/tissue.scm
+++ b/tissue.scm
@@ -47,10 +47,17 @@
(skribe-exporter "topics.skb"))
(append (tag-pages)
(filter-map (lambda (filename)
- (and (string-suffix? ".gmi" filename)
- (not (string=? (basename filename)
- "README.gmi"))
- (file (replace-extension filename "html")
- (gemtext-exporter filename
- (genenetwork-gemtext-reader filename)))))
+ (cond
+ ((and (string-suffix? ".gmi" filename)
+ (not (string=? (basename filename)
+ "README.gmi")))
+ (file (replace-extension filename "html")
+ (gemtext-exporter filename
+ (genenetwork-gemtext-reader filename))))
+ ((or (string-suffix? ".jpg" filename)
+ (string-suffix? ".png" filename)
+ (string-suffix? ".svg" filename))
+ (file filename
+ (copier filename)))
+ (else #f)))
(git-tracked-files)))))