gdritter repos when-computer / 4995ba4
Replaced XHTML content in Atom feed with HTML Getty Ritter 7 years ago
1 changed file(s) with 4 addition(s) and 3 deletion(s). Collapse all Expand all
+4
-3
generator/templates.scm less more
11 ;; template-ey things and style things
2
3 (load "libs.scm")
24
35 ;; The date format we're using is {year:04}-{month:02}-{day:02}.
46 (define (date->string date)
2325 (name "Getty Ritter")
2426 (email "gettyritter@gmail.com"))
2527 (content
26 (@ (type "xhtml"))
27 (div (@ (xmlns "http://www.w3.org/1999/xhtml"))
28 ,(post-content post))))))
28 (@ (type "html"))
29 ,(++ "<![CDATA[" (serialize-sxml (post-content post)) "]]>")))))
2930
3031 (define (atom-feed posts)
3132 (let ((updated (date->tz (post-time (car posts)))))