Delete publish-test/data/make-atom.txt
This commit is contained in:
parent
f474241f29
commit
3f123eeb56
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