From 3f39d53bc165c8f38e25a3a04ebd96f2148fa234 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Sun, 23 Jul 2023 11:21:58 -0500
Subject: Etc

---
 boudin.scm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'boudin.scm')

diff --git a/boudin.scm b/boudin.scm
index f746f24..28727ff 100755
--- a/boudin.scm
+++ b/boudin.scm
@@ -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
-- 
cgit 1.4.1-21-gabe81