30 lines
No EOL
1 KiB
Scheme
30 lines
No EOL
1 KiB
Scheme
(lambda (feed-ref update-time homepage entries)
|
|
(let ([feed
|
|
`(feed
|
|
((xmlns "http://www.w3.org/2005/Atom"))
|
|
(title "λ.oxaliq.net")
|
|
(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)) |