diff options
| author | Case Duckworth | 2023-07-23 11:20:30 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-07-23 11:20:30 -0500 |
| commit | d73d459acb5cba5025a72307de00c902b95ece3c (patch) | |
| tree | 80eae92b7dd2f9d51428e28fd2179d42cfffab85 | |
| parent | Add links to stylesheet in default templates (diff) | |
| download | boudin-d73d459acb5cba5025a72307de00c902b95ece3c.tar.gz boudin-d73d459acb5cba5025a72307de00c902b95ece3c.zip | |
Make my own atom file with CDATA and blow
| -rw-r--r-- | boudin.egg | 1 | ||||
| -rwxr-xr-x | boudin.scm | 11 |
2 files changed, 10 insertions, 2 deletions
| diff --git a/boudin.egg b/boudin.egg index 0187e71..cc163ed 100644 --- a/boudin.egg +++ b/boudin.egg | |||
| @@ -11,6 +11,7 @@ | |||
| 11 | scss | 11 | scss |
| 12 | srfi-37 | 12 | srfi-37 |
| 13 | srfi-152 | 13 | srfi-152 |
| 14 | sxml-serializer | ||
| 14 | sxpath) | 15 | sxpath) |
| 15 | (components | 16 | (components |
| 16 | (program boudin))) | 17 | (program boudin))) |
| diff --git a/boudin.scm b/boudin.scm index 51bf8d5..3ace3e6 100755 --- a/boudin.scm +++ b/boudin.scm | |||
| @@ -19,6 +19,7 @@ boudin --- a little static site generator | |||
| 19 | (scss) | 19 | (scss) |
| 20 | (srfi 37) | 20 | (srfi 37) |
| 21 | (srfi 152) | 21 | (srfi 152) |
| 22 | (sxml-serializer) | ||
| 22 | (sxpath)) | 23 | (sxpath)) |
| 23 | 24 | ||
| 24 | ;;; Transformations | 25 | ;;; Transformations |
| @@ -372,8 +373,14 @@ boudin --- a little static site generator | |||
| 372 | 373 | ||
| 373 | (define (write-feed pages) | 374 | (define (write-feed pages) |
| 374 | (print-log "writing feed") | 375 | (print-log "writing feed") |
| 375 | (with-output-to-file (make-pathname (build-directory) "feed" "xml") | 376 | (serialize-sxml (apply (feed-template) pages) |
| 376 | (lambda () (write-atom-doc (apply (feed-template) pages))))) | 377 | output: (make-pathname (build-directory) "feed" "xml") |
| 378 | cdata-section-elements: '(atom:content) | ||
| 379 | ns-prefixes: `((*default* . "http://www.w3.org/2005/Atom") | ||
| 380 | (*default* . "http://www.w3.org/1999/xhtml") | ||
| 381 | . ,(atom-ns-prefixes)) | ||
| 382 | allow-prefix-redeclarations: #t | ||
| 383 | )) | ||
| 377 | 384 | ||
| 378 | ;;; Configuration | 385 | ;;; Configuration |
| 379 | 386 | ||