summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--boudin.egg1
-rwxr-xr-xboudin.scm11
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