diff options
author | Arun Isaac | 2022-06-29 19:53:17 +0530 |
---|---|---|
committer | Arun Isaac | 2022-06-29 19:53:17 +0530 |
commit | 2b35f99ea67c496501f25bedc0bc8c26ccd41efd (patch) | |
tree | a0655c8232fd9a6145f8bb6f33112a6d31b6972b /tissue.scm | |
parent | 9d937b3b34726c24f98a0ed804e2c0c01a991ace (diff) | |
download | gn-gemtext-2b35f99ea67c496501f25bedc0bc8c26ccd41efd.tar.gz |
Remove static issue listings.
* closed.skb, index.skb, team.skb, topics.skb: Delete files.
* tissue.scm (#:web-files): Remove static issue listings.
Diffstat (limited to 'tissue.scm')
-rw-r--r-- | tissue.scm | 39 |
1 files changed, 15 insertions, 24 deletions
@@ -43,27 +43,18 @@ #:web-css "/style.css" #:web-files (cons* (file "style.css" (copier "style.css")) - (file "index.html" - (skribe-exporter "index.skb")) - (file "closed.html" - (skribe-exporter "closed.skb")) - (file "team.html" - (skribe-exporter "team.skb")) - (file "topics.html" - (skribe-exporter "topics.skb")) - (append (tag-pages) - (filter-map (lambda (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))))) + (filter-map (lambda (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)))) |