publish-test/data/make-atom.txt

@@ -1,30 +0,0 @@
-(lambda (feed-ref update-time homepage entries)
-  (let ([feed
-         `(feed
-           ((xmlns "http://www.w3.org/2005/Atom"))
-           (title "λ.sorrel.dev")
-           (link ((rel "self")
-                  (href ,feed-ref)))
-           (updated  ,update-time)
-           (author
-            (name "sorrel"))
-           (id ,homepage))])
-    
-     
-    (for-each
-     (lambda (entry)
-       (set! feed
-               (append feed
-                       `((entry
-                          (title ,(first entry))
-                          (link ((href ,(second entry))))
-                          (id ,(second entry))
-                          (content ((src ,(second entry))
-                                    (type "text/html")))
-                          (summary ,(third entry))
-                          (published ,(fourth entry))
-                          ,(if (eq? 5 (length entry))
-                               `(updated ,(fifth entry))
-                               '(updated "")))))))
-     entries)
-        feed))