Delete publish-test/data/make-atom.txt

This commit is contained in:
sorrel 2023-12-15 16:19:07 +00:00
parent f474241f29
commit 3f123eeb56

View file

@ -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))