diff options
| author | Arun Isaac | 2022-07-09 00:27:26 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-07-09 00:30:20 +0530 |
| commit | 526f422ce50823f7d78be1857f4538f600ffafd9 (patch) | |
| tree | 2de49682138792d1dd802725347eab0e34953f54 /tissue.scm | |
| parent | 1a328b0c5f6048cd670774860caeb5e45e05f1e1 (diff) | |
| download | tissue-526f422ce50823f7d78be1857f4538f600ffafd9.tar.gz tissue-526f422ce50823f7d78be1857f4538f600ffafd9.tar.lz tissue-526f422ce50823f7d78be1857f4538f600ffafd9.zip | |
bin: Make indexed documents a list of document objects.
This simplifies the interface obviating the need for an
<indexed-document> type.
* bin/tissue: Do not import (srfi srfi-9).
(<indexed-document>): Delete type.
(index): Expect indexed documents to be a list of document objects.
* tissue.scm (#:indexed-documents): Pass in a list of document
objects, instead of a list of <indexed-document> objects.
Diffstat (limited to 'tissue.scm')
| -rw-r--r-- | tissue.scm | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1,8 +1,9 @@ (tissue-configuration #:project "tissue" #:indexed-documents (map (lambda (filename) - (indexed-document (cut read-gemtext-issue filename) - (string-append "/" (string-remove-suffix ".gmi" filename)))) + (slot-set (read-gemtext-issue filename) + 'web-uri + (string-append "/" (string-remove-suffix ".gmi" filename)))) (gemtext-files-in-directory "issues")) #:web-files (cons (file "index.html" (skribe-exporter "website/index.skb")) |