oxaliq.net/publish-test/data/make-atom.txt

30 lines
1 KiB
Text
Raw Normal View History

2023-11-09 04:12:52 +00:00
(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))