rm-publish-test #1
1 changed files with 0 additions and 30 deletions
|
@ -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))
|
|
Loading…
Reference in a new issue