Etc

1 files changed, 8 insertions, 3 deletions

@@ -22,6 +22,10 @@ boudin --- a little static site generator
         (sxml-serializer)
         (sxpath))
 
+;;; Utilities
+
+(define el sxml->html)
+
 ;;; Transformations
 ;; A static site generator can be thought of largely as two sets of
 ;; transformations: one transforming given input content to output content, and
@@ -362,9 +366,10 @@ boudin --- a little static site generator
                         id: (page-url pg)
                         updated: (page-guess-updated pg)
                         ;;published:
-                        content:
-                        `(atom:content (@ (type "html"))
-                                       ,(cdr (page-dest pg)))))
+                        content: (make-content
+                                  (sxml->html (page-dest pg))
+                                  type: html)
+                        #;`(atom:content "foo")))
                      pages))))))
 
 ;;; Publishing