diff options
| author | Case Duckworth | 2023-09-15 00:19:37 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-09-15 00:19:37 -0500 |
| commit | 61d3b6aae43e1ad870e7832ec964964124eacb1b (patch) | |
| tree | 91c59e06e2bb735ce4ac1573fbb9ac9a7b553865 /boudin.page.index.scm | |
| parent | Bump to 1.0 (diff) | |
| download | boudin-61d3b6aae43e1ad870e7832ec964964124eacb1b.tar.gz boudin-61d3b6aae43e1ad870e7832ec964964124eacb1b.zip | |
Fix bugs and implement changes main
I can actually build a (one-page) site!
Diffstat (limited to 'boudin.page.index.scm')
| -rw-r--r-- | boudin.page.index.scm | 5 |
1 files changed, 5 insertions, 0 deletions
| diff --git a/boudin.page.index.scm b/boudin.page.index.scm index 4ff3fd9..52aebc8 100644 --- a/boudin.page.index.scm +++ b/boudin.page.index.scm | |||
| @@ -1,5 +1,6 @@ | |||
| 1 | (declare (module (boudin page index)) | 1 | (declare (module (boudin page index)) |
| 2 | (export make-index | 2 | (export make-index |
| 3 | index-content | ||
| 3 | index-template | 4 | index-template |
| 4 | index-writer | 5 | index-writer |
| 5 | make-feed | 6 | make-feed |
| @@ -33,12 +34,16 @@ | |||
| 33 | (head ,@(html-head) | 34 | (head ,@(html-head) |
| 34 | (title ,(site-name))) | 35 | (title ,(site-name))) |
| 35 | (body (h1 ,(site-name)) | 36 | (body (h1 ,(site-name)) |
| 37 | ,(index-content) | ||
| 36 | (ul ,@(map (lambda (pg) | 38 | (ul ,@(map (lambda (pg) |
| 37 | `(li (a (@ (href ,(page-slug pg))) | 39 | `(li (a (@ (href ,(page-slug pg))) |
| 38 | ,(or (page-ref pg "title") | 40 | ,(or (page-ref pg "title") |
| 39 | (page-slug pg))))) | 41 | (page-slug pg))))) |
| 40 | ((site-sort) pgs)))))))) | 42 | ((site-sort) pgs)))))))) |
| 41 | 43 | ||
| 44 | (define index-content | ||
| 45 | (make-parameter "")) | ||
| 46 | |||
| 42 | (define (make-feed pgs) | 47 | (define (make-feed pgs) |
| 43 | (make-page ((feed-template) pgs) | 48 | (make-page ((feed-template) pgs) |
| 44 | (make-pathname (site-output) "feed.xml") | 49 | (make-pathname (site-output) "feed.xml") |